<% Dim objConn 'data connection object Dim rs 'record set Dim strSQL 'SQL selection string set objConn = createobject("ADODB.connection") 'ObjConn.Open "DBQ=" & Server.Mappath("/database/nen.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" ObjConn.Open "DSN=NENDB" 'Create a Recordset Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM NENMain" Set rs = objconn.Execute( strSQL ) Do While NOT Rs.EOF strState = rs.Fields("State").value Select case strState Case "Vermont" strContactVT = rs.Fields("FirstName").value + " " + rs.Fields("LastName").value strEMailVT = rs.Fields("EMailAddress").value strPhoneVT = rs.Fields("PhoneNumber").value strCCVT = rs.Fields("CC") strFaxVT = rs.Fields("FaxNumber").value Case "New Hampshire" strContactNH = rs.Fields("FirstName").value + " " + rs.Fields("LastName").value strEMailNH = rs.Fields("EMailAddress").value strPhoneNH = rs.Fields("PhoneNumber").value strCCNH = rs.Fields("CC") strFaxNH = rs.Fields("FaxNumber").value Case "Maine" strContactME = rs.Fields("FirstName").value + " " + rs.Fields("LastName").value strEMailME = rs.Fields("EMailAddress").value strPhoneME = rs.Fields("PhoneNumber").value strCCME = rs.Fields("CC") strFaxME = rs.Fields("FaxNumber").value Case "Massachusetts" strContactMA = rs.Fields("FirstName").value + " " + rs.Fields("LastName").value strEMailMA = rs.Fields("EMailAddress").value strPhoneMA = rs.Fields("PhoneNumber").value strCCMA = rs.Fields("CC") strFaxMA = rs.Fields("FaxNumber").value End Select ' Move to the next record in the resultset Rs.MoveNext Loop rs.Close Set rs = Nothing Set ObjConn = Nothing %>