<%@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 ' *** Restrict Access To Page: Grant or deny access to this page Dim MM_authorizedUsers, MM_authFailedURL, MM_grantAccess MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim rs_main_numRows, p_id, p_headline, p_sex, p_desc, p_seek, p_city, p_relationship, p_age, p_height, p_body, p_weight, p_hair, p_ethnicity, p_religion, p_employ, p_education, p_marital, p_child, p_wantchild, p_smoke, p_drink, p_active, rslocav, rslocav_numRows, p_ethnicty, aryFileType, numFileLoopCounter, strFileStatus, callmode, thepath, fs, numFilePresentCheck, p_idd if Request.Querystring("activate")=1 then Dim thequery if (Session("MM_Username") <> "") then p_idd = Session("MM_Username") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open MM_conn_STRING sql1 = "UPDATE p_ads SET p_active = 0, p_expdate = Date ()+30 WHERE p_user = '" + Replace(p_idd, "'", "''") + "' " conn.execute(sql1) conn.close set conn = nothing response.redirect("default.asp?message=8") %> <% elseif Request.Querystring("activate")=2 then if (Session("MM_Username") <> "") then p_idd = Session("MM_Username") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open MM_conn_STRING sql1 = "UPDATE p_ads SET p_active = 1 WHERE p_user = '" + Replace(p_idd, "'", "''") + "' " conn.execute(sql1) conn.close set conn = nothing response.redirect("default.asp?message=7") end if if (Session("MM_Username") <> "") then rsSession__MMColParam = Session("MM_Username") set rs_main = Server.CreateObject("ADODB.Recordset") rs_main.ActiveConnection = MM_conn_STRING rs_main.Source = "SELECT * FROM p_ads WHERE p_user = '" + Replace(rsSession__MMColParam, "'", "''") + "'" rs_main.CursorType = 0 rs_main.CursorLocation = 2 rs_main.LockType = 3 rs_main.Open() rs_main_numRows = 0 If rs_main.EOF Or rs_main.BOF Then %>
  Place Personals Ad Hookup Guide   

*Required Fields

*Position preference *Relationship Type
*Enter a Headline. *Select your Age. *Select your City.
<% set rslocav = Server.CreateObject("ADODB.Recordset") rslocav.ActiveConnection = MM_conn_STRING rslocav.Source = "SELECT * FROM p_locations Order by p_location ASC" rslocav.CursorType = 0 rslocav.CursorLocation = 2 rslocav.LockType = 3 rslocav.Open() rslocav_numRows = 0 Dim repeat21__numRows repeat21__numRows = -1 Dim repeat21__index repeat21__index = 0 rslocav_numRows = rslocav_numRows + repeat21__numRows %>

Optional Fields

Body Type Height Weight
Lbs.
Dick size (inches) Hair Loads Give/Take
Ethnicity Education HIV Status
Bareback Party
Do you drink? Piss preference
 
Description (approx. 2000 characters maximum)
For your own safety, do not include your name, phone number or address. Include your likes/dislikes, aspirations, or the type of person you'd like to meet.
Characters remaining:
Personal Photo An ad with a photo may receive more responses.
Formats: jpg, jpeg, gif, png
Maximum Pixel Size: <% =maxpixelwidth %>w x <% =maxpixelheight %>h
Minimum Pixel Size: <% =minpixelwidth %>w x <% =minpixelheight %>h
Maximum Byte Size: <% =maxbyte %> bytes
Questionnaire

Would you also like to fill out a questionnaire
to be submitted with your ad?

Yes Maybe later
Terms of Service

Read our Terms of Service below.


 
<% elseIf NOT rs_main.EOF Or NOT rs_main.BOF Then p_id = rs_main("p_id") p_headline = rs_main("p_headline") p_sex = rs_main("p_sex") p_desc = rs_main("p_desc") p_seek = rs_main("p_seek") p_city = rs_main("p_city") 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_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_active = rs_main("p_active") set rsQ = Server.CreateObject("ADODB.Recordset") rsQ.ActiveConnection = MM_conn_STRING rsQ.Source = "SELECT p_user FROM p_questions WHERE p_user = '" + Replace(rsSession__MMColParam, "'", "''") + "'" rsQ.CursorType = 0 rsQ.CursorLocation = 2 rsQ.LockType = 3 rsQ.Open() rsQ_numRows = 0 %>
  Edit Personals Ad Hookup Guide   
<% If NOT rsQ.EOF Or NOT rsQ.BOF Then %> <% else %> <% end if %>
<% if p_active=1 then %> <% else %> <% end if %>
>
*Required Fields
*Select your Sex.   *Relationship Type?
*Enter a Headline. *Select your Age. *Select your Location.
<% set rslocav = Server.CreateObject("ADODB.Recordset") rslocav.ActiveConnection = MM_conn_STRING rslocav.Source = "SELECT * FROM p_locations Order by p_location ASC" rslocav.CursorType = 0 rslocav.CursorLocation = 2 rslocav.LockType = 3 rslocav.Open() rslocav_numRows = 0 Dim repeat2__numRows repeat2__numRows = -1 Dim repeat2__index repeat2__index = 0 rslocav_numRows = rslocav_numRows + repeat2__numRows %>
Optional Fields
Body Type Height Weight
" size="3" maxlength="3" class = "fields">Lbs.
Dick Size (inches) Hair Loads Give/Take
Ethnicity Education HIV Status
Bareback Party
Do you drink? Piss preference
 
Description (approx. 2000 characters maximum)
For your own safety, do not include your name, phone number or address. Include your likes/dislikes, aspirations, or the type of person you'd like to meet.
Characters remaining:
Personal Photo An ad with a photo may receive more responses.
Formats: jpg, jpeg, gif, png
Maximum Pixel Size: <% =maxpixelwidth %>w x <% =maxpixelheight %>h
Minimum Pixel Size: <% =minpixelwidth %>w x <% =minpixelheight %>h
Maximum Byte Size: <% =maxbyte %> bytes
<% '----------------------------------------- '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 = "NO IMAGE PRESENT " If callmode<>"new" then 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 end if '----------------------------------------- 'HANDLE LOGO DISPLAY AND UPLOADER BOX '----------------------------------------- response.write(strFileStatus) %>
<% if p_id<>0 AND numFilePresentCheck=1 then %> Tick here to remove this image - To replace, select an alternative above.<% end if %>
Terms of Participation

Read our Terms of Service below.


 

 
<% end if %> <% rs_main.Close rslocav.close MM_conn_STRING.Close set rs_main= nothing set MM_conn_STRING = nothing set rslocav = nothing %>