<%Option Explicit%>
BreastDrs.com
<%
Dim dcnDB
Dim rsState
Dim rsCategory
Dim strSQLState
Dim strSQLCategory
Dim state_
Dim state_v
Dim category_
dim connectstring
Set dcnDB = Server.CreateObject("ADODB.Connection")
Set rsState = Server.CreateObject("ADODB.Recordset")
Set rsCategory = Server.CreateObject("ADODB.Recordset")
' setup the connection string
ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "PORT=3307;" _
& "DATABASE=gnosis;" _
& "UID=util;" _
& "PWD=ut!l;"
Set dcnDB = Server.CreateObject("ADODB.Connection")
Set rsState = Server.CreateObject("ADODB.Recordset")
Set rsCategory = Server.CreateObject("ADODB.Recordset")
' open the database connection
With dcnDB
' Establish DSN-less connection
.ConnectionString = ConnectString
.ConnectionTimeout = 10
.CursorLocation = 1
.Open
End With
strSQLState="SELECT * FROM State WHERE site_id = '329' ORDER BY StateName" 'Returns state names and abbreviations
strSQLCategory="SELECT * FROM JobCategory WHERE site_id = '329' ORDER BY Category" 'Returns job categories
rsState.Open strSQLState,dcnDB 'opens recordset with given sql statement (basically sticks filtered data into an accessable object)
rsCategory.Open strSQLCategory,dcnDB 'opens recordset with given sql statement (basically sticks filtered data into an accessable object)
%>
