<%
UserID = Chr(34) & Request.QueryString("user") & Chr(34)
Set ProfileRS = Server.CreateObject("ADODB.RecordSet")
ProfileSQL= "Select * FROM SLUsers WHERE D2Username = " & UserID & ";"
ProfileRS.Open ProfileSQL, whtConn, 1
Dim Username, FirstName, LastName, BoatName, BoatType, BoatLocation, State, Country, Qualifications,Experience, Best, Worst, Iam, Visible
Username = ProfileRS("D2Username")
FirstName = ProfileRS ("D2FirstName")
LastName = ProfileRS ("D2Surname")
BoatName = ProfileRS("D2Addr1")
BoatType = ProfileRS("D2Addr2")
BoatLocation = ProfileRS("D2Addr3")
State = ProfileRS("D2StateCounty")
Country = ProfileRS("D2Country")
Qualifications = ProfileRS("D2Custom1")
Experience = ProfileRS("D2Custom2")
Best = ProfileRS("D2Custom3")
Worst = ProfileRS("D2Custom4")
Iam = ProfileRS("D2Custom5")
Visible = ProfileRS("D2Custom9")
ProfileRS.Close
Set ProfileRS = Nothing
%>
<%If Visible=0 Then%>
User Profile
<% =Username %> - This user has decided not to publish their details.
<%Else%>
<% =Username %>
Name: | <% =FirstName %> <% =LastName %> |
Boat Type: | <% =BoatType %> |
Boat Location: | <% =BoatLocation %> |
State/County: | <% =State %> |
Country: | <% =Country %> |
Qualifications: | <% =Qualifications %> |
Experience: | <% =Experience %> |
Best Sail: | <% =Best %> |
Worst experience: | <% =Worst %> |
I am: | <% =Iam %> |
<%End If%>