<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "0" if(Request.QueryString("Search") <> "") then Recordset1__MMColParam = Request.QueryString("Search") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "dsn=readersrides;" Recordset1.Source = "SELECT MemberID, FirstName, LastName, Make, Model, State, MemberID, Username, City, Nickname, Photo1 FROM Profiles WHERE LastName LIKE '%%" + Replace(Recordset1__MMColParam, "'", "''") + "%%' or Model LIKE '%%" + Replace(Recordset1__MMColParam, "'", "''") + "%%' or Make LIKE '%%" + Replace(Recordset1__MMColParam, "'", "''") + "%%' or State LIKE '%%" + Replace(Recordset1__MMColParam, "'", "''") + "%%' or City LIKE '%%" + Replace(Recordset1__MMColParam, "'", "''") + "%%' or Username LIKE '%%" + Replace(Recordset1__MMColParam, "'", "''") + "%%' or Nickname LIKE '%%" + Replace(Recordset1__MMColParam, "'", "''") + "%%' ORDER BY LastName ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open Recordset1_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If %> ROCKCRAWLER.com
READERS RIDES
Your search brought back <%=(Recordset1_total)%> ride<%If Recordset1_total <> 1 Then%>s<% End If %> from our database

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Last Name First Name Nickname Make Model State Photos
<%=(Recordset1.Fields.Item("FirstName").Value)%>
 <%=(Recordset1.Fields.Item("Nickname").Value)%>
<%=(Recordset1.Fields.Item("Make").Value)%>
<%=(Recordset1.Fields.Item("Model").Value)%>
<%=(Recordset1.Fields.Item("State").Value)%>
<% If Recordset1.Fields.Item("Photo1").Value <> "" Then %>
<% Else %> 
<% End If %>

 

 

 

 

©2003 ROCKCRAWLER.com