<% 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 "AudioID", "cover", "title", "request" strSortBy = LCase(strSortBy) Case Else strSortBy = "title" 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("db/database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" 'Alternate Access connection code DataConn.Open = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/dubin_lib.mdb") '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 Audio WHERE (AudioID " & 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 %>
<% ' 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 ' For iLoopVar = 0 to iFieldCount ' rsDC.Fields(iLoopVar) ' Continue till we get to the end, and while in each loop through fields Do While Not rsDC.EOF %> <% For Each Field In rsDC.Fields %> <% If Field.Name = "cover" Then Response.Write "" ElseIf Field.Name = "title" Then Response.Write "" End If %> <% Next %> <% rsDC.MoveNext Loop %>

Title: " & Field.Value & "
" ElseIf Field.Name = "request" Then Response.Write "

 
<% ' 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 %>