%@ LANGUAGE="VBSCRIPT" %>
<%
'===============================================
' Personals System 2002
' ©2002 vSpin.net. www.vspin.net
'===============================================
' All rights reserved.
' Use of this code is covered by the terms and
' conditions in the license agreement. No
' unauthorized duplication or distribution is
' permitted. vSpin.net copyright notices must
' remain in the ASP sections of the code.
'===============================================
%>
<%
dim xxxxm, rsheadUpdatee, rsheadUpdatee_numRows
Dim rsViews__var, rsViews, version, theQuery, IntNumRecs, p_id, p_headline, p_user, p_sex, p_seek, p_relationship, p_age, p_height, p_body, p_weight, p_desc, p_hair, p_ethnicity, p_religion
Dim p_employ, p_education, p_marital, p_child, p_wantchild, p_smoke, p_drink, p_expdate, p_views, p_photoapprove, p_active, aryFileType, numFileLoopCounter, strFileStatus, thepath, fs, numFilePresentCheck
if(Request.QueryString("v") <> "") then rsViews__var = Request.QueryString("v")
%>
<%
set rsViews = Server.CreateObject("ADODB.Command")
rsViews.ActiveConnection = MM_conn_STRING
rsViews.CommandText = "UPDATE p_ads SET p_views = p_views + 1 WHERE p_id = " + Replace(rsViews__var, "'", "''") + " "
rsViews.CommandType = 1
rsViews.CommandTimeout = 0
rsViews.Prepared = true
rsViews.Execute()
%>
<%
Function DoSpace(str)
DoSpace = (Replace(str, vbCrlf, "
"))
End Function
'-----------------------------------------------
'COLLECT VALUES
'-----------------------------------------------
version = Request.Querystring("V")
'-----------------------------------------------
'FORMAT AND RUN THE QUERY
'-----------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_conn_STRING
SQL1 = "select p_ads.*,p_locations.* from (p_ads INNER JOIN p_locations on p_ads.p_city = p_locations.p_idl) WHERE p_id=" & version
Set rs_main = conn.execute(sql1)
p_id = rs_main("p_id")
p_headline = rs_main("p_headline")
p_user = rs_main("p_user")
p_sex = rs_main("p_sex")
p_seek = rs_main("p_seek")
p_relationship = rs_main("p_relationship")
p_age = rs_main("p_age")
p_height = rs_main("p_height")
p_body = rs_main("p_body")
p_weight = rs_main("p_weight")
p_desc = rs_main("p_desc")
p_hair = rs_main("p_hair")
p_ethnicity = rs_main("p_ethnicity")
p_religion = rs_main("p_religion")
p_employ = rs_main("p_employ")
p_education = rs_main("p_education")
p_marital = rs_main("p_marital")
p_child = rs_main("p_child")
p_wantchild = rs_main("p_wantchild")
p_smoke = rs_main("p_smoke")
p_drink = rs_main("p_drink")
p_expdate = rs_main("p_expdate")
p_views = rs_main("p_views")
p_photoapprove = rs_main("p_photoapprove")
p_active = rs_main("p_active")
If p_sex = "1" then
p_sex = "Bottom"
ElseIf p_sex = "2" then
p_sex = "Top"
ElseIf p_sex = "4" then
p_sex = "Versatile"
else p_sex = "Unknow"
end if
If p_relationship = "1" then
p_relationship = "Hookup"
ElseIf p_relationship = "2" then
p_relationship = "1 on 1"
ElseIf p_relationship = "3" then
p_relationship = "Short-term"
ElseIf p_relationship = "4" then
p_relationship = "Long-term"
ElseIf p_relationship = "5" then
p_relationship = "Sexual"
ElseIf p_relationship = "6" then
p_relationship = "Group/3ways"
ElseIf p_relationship = "7" then
p_relationship = "Misc Fetishes"
ElseIf p_relationship = "9" then
p_relationship = "WS,FF,GROUP,PNP"
else p_relationship = "Other"
end if
If p_seek = "1" then
p_seek = "Female"
ElseIf p_seek = "3" then
p_seek = "Male"
Else p_seek = "Female or Male"
end if
If p_height = "1" then
p_height = "Under 5ft. (152 cm)"
ElseIf p_height = "2" then
p_height = "5ft. 0in. (152 cm)"
ElseIf p_height = "3" then
p_height = "5ft. 1in. (155 cm)"
ElseIf p_height = "4" then
p_height = "5ft. 2in. (157 cm)"
ElseIf p_height = "5" then
p_height = "5ft. 3in. (160 cm)"
ElseIf p_height = "6" then
p_height = "5ft. 4in. (163 cm)"
ElseIf p_height = "7" then
p_height = "5ft. 5in. (165 cm)"
ElseIf p_height = "8" then
p_height = "5ft. 6in. (168 cm)"
ElseIf p_height = "9" then
p_height = "5ft. 7in. (170 cm)"
ElseIf p_height = "10" then
p_height = "5ft. 8in. (173 cm)"
ElseIf p_height = "11" then
p_height = "5ft. 9in. (175 cm)"
ElseIf p_height = "12" then
p_height = "5ft. 10in. (178 cm)"
ElseIf p_height = "13" then
p_height = "5ft. 11in. (180 cm)"
ElseIf p_height = "14" then
p_height = "6ft. 0in. (183 cm)"
ElseIf p_height = "15" then
p_height = "6ft. 1in. (185 cm)"
ElseIf p_height = "16" then
p_height = "6ft. 2in. (188 cm)"
ElseIf p_height = "17" then
p_height = "6ft. 3in. (191 cm)"
ElseIf p_height = "18" then
p_height = "6ft. 4in. (193 cm)"
ElseIf p_height = "19" then
p_height = "6ft. 5in. (196 cm)"
ElseIf p_height = "20" then
p_height = "6ft. 6in. (198 cm)"
ElseIf p_height = "21" then
p_height = "6ft. 7in. (201 cm)"
ElseIf p_height = "22" then
p_height = "6ft. 8in. (203 cm)"
ElseIf p_height = "23" then
p_height = "6ft. 9in. (206 cm)"
ElseIf p_height = "24" then
p_height = "6ft. 10in. (208 cm)"
ElseIf p_height = "25" then
p_height = "6ft. 11in. (211 cm)"
ElseIf p_height = "26" then
p_height = "7ft. 0in. (213 cm)"
ElseIf p_height = "27" then
p_height = "Over 7ft. (213 cm)"
else p_height = "0"
end if
If p_body = "1" then
p_body = "Thin"
ElseIf p_body = "2" then
p_body = "Athletic"
ElseIf p_body = "3" then
p_body = "Average"
ElseIf p_body = "4" then
p_body = "Slightly Overweight"
ElseIf p_body = "5" then
p_body = "Bear"
ElseIf p_body = "6" then
p_body = "Bodybuilder"
ElseIf p_body = "7" then
p_body = "Muscular"
ElseIf p_body = "8" then
p_body = "Twink"
Else p_body = "0"
end if
If p_hair = "1" then
p_hair = "Black"
ElseIf p_hair = "2" then
p_hair = "Blond"
ElseIf p_hair = "3" then
p_hair = "Brown"
ElseIf p_hair = "4" then
p_hair = "Red"
ElseIf p_hair = "5" then
p_hair = "Salt and Pepper"
ElseIf p_hair = "6" then
p_hair = "Bald or Shaved Head"
ElseIf p_hair = "7" then
p_hair = "Mixed Color"
ElseIf p_hair = "8" then
p_hair = "Other"
Else p_hair = "0"
end if
If p_ethnicity = "1" then
p_ethnicity = "Black"
ElseIf p_ethnicity = "3" then
p_ethnicity = "Asian/Pacific Islander"
ElseIf p_ethnicity = "4" then
p_ethnicity = "Caucasian"
ElseIf p_ethnicity = "6" then
p_ethnicity = "Hispanic"
ElseIf p_ethnicity = "12" then
p_ethnicity = "Other"
Else p_ethnicity = "0"
end if
If p_religion = "1" then
p_religion = "Take and Give"
ElseIf p_religion = "2" then
p_religion = "Give Only"
ElseIf p_religion = "3" then
p_religion = "Take Only"
ElseIf p_religion = "4" then
p_religion = "Neither"
Else p_religion = "0"
end if
If p_employ = "1" then
p_employ = "HIV+"
ElseIf p_employ = "2" then
p_employ = "HIV-"
ElseIf p_employ = "3" then
p_employ = "Unknown"
Else p_employ = "0"
end if
If p_education = "2" then
p_education = "High School"
ElseIf p_education = "3" then
p_education = "Some College"
ElseIf p_education = "4" then
p_education = "College Degree"
ElseIf p_education = "5" then
p_education = "Graduate Degree"
Else p_education = "0"
end if
If p_marital = "1" then
p_marital = "LESS THAN 5"
ElseIf p_marital = "2" then
p_marital = "5"
ElseIf p_marital = "3" then
p_marital = "5.5"
ElseIf p_marital = "4" then
p_marital = "6"
ElseIf p_marital = "5" then
p_marital = "6.5"
ElseIf p_marital = "6" then
p_marital = "7"
ElseIf p_marital = "7" then
p_marital = "7.5"
ElseIf p_marital = "8" then
p_marital = "8"
ElseIf p_marital = "9" then
p_marital = "8.5"
ElseIf p_marital = "10" then
p_marital = "9"
ElseIf p_marital = "11" then
p_marital = "9.5"
ElseIf p_marital = "12" then
p_marital = "10"
ElseIf p_marital = "13" then
p_marital = "10.5"
ElseIf p_marital = "14" then
p_marital = "11"
ElseIf p_marital = "15" then
p_marital = "more than 11.5"
Else p_marital = "0"
end if
If p_child = "1" then
p_child = "PNP Friendly"
ElseIf p_child = "2" then
p_child = "NO PNP Please"
ElseIf p_child = "3" then
p_child = "Ok if you do"
ElseIf p_child = "4" then
p_child = "Poppers Only"
ElseIf p_child = "5" then
p_child = "Is it 4:20 yet?"
Else p_child = "0"
end if
If p_wantchild = "1" then
p_wantchild = "I Like It RAW"
ElseIf p_wantchild = "2" then
p_wantchild = "Safe Sex Only"
ElseIf p_wantchild = "3" then
p_wantchild = "Undecided/Open"
Else p_wantchild = "0"
end if
If p_smoke = "1" then
p_smoke = "No"
ElseIf p_smoke = "2" then
p_smoke = "Drink Own Piss/Other Mouth Only"
ElseIf p_smoke = "3" then
p_smoke = "Put it Anywhere, Mouth, Hole, your pick."
ElseIf p_smoke = "4" then
p_smoke = "Give Only"
Else p_smoke = "0"
end if
If p_drink = "1" then
p_drink = "No"
ElseIf p_drink = "2" then
p_drink = "Socially"
ElseIf p_drink = "3" then
p_drink = "Often"
Else p_drink = "0"
end if
set rsQ = Server.CreateObject("ADODB.Recordset")
rsQ.ActiveConnection = MM_conn_STRING
rsQ.Source = "SELECT p_user FROM p_questions WHERE p_user = '" + Replace(p_user, "'", "''") + "'"
rsQ.CursorType = 0
rsQ.CursorLocation = 2
rsQ.LockType = 3
rsQ.Open()
rsQ_numRows = 0
%>
<% if p_active=1 then %>
Personals Ad not Active!
<% else %>
|
Ad Details
|
 |
|
| <% = Server.HTMLEncode(p_headline) %> |
<% if NOT request("moreonme") = "" then
set rsmore = Server.CreateObject("ADODB.Recordset")
rsmore.ActiveConnection = MM_conn_STRING
rsmore.Source = "SELECT p_q1, p_q2, p_q3, p_q4, p_q5, p_q6, p_q7, p_q8, p_q9, p_q10, p_q11, p_q12, p_q13, p_q14, p_q15, p_q16, p_q17 FROM p_questions WHERE p_user = '" + Replace(p_user, "'", "''") + "'"
rsmore.CursorType = 0
rsmore.CursorLocation = 2
rsmore.LockType = 3
rsmore.Open()
rsmore_numRows = 0
Dim p_desc1, p_desc2, p_desc3, p_desc4, p_desc5, p_desc6, p_desc7, p_desc8, p_desc9, p_desc10, p_desc11, p_desc12, p_desc13, p_desc14, p_desc15, p_desc16, p_desc17
p_desc1 = rsmore("p_q1")
p_desc2 = rsmore("p_q2")
p_desc3 = rsmore("p_q3")
p_desc4 = rsmore("p_q4")
p_desc5 = rsmore("p_q5")
p_desc6 = rsmore("p_q6")
p_desc7 = rsmore("p_q7")
p_desc8 = rsmore("p_q8")
p_desc9 = rsmore("p_q9")
p_desc10 = rsmore("p_q10")
p_desc11 = rsmore("p_q11")
p_desc12 = rsmore("p_q12")
p_desc13 = rsmore("p_q13")
p_desc14 = rsmore("p_q14")
p_desc15 = rsmore("p_q15")
p_desc16 = rsmore("p_q16")
p_desc17 = rsmore("p_q17")
%>
<% If Not rsmore.EOF Or Not rsmore.BOF Then %>
|
Questions & Answers
I HAVEN"T WORK ON THIS QUESTIONS YET* :-( |
|
|
|
|
<% if NOT p_desc1 = "" then %>
|
What is the biggest dick you
have taken?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc1)) %> |
|
<% end if %>
<% if NOT p_desc2 = "" then %>
|
Kinkiest think you have done?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc2)) %> |
|
<% end if %>
<% if NOT p_desc3 = "" then %>
|
Something sexually that you
would like to try some day?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc3)) %> |
|
<% end if %>
<% if NOT p_desc4 = "" then %>
|
What music do you like?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc4)) %> |
|
<% end if %>
<% if NOT p_desc5 = "" then %>
|
What food do you like?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc5)) %> |
|
<% end if %>
<% if NOT p_desc6 = "" then %>
|
Are you a trash talker, if
so, how?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc6)) %> |
|
<% end if %>
<% if NOT p_desc7 = "" then %>
|
Longest Fuck?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc7)) %> |
|
<% end if %>
<% if NOT p_desc8 = "" then %>
|
Who do you admire the most?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc8)) %> |
|
<% end if %>
<% if NOT p_desc9 = "" then %>
|
Name three things you would buy with a million dollars?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc9)) %> |
|
<% end if %>
<% if NOT p_desc10 = "" then %>
|
What pet hates do you have?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc10)) %> |
|
<% end if %>
<% if NOT p_desc11 = "" then %>
|
What are your hobbies?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc11)) %> |
|
<% end if %>
<% if NOT p_desc12 = "" then %>
|
What are your allergies?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc12)) %> |
|
<% end if %>
<% if NOT p_desc13 = "" then %>
|
What's your idea of perfect happiness?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc13)) %> |
|
<% end if %>
<% if NOT p_desc14 = "" then %>
|
What's your greatest fear?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc14)) %> |
|
<% end if %>
<% if NOT p_desc15 = "" then %>
|
What is your greatest extravagance?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc15)) %> |
|
<% end if %>
<% if NOT p_desc16 = "" then %>
|
How would you like to be remembered?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc16)) %> |
|
<% end if %>
<% if NOT p_desc17 = "" then %>
|
What is the most important lesson life has taught you?
|
|
|
<% = DoSpace(Server.HTMLEncode(p_desc17)) %> |
|
<% end if %>
<% end if %>
<% end if %>
|
<% =p_sex %>
,
<% =p_age %> years old
<% If p_photoapprove = "2" then %>
<% '-----------------------------------------
'FIND AND SHOW EXISTING IMAGE (IF ANY)
'-----------------------------------------
aryFileType = split("jpg,jpeg,gif,png",",",-1) 'SPLITS LIST OF ACCEPTABLE FILE TYPES IN CONFIG.ASP INTO ARRAY
numFileLoopCounter = Ubound(aryFileType)
strFileStatus = ""
Do while numFileLoopCounter>-1
thepath = Server.MapPath("ad_photos/" & p_id & "." & aryFileType(numFileLoopCounter))
set fs=CreateObject("Scripting.FileSystemObject")
If fs.FileExists(thepath) then
strFileStatus = " "
numFilePresentCheck = 1
End if
numFileLoopCounter = numFileLoopCounter-1
Loop
response.write(strFileStatus) %> <% END IF %>
|
|

