<%@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.		
'===============================================
%>
<!--#include file="config.asp"-->
<!--#include file="connection/cookie.asp"-->
<!--#include file="functions.asp"-->
<%

' *** 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 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

Dim Session__MMColParam
Session__MMColParam= session("MM_Username")

set rsAd = Server.CreateObject("ADODB.Recordset")
rsAd.ActiveConnection = MM_conn_STRING
rsAd.Source = "SELECT p_id FROM p_ads WHERE p_user = '" + Replace(Session__MMColParam, "'", "''") + "'"
rsAd.CursorType = 0
rsAd.CursorLocation = 2
rsAd.LockType = 3
rsAd.Open()
rsAd_numRows = 0

If Not rsAd.EOF Or Not rsAd.BOF Then

Function sqlsafe(s) 
pos = InStr(s, "'")
      While pos > 0
           s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)
           pos = InStr(pos + 2, s, "'")
      Wend
sqlsafe=s
End Function

If request.form("B1") = "Submit Answers" then

If request.form("p_q1") = "" AND request.form("p_q2") = "" AND request.form("p_q3") = "" AND request.form("p_q4") = "" AND request.form("p_q5") = "" AND request.form("p_q6") = "" AND request.form("p_q7") = "" AND request.form("p_q8") = "" AND request.form("p_q9") = "" AND request.form("p_q10") = "" AND request.form("p_q11") = "" AND request.form("p_q12") = "" AND request.form("p_q13") = "" AND request.form("p_q14") = "" AND request.form("p_q15") = "" AND request.form("p_q16") = "" AND request.form("p_q17") = "" Then

rsAd.close
Set rsAd = nothing
MM_conn_STRING.close
Set MM_conn_STRING = nothing
response.redirect("questions.asp?message=56")

End if

user_id = session("MM_Username")
p_q1 = request.form("p_q1")
p_q2 = request.form("p_q2")
p_q3 = request.form("p_q3")
p_q4 = request.form("p_q4")
p_q5 = request.form("p_q5")
p_q6 = request.form("p_q6")
p_q7 = request.form("p_q7")
p_q8 = request.form("p_q8")
p_q9 = request.form("p_q9")
p_q10 = request.form("p_q10")
p_q11 = request.form("p_q11")
p_q12 = request.form("p_q12")
p_q13 = request.form("p_q13")
p_q14 = request.form("p_q14")
p_q15 = request.form("p_q15")
p_q16 = request.form("p_q16")
p_q17 = request.form("p_q17")

		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open MM_conn_STRING
			sql1 = "insert into p_questions (p_user, 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) values('"& user_id & "','"& sqlsafe(p_q1) & "','"& sqlsafe(p_q2) & "','"& sqlsafe(p_q3) & "','"& sqlsafe(p_q4) & "','"& sqlsafe(p_q5) & "','"& sqlsafe(p_q6) & "','"& sqlsafe(p_q7) & "','"& sqlsafe(p_q8) & "','"& sqlsafe(p_q9) & "','"& sqlsafe(p_q10) & "','"& sqlsafe(p_q11) & "','"& sqlsafe(p_q12) & "','"& sqlsafe(p_q13) & "','"& sqlsafe(p_q14) & "','"& sqlsafe(p_q15) & "','"& sqlsafe(p_q16) & "','"& sqlsafe(p_q17) & "')"
			conn.execute(sql1)

			conn.close
			set conn = nothing
			rsAd.close
            Set rsAd = nothing
			MM_conn_STRING.close
            Set MM_conn_STRING = nothing
			response.redirect("default.asp?message=55")

elseIf request.form("B1") = "Edit Answers" then

If request.form("p_q1") = "" AND request.form("p_q2") = "" AND request.form("p_q3") = "" AND request.form("p_q4") = "" AND request.form("p_q5") = "" AND request.form("p_q6") = "" AND request.form("p_q7") = "" AND request.form("p_q8") = "" AND request.form("p_q9") = "" AND request.form("p_q10") = "" AND request.form("p_q11") = "" AND request.form("p_q12") = "" AND request.form("p_q13") = "" AND request.form("p_q14") = "" AND request.form("p_q15") = "" AND request.form("p_q16") = "" AND request.form("p_q17") = "" Then

rsAd.close
Set rsAd = nothing
MM_conn_STRING.close
Set MM_conn_STRING = nothing
response.redirect("questions.asp?message=56")

End if

