..:: LogHomeList - Search Page ::..
<%
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 = '340'" 'Returns state names and abbreviations
strSQLCategory="SELECT * FROM JobCategory WHERE site_id = '340' 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)
%>
Your directory to buying or building a log home.
Find log home vendors, learn
how to maintain your log home, locate rustic furnishings that suit
log homes,
and even learn to build your own home by attending a log home
raising or
school.