The In Touch Newsletter Archive
<% 'specify the provider
Dim strProvider, dbConn, rowCount, strSQL, rsDiv, rsType, rsLoc, strType, strQuery
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\mdb\InTouch_Archive.mdb;"
'create and open a connection
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open strProvider %>