<%
Dim dbConn, stateRS, eventRS
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open "DSN=iwireless"
Set stateRS = Server.CreateObject("ADODB.Recordset")
stateRS.ActiveConnection = dbConn
stateRS.Open "SELECT * " &_
"FROM tblStates " &_
"ORDER BY abSort, abLoc"
stateRS.MoveFirst
Set eventRS = Server.CreateObject("ADODB.Recordset")
eventRS.ActiveConnection = dbConn
eventRS.Open "SELECT * " &_
"FROM tblEvents " &_
"ORDER BY evtEvent"
eventRS.MoveFirst
%>
Welcome to iWireless World
© iWireless World 2002, All rights reserved.
A production of iHollywood Forum, Inc.
Site design & production, tansi graphics + design.
<%
eventRS.Close
Set eventRS = Nothing
stateRS.Close
Set stateRS = Nothing
dbConn.Close
Set dbConn = Nothing
%>
