<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" if(Request.QueryString("ID") <> "") then Recordset1__MMColParam = Request.QueryString("ID") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "dsn=readersrides;" Recordset1.Source = "SELECT * FROM Profiles WHERE MemberID = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open Recordset1_numRows = 0 %> ROCKCRAWLER.com

<%=(Recordset1.Fields.Item("FirstName").Value)%> <%=(Recordset1.Fields.Item("LastName").Value)%>
<% If Recordset1.Fields.Item("City").Value <> "" Then %><%=(Recordset1.Fields.Item("City").Value)%>, <% End If %><%=(Recordset1.Fields.Item("State").Value)%> <%=(Recordset1.Fields.Item("Country").Value)%>

Contact Information
<% If Recordset1.Fields.Item("Nickname").Value <> "" Then %> Nickname: <%=(Recordset1.Fields.Item("Nickname").Value)%>

<% End If %> <% If Recordset1.Fields.Item("URL").Value <> "" Then %> Website: " target="_blank"><%=left((Recordset1.Fields.Item("URL").Value),35)%>
<% End If %> <% If Recordset1.Fields.Item("Email").Value <> "" Then %> Email: "><%=(Recordset1.Fields.Item("EMail").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Pager").Value <> "" Then %> Instant Messenger: <%=(Recordset1.Fields.Item("Pager").Value)%> <% End If %>

Main Vehicle Specs
<% If Recordset1.Fields.Item("Year").Value <> "" Then %> Year: <%=(Recordset1.Fields.Item("Year").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Make").Value <> "" Then %> Make: <%=(Recordset1.Fields.Item("Make").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Model").Value <> "" Then %> Model: <%=(Recordset1.Fields.Item("Model").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Color").Value <> "" Then %> Color: <%=(Recordset1.Fields.Item("Color").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Engine").Value <> "" Then %> Engine: <%=(Recordset1.Fields.Item("Engine").Value)%>
<% End If %> <% If Recordset1.Fields.Item("XferCase").Value <> "" Then %> Tranny/Transfer Case: <%=(Recordset1.Fields.Item("XferCase").Value)%>
<% End If %>

Modifications
<% If Recordset1.Fields.Item("Lift").Value <> "" Then %> Suspension Lift: <%=(Recordset1.Fields.Item("Lift").Value)%>
<% End If %> <% If Recordset1.Fields.Item("RearAxle").Value <> "" Then %> Rear Axle: <%=(Recordset1.Fields.Item("RearAxle").Value)%>
<% End If %> <% If Recordset1.Fields.Item("FrontAxle").Value <> "" Then %> Front Axle: <%=(Recordset1.Fields.Item("FrontAxle").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Lockers").Value <> "" Then %> Lockers: <%=(Recordset1.Fields.Item("Lockers").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Gears").Value <> "" Then %> Gears: <%=(Recordset1.Fields.Item("Gears").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Wheels").Value <> "" Then %> Wheels: <%=(Recordset1.Fields.Item("Wheels").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Tires").Value <> "" Then %> Tires: <%=(Recordset1.Fields.Item("Tires").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Shocks").Value <> "" Then %> Shocks: <%=(Recordset1.Fields.Item("Shocks").Value)%> <% End If %>

Accessories:
<% If Recordset1.Fields.Item("Access1").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Access1").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Access2").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Access2").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Access3").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Access3").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Access4").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Access4").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Access5").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Access5").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Access6").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Access6").Value)%> <% End If %>

Miscellaneous
Comments:
<% If Recordset1.Fields.Item("Comment1").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Comment1").Value)%>
<% End If %> <% If Recordset1.Fields.Item("Comment2").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Comment2").Value)%>
<% End If %>
<% If Recordset1.Fields.Item("Comment3").Value <> "" Then %> - <%=(Recordset1.Fields.Item("Comment3").Value)%>
<% End If %>

<% If Recordset1.Fields.Item("Club").Value <> "" Then %>

Clubs: <%=(Recordset1.Fields.Item("Club").Value)%>

<% End If %>

Record Added: <%=(Recordset1.Fields.Item("DateAdded").Value)%>
Profile Last Updated: <%=(Recordset1.Fields.Item("LastUpdate").Value)%>

 

<% If Recordset1.Fields.Item("Photo1").Value <> "" Then %> " vspace="2" border="1" alt="photos/<%=(Recordset1.Fields.Item("FirstName").Value)%>  <%=(Recordset1.Fields.Item("LastName").Value)%>" width="300">
<% End If %> <% If Recordset1.Fields.Item("Photo2").Value <> "" Then %> " vspace="2" border="1" alt="photos/<%=(Recordset1.Fields.Item("FirstName").Value)%>  <%=(Recordset1.Fields.Item("LastName").Value)%>" width="300"> <% End If %>

 

 

 

 

©2001 ROCKCRAWLER.com