user_id = session("MM_Username")
p_q1 = request.form("p_q1")
p_q2 = request.form("p_q2")
p_q3 = request.form("p_q3")
p_q4 = request.form("p_q4")
p_q5 = request.form("p_q5")
p_q6 = request.form("p_q6")
p_q7 = request.form("p_q7")
p_q8 = request.form("p_q8")
p_q9 = request.form("p_q9")
p_q10 = request.form("p_q10")
p_q11 = request.form("p_q11")
p_q12 = request.form("p_q12")
p_q13 = request.form("p_q13")
p_q14 = request.form("p_q14")
p_q15 = request.form("p_q15")
p_q16 = request.form("p_q16")
p_q17 = request.form("p_q17")

set rsup = Server.CreateObject("ADODB.Command")
rsup.ActiveConnection = MM_conn_STRING
rsup.CommandText = "UPDATE p_questions  SET p_q1 = '" + Replace(p_q1, "'", "''") + "', p_q2 = '" + Replace(p_q2, "'", "''") + "', p_q3 = '" + Replace(p_q3, "'", "''") + "', p_q4 = '" + Replace(p_q4, "'", "''") + "', p_q5 = '" + Replace(p_q5, "'", "''") + "', p_q6 = '" + Replace(p_q6, "'", "''") + "', p_q7 = '" + Replace(p_q7, "'", "''") + "', p_q8 = '" + Replace(p_q8, "'", "''") + "', p_q9 = '" + Replace(p_q9, "'", "''") + "', p_q10 = '" + Replace(p_q10, "'", "''") + "', p_q11 = '" + Replace(p_q11, "'", "''") + "', p_q12 = '" + Replace(p_q12, "'", "''") + "', p_q13 = '" + Replace(p_q13, "'", "''") + "', p_q14 = '" + Replace(p_q14, "'", "''") + "', p_q15 = '" + Replace(p_q15, "'", "''") + "', p_q16 = '" + Replace(p_q16, "'", "''") + "', p_q17 = '" + Replace(p_q17, "'", "''") + "' WHERE p_user = '" + Replace(user_id, "'", "''") + "'"
rsup.CommandType = 1
rsup.CommandTimeout = 0
rsup.Prepared = true
rsup.Execute()

            set rsup = nothing
			rsAd.close
            Set rsAd = nothing
			MM_conn_STRING.close
            Set MM_conn_STRING = nothing
			response.redirect("default.asp?message=57")

elseIf request.form("B1") = "Delete Questionnaire" then

user_id = session("MM_Username")

set rsDelete = Server.CreateObject("ADODB.Command")
rsDelete.ActiveConnection = MM_conn_STRING
rsDelete.CommandText = "delete from p_questions WHERE p_user='" + Replace(user_id, "'", "''") + "'"
rsDelete.CommandType = 1
rsDelete.CommandTimeout = 0
rsDelete.Prepared = true
rsDelete.Execute()

            set rsDelete = nothing
			rsAd.close
            Set rsAd = nothing
			MM_conn_STRING.close
            Set MM_conn_STRING = nothing
			response.redirect("default.asp?message=58")

end if

set rsQ = Server.CreateObject("ADODB.Recordset")
rsQ.ActiveConnection = MM_conn_STRING
rsQ.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(Session__MMColParam, "'", "''") + "'"
rsQ.CursorType = 0
rsQ.CursorLocation = 2
rsQ.LockType = 3
rsQ.Open()
rsQ_numRows = 0

%>
<!--#include file="header.asp"-->
<SCRIPT LANGUAGE="JavaScript">

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
   var submitcount=0;
   function checkSubmit() {

      if (submitcount == 0)
      {
      submitcount++;
      document.Surv.submit();
      }
   }

function textCounter(field, countfield, maxlimit) {
  if (field.value.length > maxlimit)
      {field.value = field.value.substring(0, maxlimit);}
      else
      {countfield.value = maxlimit - field.value.length;}
  }
//  End -->
</script>
<form method="POST" action="questions.asp" name="form199">
<br>&nbsp;&nbsp;<b>Questionnaire</b><font size="2"> (optional)</font><br>
&nbsp;&nbsp;<font size="2">Answer as many questions you would like, but atleast<br>&nbsp;&nbsp;one is required. 255 characters max. Your questionnaire<br>&nbsp;&nbsp;will be placed with your ad.</font><br><br>

