% Dim dbcon Dim rsStation Set dbcon=Server.CreateObject ("ADODB.Connection") Set rs=Server.CreateObject ("ADODB.Recordset") strOpen = "driver={Microsoft Access Driver (*.mdb)};" &_ "dbq=" & Server.MapPath ("website.mdb") dbcon.Open strOpen sqlString = "Select distinct MailingCity from tblMembers Order by MailingCity asc" Set rsStation = dbcon.Execute(sqlString) rs.cursorlocation = 3 rs.cursortype = adopenstatic %>
![]() |
![]() |
|
|
|
||
|
||||||||||||||||||