Nope.
I even tried following a Spooky tutorial. All I can do is display all records. As soon as I put any kind of qualifier in, I get the same error again.
Here's the code from the submitting form:
<%
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("new_page_12_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(1)
Dim arFormDBFields0(1)
Dim arFormValues0(1)
arFormFields0(0) = "EmailAddress"
arFormDBFields0(0) = "EmailAddress"
arFormValues0(0) = Request("EmailAddress")
arFormFields0(1) = "TakenOnlineCourses"
arFormDBFields0(1) = "TakenOnlineCourses"
arFormValues0(1) = Request("TakenOnlineCourses")
arFormFields0(2) = "TakenSafetyCourses"
arFormDBFields0(2) = "TakenSafetyCourses"
arFormValues0(2) = Request("TakenSafetyCourses")
arFormFields0(3) = "ComputerComfort"
arFormDBFields0(3) = "ComputerComfort"
arFormValues0(3) = Request("ComputerComfort")
arFormFields0(4) = "WorkSetting"
arFormDBFields0(4) = "WorkSetting"
arFormValues0(4) = Request("WorkSetting")
arFormFields0(5) = "WorkSettingOther"
arFormDBFields0(5) = "WorkSettingOther"
arFormValues0(5) = Request("WorkSettingOther")
arFormFields0(6) = "AgreeToParticipate"
arFormDBFields0(6) = "AgreeToParticipate"
arFormValues0(6) = Request("AgreeToParticipate")
arFormFields0(7) = "HaveReadConsentDoc"
arFormDBFields0(7) = "HaveReadConsentDoc"
arFormValues0(7) = Request("HaveReadConsentDoc")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
End If
FP_SaveFieldToDB fp_rs, Now, "Timestamp"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
End If
fp_rs.Update
ID = fp_rs(0)
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
FP_FormConfirmation "text/html; charset=windows-1252",_
"Form Confirmation",_
"Record ID "&ID&" - Thank you for submitting the following information:",_
"confirm.asp?ID="& ID,_
"Return to the form."
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Implementation of Virtual Reality</title>
<link rel="stylesheet" type="text/css" href="vrstyle.css" />
</head>
<body>
<div id="layout">
<div id="content">
<h1>Implementation of Virtual Reality Environments in Online Health and
Safety Training<br>
Project Website</h1>
<p class="center"><span class="name">Investigator: Sherry Berghefer, Master's
Candidate</span></p>
<p> </p>
<p class="bold">Please complete the following form in order to register
as a participant.</p>
<form method="POST" action="confirm.asp" name="StudyRegistration">
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"-->
<p>Email address (for communication purposes only):
<input name="EmailAddress" type="text" maxlength="20"
tabindex="1" size="20" /><br />
<br />
Have you ever taken an online course in the past?
<input name="TakenOnlineCourses" type="radio" value="1"
tabindex="2" title="Yes" /> Yes <input name="TakenOnlineCourses"
type="radio" tabindex="2" title="No" value="0" />No<br />
<br />
If yes, have you ever taken online safety training courses?
<input name="TakenSafetyCourses" type="radio" value="1"
tabindex="3" title="Yes" /> Yes <input name="TakenSafetyCourses"
type="radio" tabindex="3" title="No" value="0" />No<br />
<br />
Please rate your comfort level in using a computer to complete tasks?
<select name="ComputerComfort" tabindex="4" size="1">
<option value="99">- Select your comfort level -</option>
<option value="5">Very Comfortable</option>
<option value="4">Somewhat Comfortable</option>
<option value="3">Neutral</option>
<option value="2">Somewhat Uncomfortable</option>
<option value="1">Very Uncomfortable</option>
</select><br />
<br />
What is your usual work setting?
<select name="WorkSetting"
tabindex="5" size="1">
<option value="99">- Select your usual work setting -</option>
<option value="1">Laboratory</option>
<option value="2">Office</option>
<option value="3">Other</option>
</select><br />
<br />
If other, please specify:
<input name="WorkSettingOther" type="text"
style="width: 253px" tabindex="6" size="20" /><br />
<br />
<input name="AgreeToParticipate" type="checkbox" value="1"
tabindex="7" /> I understand that by agreeing to participate in this study,
I am consenting to receive emails directly related to the study from
Sherry Berghefer and/or the Iowa State University
Office of Research Assurances. I also understand that my information
will be kept confidential and that those involved in the study will
not use my email address for any other purpose. <br />
<br />
<input name="HaveReadConsentDoc" type="checkbox" value="1"
tabindex="8" /> I have read the Informed Consent document and have had
adequate opportunity to ask questions. I understand that my participation
is voluntary. I also understand that I may decide to no longer participate
at any time, without penalty. By checking this box, I am volunteering
to participate in this study. <br />
<br />
<input name="Submit" type="submit" value="Submit Registration"
tabindex="9" /></p>
</form>
</div>
</div>
</body>
</html>
and the confirmation page:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Implementation of Virtual Reality</title>
<link rel="stylesheet" type="text/css" href="vrstyle.css" />
</head>
<body>
<div id="layout">
<div id="content">
<h1>Implementation
of Virtual Reality Environments in Online Health and Safety Training<br>
Project Website</h1>
<p class="center"><span class="name">Investigator: Sherry Berghefer, Master's Candidate</span></p>
<h2>REGISTRATION COMPLETE!</h2>
<p>Thank you for registering as a participant. Please print this page for your
records. You will need your participant number to take the training.</p>
<div id="confirmation">
<!--#include file="_fpclass/fpdblib.inc"-->
<%
fp_sQry="SELECT * FROM Registration"
fp_sDefault=""
fp_sNoRecords="No records returned."
fp_sDataConn="vr"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&ID=3&EmailAddress=202&TakenOnlineCourses=11&TakenSafetyCourses=11&ComputerComfort=3&WorkSetting=3&WorkSettingOther=202&AgreeToParticipate=11&HaveReadConsentDoc=11&Remote_computer_name=202&User_name=202&Browser_type=202&Timestamp=135&VTI-GROUP=202&"
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<p>You
registered on <%=FP_FieldVal(fp_rs,"Timestamp")%>. Your participant
number is <%=Request.Querystring("ID")%>.</p>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
</p>
</div><p>
<a href="vr/index.html">Take the training --></a></p></div></div>
</body>
</html>
