<%@ 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

  

">
<% If NOT rsSession.EOF Or NOT rsSession.BOF Then %><% if rsSession("p_access") = "admin" OR rsSession("p_access") = "admin2" Then %><% end if %><% end if %>

  <% = 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 %>