%@ LANGUAGE="VBSCRIPT" %> <% 'open DB connections Set MyConn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("db\db3.mdb") MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" strReqState = request.querystring("state") If request.querystring("state") <> "" then 'query for available cities SQL_query = "SELECT distinct(city) FROM Main where state = '" & strReqState & "'" Set objRS = MyConn.Execute(SQL_query) else 'query for available states SQL_query = "SELECT state FROM States" Set objRS = MyConn.Execute(SQL_query) End If %>
© copyright, 2008, Truck Stop Info Plus, Inc | crafted by Robintek
| Favorite Links! |
| Truck Stop Info Plus has pulled together a
few links of interest - feel free to look through them below! Edge
Technology Consulting - Web design firm Religious
XM Radio Truckin Shows |