&nbsp;&nbsp;What are your compatible star signs?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q1" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q1,this.form.remLentext1,255);" onKeyUp="textCounter(this.form.p_q1,this.form.remLentext1,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q1") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext1 size=3 value=255><br><br>
&nbsp;&nbsp;What are your not compatible star signs?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q2" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q2,this.form.remLentext2,255);" onKeyUp="textCounter(this.form.p_q2,this.form.remLentext2,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q2") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext2 size=3 value=255><br><br>
&nbsp;&nbsp;What inspires you? <br>
&nbsp;&nbsp;<textarea class="fields" name="p_q3" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q3,this.form.remLentext3,255);" onKeyUp="textCounter(this.form.p_q3,this.form.remLentext3,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q3") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext3 size=3 value=255><br><br>
&nbsp;&nbsp;What music do you like?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q4" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q4,this.form.remLentext4,255);" onKeyUp="textCounter(this.form.p_q4,this.form.remLentext4,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q4") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext4 size=3 value=255><br><br>
&nbsp;&nbsp;What food do you like?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q5" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q5,this.form.remLentext5,255);" onKeyUp="textCounter(this.form.p_q5,this.form.remLentext5,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q5") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext5 size=3 value=255><br><br>
&nbsp;&nbsp;Are you a talker or a listener?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q6" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q6,this.form.remLentext6,255);" onKeyUp="textCounter(this.form.p_q6,this.form.remLentext6,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q6") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext6 size=3 value=255><br><br>
&nbsp;&nbsp;If you had a time machine what year would you like go to?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q7" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q7,this.form.remLentext7,255);" onKeyUp="textCounter(this.form.p_q7,this.form.remLentext7,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q7") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext7 size=3 value=255><br><br>
&nbsp;&nbsp;Who do you admire the most in life?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q8" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q8,this.form.remLentext8,255);" onKeyUp="textCounter(this.form.p_q8,this.form.remLentext8,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q8") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext8 size=3 value=255><br><br>
&nbsp;&nbsp;Name three things you would buy with a million dollars?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q9" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q9,this.form.remLentext9,255);" onKeyUp="textCounter(this.form.p_q9,this.form.remLentext9,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q9") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext9 size=3 value=255><br><br>
&nbsp;&nbsp;What pet hates do you have?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q10" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q10,this.form.remLentext10,255);" onKeyUp="textCounter(this.form.p_q10,this.form.remLentext10,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q10") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext10 size=3 value=255><br><br>
&nbsp;&nbsp;What are your hobbies?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q11" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q11,this.form.remLentext11,255);" onKeyUp="textCounter(this.form.p_q11,this.form.remLentext11,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q11") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext11 size=3 value=255><br><br>
&nbsp;&nbsp;What are your allergies?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q12" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q12,this.form.remLentext12,255);" onKeyUp="textCounter(this.form.p_q12,this.form.remLentext12,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q12") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext12 size=3 value=255><br><br>
&nbsp;&nbsp;What's your idea of perfect happiness?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q13" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q13,this.form.remLentext13,255);" onKeyUp="textCounter(this.form.p_q13,this.form.remLentext13,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q13") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext13 size=3 value=255><br><br>
&nbsp;&nbsp;What's your greatest fear?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q14" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q14,this.form.remLentext14,255);" onKeyUp="textCounter(this.form.p_q14,this.form.remLentext14,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q14") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext14 size=3 value=255><br><br>
&nbsp;&nbsp;What is your greatest extravagance?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q15" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q15,this.form.remLentext15,255);" onKeyUp="textCounter(this.form.p_q15,this.form.remLentext15,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q15") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext15 size=3 value=255><br><br>
&nbsp;&nbsp;How would you like to be remembered?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q16" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q16,this.form.remLentext16,255);" onKeyUp="textCounter(this.form.p_q16,this.form.remLentext16,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q16") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext16 size=3 value=255><br><br>
&nbsp;&nbsp;What is the most important lesson life has taught you?<br>
&nbsp;&nbsp;<textarea class="fields" name="p_q17" cols="45" rows="2" onKeyDown="textCounter(this.form.p_q17,this.form.remLentext17,255);" onKeyUp="textCounter(this.form.p_q17,this.form.remLentext17,255);"><% If Not rsQ.EOF Or Not rsQ.BOF Then %><%= rsQ("p_q17") %><% end if %></textarea><br><font face="Verdana, Arial, Helvetica, sans-serif" size="1">&nbsp;&nbsp;Characters remaining: </font><input type=box readonly class=fields name=remLentext17 size=3 value=255><br><br>
<% If Not rsQ.EOF Or Not rsQ.BOF Then %>&nbsp;&nbsp;<input class="fields" type="submit" value="Edit Answers" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;<input class="fields" type="submit" value="Delete Questionnaire" name="B1"><% else %>&nbsp;&nbsp;<input class="fields" type="submit" value="Submit Answers" name="B1"><% end if %>
</form>
<!--#include file="footer.asp"-->
<%
rsQ.close
set rsQ = nothing
end if 
%>
<%
rsAd.close
Set rsAd = nothing
MM_conn_STRING.close
Set MM_conn_STRING = nothing
%>