<%
Dim DataConn, cmdDC, rsDC
Dim Item
Dim iFieldCount, iLoopVar
Dim strLTorGT, iCriteria, strSortBy, strOrder
' Retrieve QueryString Variables and convert them to a usable form
strLTorGT = Request.QueryString("LTorGT")
Select Case strLTorGT
Case "LT"
strLTorGT = "<"
Case "GT"
strLTorGT = ">"
Case Else
strLTorGT = "<>"
End Select
iCriteria = Request.QueryString("criteria")
If IsNumeric(iCriteria) Then
iCriteria = CLng(iCriteria)
Else
iCriteria = 0
End If
strSortBy = Request.QueryString("sortby")
Select Case LCase(strSortBy)
Case "product", "description", "available", "Price"
strSortBy = LCase(strSortBy)
Case Else
strSortBy = "product"
End Select
strOrder = Request.QueryString("order")
If strOrder <> " DESC" Then strOrder = ""
' Finally we've got all our info, now to the cool stuff
' Create and establish data connection
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = 15
DataConn.CommandTimeout = 30
'Access connection code
DataConn.Open "DBQ=" & Server.MapPath("price.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"
'Our SQL Server code - use above line to use sample on your server
'DataConn.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
' & "Initial Catalog=samples;User Id=samples;Password=password;" _
' & "Connect Timeout=15;Network Library=dbmssocn;"
' Create and link command object to data connection then set attributes and SQL query
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConn
cmdDC.CommandText = "SELECT * FROM sample WHERE (Price " & strLTorGT & " " & iCriteria & ") ORDER BY " & strSortBy & strOrder & ";"
cmdDC.CommandType = 1
' Create recordset and retrieve values using command object
Set rsDC = Server.CreateObject("ADODB.Recordset")
' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1)
rsDC.Open cmdDC, , 0, 1
%>
SHORE ACRES PLANT FARM
SPECIALIZING IN QUALITY PLANTS
(251)973-1602 1-800-332-8197
11545 BELLINGRATH HWY. THEORDORE, AL 36582
Price List
Find what you are
looking for by:
Product Code, Description, Availability or Price.
Home
<% For Each Item in rsDC.Fields %>
| <%= Item.Name %>
|
<% Next %>
<%
' Loop through recordset and display results
If Not rsDC.EOF Then rsDC.MoveFirst
' Get the number of fields and subtract one so our loops start at 0
iFieldCount = rsDC.Fields.Count - 1
' Continue till we get to the end, and while in each loop through fields
Do While Not rsDC.EOF
%>
<% For iLoopVar = 0 to iFieldCount %>
| <%= rsDC.Fields(iLoopVar) %>
|
<% Next %>
<%
rsDC.MoveNext
Loop
%>
<%
' Close Data Access Objects and free DB variables
rsDC.Close
Set rsDC = Nothing
' can't do a "cmdDC.Close" !
Set cmdDC = Nothing
DataConn.Close
Set DataConn = Nothing
%>
New Sort:
| Home | About Us | Photo Gallery | Availability | Price
List | Contact Us |