|
|
Profile |

|
Description |
|

|

|
|
User
Name:
|
<% =p_user %>
|
|
Location: |
<% = rs_main("p_location") %> |
|
Relationship: |
<% =p_relationship %> |
|
Body
Type: |
<% If p_body = "0" then %>n/a<% else %><% =p_body %><% END IF %> |
|
Height: |
<% If p_height = "0" then %>n/a<% else %><% =p_height %><% END IF %> |
|
Weight: |
<% If p_weight = "0" then %>n/a<% else %><% =p_weight %> lbs.<% END IF %> |
|
Hair
Type: |
<% If p_hair = "0" then %>n/a<% else %><% =p_hair %><% END IF %> |
|
Ethnicity: |
<% If p_ethnicity = "0" then %>n/a<% else %><% =p_ethnicity %><% END IF %> |
|
Loads: |
<% If p_religion = "0" then %>n/a<% else %><% =p_religion %><% END IF %> |
|
HIV Status: |
<% If p_employ = "0" then %>n/a<% else %><% =p_employ %><% END IF %> |
|
Education: |
<% If p_education = "0" then %>n/a<% else %><% =p_education %><% END IF %> |
|
Dick Size: |
<% If p_marital = "0" then %>n/a<% else %><% =p_marital %><% END IF %> |
|
PNP: |
<% If p_child = "0" then %>n/a<% else %><% =p_child %><% END IF %> |
|
Sex: |
<% If p_wantchild = "0" then %>n/a<% else %><% =p_wantchild %><% END IF %> |
|
Piss: |
<% If p_smoke = "0" then %>n/a<% else %><% =p_smoke %><% END IF %> |
|
Drinks/Smokes: |
<% If p_drink = "0" then %>n/a<% else %><% =p_drink %><% END IF %> |
|
Ad
Expires: |
. <% =p_expdate %>. |
|
|
<% If Not rsQ.EOF Or Not rsQ.BOF then
if NOT request("moreonme") = "true" then %>&moreonme=true"> <% end if
rsQ.Close
set rsQ = nothing
end if%>
(Ad viewed <% =p_views %> times)
|
|
|
![]() |
|
|
<% If p_desc = "" Then %>n/a<% ELSE %><%= DoSpace(Server.HTMLEncode(p_desc)) %>
<% END IF %> |
|
|

|
<% end if %>
<%
rs_main.Close
set rs_main = nothing
MM_conn_STRING.Close
set MM_conn_STRING = nothing
Set rsViews = Nothing
%>