<% Set MyDBA = Server.CreateObject("ADODB.Connection") MyDBA.Open Application("Letsmatchit") SET RS=MyDBA.Execute("SELECT * FROM ProfileDB WHERE Username='"&Request.Querystring("User")&"'") IF NOT RS.EOF THEN SET RS2=MyDBA.Execute("SELECT * FROM viewToday WHERE Username='"&Session("Username")&"' AND ProfileOwner='"&Request.Querystring("User")&"'") IF RS2.EOF THEN SET RS2=MyDBA.Execute("INSERT viewToday (Username,ProfileOwner) VALUES ('"&Session("Username")&"','"&Request.Querystring("User")&"')") END IF SET RS2=MyDBA.Execute("SELECT DATEDIFF(yy, birthday, getdate()) AS AGE FROM ProfileDB WHERE Username='"&Request.Querystring("User")&"'") Gender = rs("Gender") Ethnic = rs("Ethnic") Bodytype = rs("bodytype") myLanguage = rs("myLanguage") Language = rs("languages") Religion = rs("Religion") Occupation = rs("Occupation") Income = rs("Income") Education = rs("Education") Living = rs("Living") Marital = rs("marital") Weight = rs("Weight") Height = rs("Height") Drinking = rs("Drinking") Smoking = rs("Smoking") Children = rs("Children") WantChildren = rs("WantChildren") Bodytype = rs("Bodytype") Intrest = rs("Intrest") %>
"<%=RS("Username")%>"
<%=RS("Title")%>" id=no>
<% IF RS("Pic1")<> "" THEN %>/<%=RS("Pic1")%>" border="1" <% ELSE Response.Write(" width="110" height="120" border="1">

SHOW PICTURES:

<% IF RS("Pic1")<> "" THEN %> &R=<%=Rs("Slumpen")%>&U=<%=Rs("Username")%>')"> <% ELSE Response.Write("") END IF %> <% IF RS("Pic2")<> "" THEN %> &R=<%=Rs("Slumpen")%>&U=<%=Rs("Username")%>')"> <% ELSE Response.Write("") END IF %> <% IF RS("Pic3")<> "" THEN %> &R=<%=Rs("Slumpen")%>&U=<%=Rs("Username")%>')"> <% ELSE Response.Write("") END IF %> <% IF RS("Pic4")<> "" THEN %> &R=<%=Rs("Slumpen")%>&U=<%=Rs("Username")%>')"> <% ELSE Response.Write("") END IF %> <% IF RS("Pic5")<> "" THEN %> &R=<%=Rs("Slumpen")%>&U=<%=Rs("Username")%>')"> <% ELSE Response.Write("") END IF %>

&Url=viewprofile.asp?User=<%=Request.Querystring("User")%>" id="no"> + Send email

&url=Viewprofile.asp?User=<%=Request.Querystring("User")%>" id="no"> + Add to my hotlist
Gender<%=Gender%>
Born<%=formatdatetime(RS("Birthday"))%> ( <%=RS2("age")%> years)
Lives<%=rs("Region")%> , <%=rs("Country")%>
Nationality<%=RS("Nationality")%>
Ethnic group<%=Ethnic%>
Religion<%=Religion%>
Language<%=myLanguage%>
Occupation<%=Occupation%>
Income<%=Income%>
Education<%=Education%>
Living<%=Living%>
Marital status<%=marital%>
Length<%=Height%>
Bodytype<%=Bodytype%>
Weight<%=Weight%>
Smoking habit<%=Smoking%>
Drinking habit<%=Drinking%>
Have children<%=Children%>
Want Children<%=WantChildren%>
My other languages<%=Language%>
Intrests

<% intrest = replace(intrest,",","
") %> <%=Intrest%>
My personal description

" id=no>View my dream match
<%=RS("WhoAmI")%>

<% END IF %>