PDA

View Full Version : Please help

epgreen
02-10-2004, 05:38 AM
I can't get this asp code to work. All of the .inc files are in the same directory as the asp file. When I run the file, it skips to the logoff command...bypassing all of the pages that were supposed to be called up.

Can anyone help? This is very urgent. I am trying my best to modify a project someone helped me with, but I am not familiar with asp and php.

Thanks
Eric


<% Option Explicit %>
<!--#INCLUDE FILE="cacheControl.inc"-->
<!--#INCLUDE FILE="dbconnector.inc"-->
<!--#INCLUDE FILE="password.inc"-->
<!--#include file="validate.inc"-->
<html>
<head>
<title>Online Jury</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>


[b]
<%
Dim ScriptName, NextPage, Password
ScriptName = Request.ServerVariables("SCRIPT_NAME")

NextPage = Request.Form("NextPage")
If Not NextPage > "" Then
NextPage = Request.QueryString("NextPage")
End If

Password = Request.Form("password")
If Not Password > "" Then
Password = Request.QueryString("password")
End If

If ((Password <> PassPhraseUSA) and (NextPage = "consentform")) Then
NextPage = "wrongpass"
End If

Select Case NextPage
Case ""
Call Home
Case "consentform"
Call Consent
Case "wrongpass"
Call WrongPass
Case "instruction"
Call Instructions
Case "docketone"
Call Done
Case "dockettwo"
Call Dtwo
Case "psychological"
Call Psy
Case "confidentialone"
Call Conone
Case "confidentialtwo"
Call Contwo
Case "confidentialthree"
Call Conthree
Case "confidentialfour"
Call Confour
Case "conclusion"
Call Agreeordisagreeone
Case "agreeone"
Call Agreescaleone
Case "credibilityone"
Call Credone
Case "tpione"
Call TpiA
Case "conclusiontwo"
Call Agreeordisagreetwo
Case "agreetwo"
Call Agreescaletwo
Case "credibilitytwo"
Call Credtwo
Case "als"
Call Alssurvey
Case "aid"
Call Aidsurvey
Case "kid"
Call Kidsurvey
Case "sds"
Call Sdssurvey
Case "omi"
Call Omisurvey
Case "dem"
Call Demsurvey
Case "done"
Call EndSurvey
Case "logout"
Call LogOut
End Select

%>





<%
Sub Home
%>
<!--#include file="home.inc"-->
<%
End Sub

Sub Consent
%>
<!--#include file="consentform.inc"-->
<%
End Sub

Sub WrongPass
%>
<!--#include file="wrongpass.inc"-->
<%
End Sub

Sub Instructions
%>
<!--#include file="instructionpage.inc"-->
<%
End Sub

Sub Done
Session("SurveySQLp1") = "INSERT INTO[EYEC] (q1, q2, q3, q4, q5, q6, q7, q8, q9, q10, q11, q12, q13, q14, q15, q16, q17, q18, q19, q25, q26, q27, q28, q29, q30, q31, q32, q33, q34, q35, q36, q37, q38, q39, q40, q41, q42, q43, q44, q45, q46, q47, q48, q49, q50, q51, q52, q53, q54, q55, q56, q57, q58, q59, q60, q61, q62, q63, q64, q65, q66, q67, q68, q69, q70, q71, q72, q73, q74, q75, q76, q77, q78, q79, q80, q81, q82, q83, q84, q85, q86, q87, q88, q89, q90, q91, q92, q93, q94, q95, q96, q97, q98, q99, q100, q101, q102, q103, q104, q105, q106, q107, q108, q109, q110, q111, q112, q113, q114, q115, q116, q117, q118, q119, q120, q121, q122, q123, q124, q125, q126, q127, q128, q129, q130, q131) VALUES ("
%>
<!--#include file="docketone.inc"-->
<%
End Sub

Sub Dtwo
Session("SurveySQLp2") = "'" & Request.Form("R1") & "', "
%>
<!--#include file="dockettwo.inc"-->
<%
End Sub

Sub Psy
Session("SurveySQLp3") = "'" & Request.Form("R2") & "', "
%>
<!--#include file="psy.inc"-->
<%
End Sub

Sub Conone
Session("SurveySQLp4") = "'" & Request.Form("R3") & "', "
%>
<!--#include file="confidentialone.inc"-->
<%
End Sub

Sub Contwo
Session("SurveySQLp5") = "'" & Request.Form("R4") & "', "
%>
<!--#include file="confidentialtwo.inc"-->
<%
End Sub

Sub Conthree
Session("SurveySQLp6") = "'" & Request.Form("R5") & "', "
%>
<!--#include file="confidentialthree.inc"-->
<%
End Sub

Sub Confour
Session("SurveySQLp7") = "'" & Request.Form("R6") & "', "
%>
<!--#include file="confidentialfour.inc"-->
<%
End Sub


Sub Agreeordisagreeone
Session("SurveySQLp8") = "'" & Request.Form("R7") & "', "
%>
<!--#include file="agreeordisagreeone.inc"-->
<%
End Sub

Sub Agreescaleone
Session("SurveySQLp9") = "'" & Request.Form("R8") & "', "
%>
<!--#include file="agreescaleone.inc"-->
<%
End Sub

Sub Credone
Session("SurveySQLp10") = "'" & Request.Form("R9") & "', " & "'" & Request.Form("R10") & "', " & "'" & Request.Form("R11") & "', " & "'" & Request.Form("R12") & "', " & "'" & Request.Form("R13") & "', "
%>
<!--#include file="credone.inc"-->
<%
End Sub

Sub TpiA
Session("SurveySQLp11") = "'" & Request.Form("R14") & "', " & "'" & Request.Form("R15") & "', " & "'" & Request.Form("R16") & "', " & "'" & Request.Form("R17") & "', " & "'" & Request.Form("R18") & "', "
%>
<!--#include file="tpisourceone.inc"-->
<%
End Sub

Sub Agreeordisagreetwo
Session("SurveySQLp12") = "'" & Request.Form("R19") & "', "
%>
<!--#include file="agreeordisagreetwo.inc"-->
<%
End Sub

Sub Agreescaletwo
Session("SurveySQLp13") = "'" & Request.Form("R25") & "', "
%>
<!--#include file="agreescaletwo.inc"-->
<%
End Sub

Sub Credtwo
Session("SurveySQLp14") = "'" & Request.Form("R26") & "', " & "'" & Request.Form("R27") & "', " & "'" & Request.Form("R28") & "', " & "'" & Request.Form("R29") & "', " & "'" & Request.Form("R30") & "', "
%>
<!--#include file="credtwo.inc"-->
<%
End Sub

Sub Alssurvey
Session("SurveySQLp15") = "'" & Request.Form("R31") & "', " & "'" & Request.Form("R32") & "', " & "'" & Request.Form("R33") & "', " & "'" & Request.Form("R34") & "', " & "'" & Request.Form("R35") & "', "
%>
<!--#include file="alssurvey.inc"-->
<%
End Sub

Sub Aidsurvey
Session("SurveySQLp16") = "'" & Request.Form("R36") & "', " & "'" & Request.Form("R37") & "', " & "'" & Request.Form("R38") & "', " & "'" & Request.Form("R39") & "', " & "'" & Request.Form("R40") & "', " "'" & Request.Form("R41") & "', " & "'" & Request.Form("R42") & "', " & "'" & Request.Form("R43") & "', " & "'" & Request.Form("R44") & "', " & "'" & Request.Form("R45") & "', " "'" & Request.Form("R46") & "', " & "'" & Request.Form("R47") & "', " & "'" & Request.Form("R48") & "', " & "'" & Request.Form("R49") & "', " & "'" & Request.Form("R50") & "', " "'" & Request.Form("R51") & "', " & "'" & Request.Form("R52") & "', " & "'" & Request.Form("R53") & "', " & "'" & Request.Form("R54") & "', " & "'" & Request.Form("R55") & "', " "'" & Request.Form("R56") & "', " & "'" & Request.Form("R57") & "', " & "'" & Request.Form("R58") & "', " & "'" & Request.Form("R59") & "', "
%>
<!--#include file="aidsurvey.inc"-->
<%
End Sub

Sub Kidsurvey
Session("SurveySQLp17") = "'" & Request.Form("R60") & "', " & "'" & Request.Form("R61") & "', " & "'" & Request.Form("R62") & "', " & "'" & Request.Form("R63") & "', " & "'" & Request.Form("R64") & "', " "'" & Request.Form("R65") & "', " & "'" & Request.Form("R66") & "', " & "'" & Request.Form("R67") & "', " & "'" & Request.Form("R68") & "', " & "'" & Request.Form("R69") & "', " "'" & Request.Form("R70") & "', " & "'" & Request.Form("R71") & "', " & "'" & Request.Form("R72") & "', " & "'" & Request.Form("R73") & "', " & "'" & Request.Form("R74") & "', " "'" & Request.Form("R75") & "', " & "'" & Request.Form("R76") & "', " & "'" & Request.Form("R77") & "', " & "'" & Request.Form("R78") & "', " & "'" & Request.Form("R79") & "', "
%>
<!--#include file="kidsurvey.inc"-->
<%
End Sub

Sub Sdssurvey
Session("SurveySQLp18") = "'" & Request.Form("R80") & "', " & "'" & Request.Form("R81") & "', " & "'" & Request.Form("R82") & "', " & "'" & Request.Form("R83") & "', " & "'" & Request.Form("R84") & "', " "'" & Request.Form("R85") & "', " & "'" & Request.Form("R86") & "', "
%>
<!--#include file="sdssurvey.inc"-->
<%
End Sub

Sub Omisurvey
Session("SurveySQLp19") = "'" & Request.Form("R87") & "', " & "'" & Request.Form("R88") & "', " & "'" & Request.Form("R89") & "', " & "'" & Request.Form("R90") & "', " & "'" & Request.Form("R91") & "', " "'" & Request.Form("R92") & "', " & "'" & Request.Form("R93") & "', " & "'" & Request.Form("R94") & "', " & "'" & Request.Form("R95") & "', " & "'" & Request.Form("R96") & "', " "'" & Request.Form("R97") & "', " & "'" & Request.Form("R98") & "', " & "'" & Request.Form("R99") & "', " & "'" & Request.Form("R100") & "', " "'" & Request.Form("R101") & "', " & "'" & Request.Form("R102") & "', " & "'" & Request.Form("R103") & "', " & "'" & Request.Form("R104") & "', " & "'" & Request.Form("R105") & "', " "'" & Request.Form("R106") & "', "
%>
<!--#include file="omisurvey.inc"-->
<%
End Sub

Sub Demsurvey
Session("SurveySQLp20") = "'" & Request.Form("R107") & "', " & "'" & Request.Form("R108") & "', " & "'" & Request.Form("R109") & "', " & "'" & Request.Form("R110") & "', " & "'" & Request.Form("R111") & "', " "'" & Request.Form("R112") & "', " & "'" & Request.Form("R113") & "', " & "'" & Request.Form("R114") & "', " & "'" & Request.Form("R115") & "', " & "'" & Request.Form("R116") & "', " "'" & Request.Form("R117") & "', " & "'" & Request.Form("R118") & "', " & "'" & Request.Form("R119") & "', " & "'" & Request.Form("R120") & "', " & "'" & Request.Form("R121") & "', " "'" & Request.Form("R122") & "', " & "'" & Request.Form("R123") & "', " & "'" & Request.Form("R124") & "', "
%>
<!--#include file="demsurvey.inc"-->
<%
End Sub

Sub EndSurvey
Session Session("SurveySQLp21") = "'" & Request.Form("R125") & "', " "'" & Request.Form("R126") & "', " "'" & escape(Request.Form("R127")) & "', " "'" & Request.Form("R128") & "', " "'" & Request.Form("R129") & "', " "'" & Request.Form("R130") & "', " "'" & Request.Form("R131")) & "')"
Session("SurveySQL") = Session("SurveySQLp1") & Session("SurveySQLp2") & Session("SurveySQLp3") & Session("SurveySQLp4") & Session("SurveySQLp5") & Session("SurveySQLp6") & Session("SurveySQLp7") & Session("SurveySQLp8") & Session("SurveySQLp9") & Session("SurveySQLp10") & Session("SurveySQLp11") & Session("SurveySQLp12") & Session("SurveySQLp13") & Session("SurveySQLp14") & Session("SurveySQLp15") & Session("SurveySQLp16") & Session("SurveySQLp17") & Session("SurveySQLp18") & Session("SurveySQLp19") & Session("SurveySQLp20") & Session("SurveySQLp21")
%>
Click to Finish Experiment


<A HREF="jury.asp?NextPage=logout">log out</A>

<!--#include file="logout.inc"-->
<%
Openconnection("surveyDB.mdb")
Openrecordset Session("SurveySQL")
Closeconnection
End Sub

Sub LogOut
Session.Abandon
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
window.location="http://www.cla.sc.edu/psyc/students/greenep2/jury/debrief.htm";
//-->
</SCRIPT>
<%
End Sub
%>
</body>
</html>
bruce
02-10-2004, 06:50 AM
Does your global.asa file have any code that require user to login (in the session load section)

[b]quote:Originally posted by epgreen

I can't get this asp code to work. All of the .inc files are in the same directory as the asp file. When I run the file, it skips to the logoff command...bypassing all of the pages that were supposed to be called up.

Can anyone help? This is very urgent. I am trying my best to modify a project someone helped me with, but I am not familiar with asp and php.

Thanks
Eric


<% Option Explicit %>
<!--#INCLUDE FILE="cacheControl.inc"-->
<!--#INCLUDE FILE="dbconnector.inc"-->
<!--#INCLUDE FILE="password.inc"-->
<!--#include file="validate.inc"-->
<html>
<head>
<title>Online Jury</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>


[b]
<%
Dim ScriptName, NextPage, Password
ScriptName = Request.ServerVariables("SCRIPT_NAME")

NextPage = Request.Form("NextPage")
If Not NextPage > "" Then
NextPage = Request.QueryString("NextPage")
End If

Password = Request.Form("password")
If Not Password > "" Then
Password = Request.QueryString("password")
End If

If ((Password <> PassPhraseUSA) and (NextPage = "consentform")) Then
NextPage = "wrongpass"
End If

Select Case NextPage
Case ""
Call Home
Case "consentform"
Call Consent
Case "wrongpass"
Call WrongPass
Case "instruction"
Call Instructions
Case "docketone"
Call Done
Case "dockettwo"
Call Dtwo
Case "psychological"
Call Psy
Case "confidentialone"
Call Conone
Case "confidentialtwo"
Call Contwo
Case "confidentialthree"
Call Conthree
Case "confidentialfour"
Call Confour
Case "conclusion"
Call Agreeordisagreeone
Case "agreeone"
Call Agreescaleone
Case "credibilityone"
Call Credone
Case "tpione"
Call TpiA
Case "conclusiontwo"
Call Agreeordisagreetwo
Case "agreetwo"
Call Agreescaletwo
Case "credibilitytwo"
Call Credtwo
Case "als"
Call Alssurvey
Case "aid"
Call Aidsurvey
Case "kid"
Call Kidsurvey
Case "sds"
Call Sdssurvey
Case "omi"
Call Omisurvey
Case "dem"
Call Demsurvey
Case "done"
Call EndSurvey
Case "logout"
Call LogOut
End Select

%>





<%
Sub Home
%>
<!--#include file="home.inc"-->
<%
End Sub

Sub Consent
%>
<!--#include file="consentform.inc"-->
<%
End Sub

Sub WrongPass
%>
<!--#include file="wrongpass.inc"-->
<%
End Sub

Sub Instructions
%>
<!--#include file="instructionpage.inc"-->
<%
End Sub

Sub Done
Session("SurveySQLp1") = "INSERT INTO[EYEC] (q1, q2, q3, q4, q5, q6, q7, q8, q9, q10, q11, q12, q13, q14, q15, q16, q17, q18, q19, q25, q26, q27, q28, q29, q30, q31, q32, q33, q34, q35, q36, q37, q38, q39, q40, q41, q42, q43, q44, q45, q46, q47, q48, q49, q50, q51, q52, q53, q54, q55, q56, q57, q58, q59, q60, q61, q62, q63, q64, q65, q66, q67, q68, q69, q70, q71, q72, q73, q74, q75, q76, q77, q78, q79, q80, q81, q82, q83, q84, q85, q86, q87, q88, q89, q90, q91, q92, q93, q94, q95, q96, q97, q98, q99, q100, q101, q102, q103, q104, q105, q106, q107, q108, q109, q110, q111, q112, q113, q114, q115, q116, q117, q118, q119, q120, q121, q122, q123, q124, q125, q126, q127, q128, q129, q130, q131) VALUES ("
%>
<!--#include file="docketone.inc"-->
<%
End Sub

Sub Dtwo
Session("SurveySQLp2") = "'" & Request.Form("R1") & "', "
%>
<!--#include file="dockettwo.inc"-->
<%
End Sub

Sub Psy
Session("SurveySQLp3") = "'" & Request.Form("R2") & "', "
%>
<!--#include file="psy.inc"-->
<%
End Sub

Sub Conone
Session("SurveySQLp4") = "'" & Request.Form("R3") & "', "
%>
<!--#include file="confidentialone.inc"-->
<%
End Sub

Sub Contwo
Session("SurveySQLp5") = "'" & Request.Form("R4") & "', "
%>
<!--#include file="confidentialtwo.inc"-->
<%
End Sub

Sub Conthree
Session("SurveySQLp6") = "'" & Request.Form("R5") & "', "
%>
<!--#include file="confidentialthree.inc"-->
<%
End Sub

Sub Confour
Session("SurveySQLp7") = "'" & Request.Form("R6") & "', "
%>
<!--#include file="confidentialfour.inc"-->
<%
End Sub


Sub Agreeordisagreeone
Session("SurveySQLp8") = "'" & Request.Form("R7") & "', "
%>
<!--#include file="agreeordisagreeone.inc"-->
<%
End Sub

Sub Agreescaleone
Session("SurveySQLp9") = "'" & Request.Form("R8") & "', "
%>
<!--#include file="agreescaleone.inc"-->
<%
End Sub

Sub Credone
Session("SurveySQLp10") = "'" & Request.Form("R9") & "', " & "'" & Request.Form("R10") & "', " & "'" & Request.Form("R11") & "', " & "'" & Request.Form("R12") & "', " & "'" & Request.Form("R13") & "', "
%>
<!--#include file="credone.inc"-->
<%
End Sub

Sub TpiA
Session("SurveySQLp11") = "'" & Request.Form("R14") & "', " & "'" & Request.Form("R15") & "', " & "'" & Request.Form("R16") & "', " & "'" & Request.Form("R17") & "', " & "'" & Request.Form("R18") & "', "
%>
<!--#include file="tpisourceone.inc"-->
<%
End Sub

Sub Agreeordisagreetwo
Session("SurveySQLp12") = "'" & Request.Form("R19") & "', "
%>
<!--#include file="agreeordisagreetwo.inc"-->
<%
End Sub

Sub Agreescaletwo
Session("SurveySQLp13") = "'" & Request.Form("R25") & "', "
%>
<!--#include file="agreescaletwo.inc"-->
<%
End Sub

Sub Credtwo
Session("SurveySQLp14") = "'" & Request.Form("R26") & "', " & "'" & Request.Form("R27") & "', " & "'" & Request.Form("R28") & "', " & "'" & Request.Form("R29") & "', " & "'" & Request.Form("R30") & "', "
%>
<!--#include file="credtwo.inc"-->
<%
End Sub

Sub Alssurvey
Session("SurveySQLp15") = "'" & Request.Form("R31") & "', " & "'" & Request.Form("R32") & "', " & "'" & Request.Form("R33") & "', " & "'" & Request.Form("R34") & "', " & "'" & Request.Form("R35") & "', "
%>
<!--#include file="alssurvey.inc"-->
<%
End Sub

Sub Aidsurvey
Session("SurveySQLp16") = "'" & Request.Form("R36") & "', " & "'" & Request.Form("R37") & "', " & "'" & Request.Form("R38") & "', " & "'" & Request.Form("R39") & "', " & "'" & Request.Form("R40") & "', " "'" & Request.Form("R41") & "', " & "'" & Request.Form("R42") & "', " & "'" & Request.Form("R43") & "', " & "'" & Request.Form("R44") & "', " & "'" & Request.Form("R45") & "', " "'" & Request.Form("R46") & "', " & "'" & Request.Form("R47") & "', " & "'" & Request.Form("R48") & "', " & "'" & Request.Form("R49") & "', " & "'" & Request.Form("R50") & "', " "'" & Request.Form("R51") & "', " & "'" & Request.Form("R52") & "', " & "'" & Request.Form("R53") & "', " & "'" & Request.Form("R54") & "', " & "'" & Request.Form("R55") & "', " "'" & Request.Form("R56") & "', " & "'" & Request.Form("R57") & "', " & "'" & Request.Form("R58") & "', " & "'" & Request.Form("R59") & "', "
%>
<!--#include file="aidsurvey.inc"-->
<%
End Sub

Sub Kidsurvey
Session("SurveySQLp17") = "'" & Request.Form("R60") & "', " & "'" & Request.Form("R61") & "', " & "'" & Request.Form("R62") & "', " & "'" & Request.Form("R63") & "', " & "'" & Request.Form("R64") & "', " "'" & Request.Form("R65") & "', " & "'" & Request.Form("R66") & "', " & "'" & Request.Form("R67") & "', " & "'" & Request.Form("R68") & "', " & "'" & Request.Form("R69") & "', " "'" & Request.Form("R70") & "', " & "'" & Request.Form("R71") & "', " & "'" & Request.Form("R72") & "', " & "'" & Request.Form("R73") & "', " & "'" & Request.Form("R74") & "', " "'" & Request.Form("R75") & "', " & "'" & Request.Form("R76") & "', " & "'" & Request.Form("R77") & "', " & "'" & Request.Form("R78") & "', " & "'" & Request.Form("R79") & "', "
%>
<!--#include file="kidsurvey.inc"-->
<%
End Sub

Sub Sdssurvey
Session("SurveySQLp18") = "'" & Request.Form("R80") & "', " & "'" & Request.Form("R81") & "', " & "'" & Request.Form("R82") & "', " & "'" & Request.Form("R83") & "', " & "'" & Request.Form("R84") & "', " "'" & Request.Form("R85") & "', " & "'" & Request.Form("R86") & "', "
%>
<!--#include file="sdssurvey.inc"-->
<%
End Sub

Sub Omisurvey
Session("SurveySQLp19") = "'" & Request.Form("R87") & "', " & "'" & Request.Form("R88") & "', " & "'" & Request.Form("R89") & "', " & "'" & Request.Form("R90") & "', " & "'" & Request.Form("R91") & "', " "'" & Request.Form("R92") & "', " & "'" & Request.Form("R93") & "', " & "'" & Request.Form("R94") & "', " & "'" & Request.Form("R95") & "', " & "'" & Request.Form("R96") & "', " "'" & Request.Form("R97") & "', " & "'" & Request.Form("R98") & "', " & "'" & Request.Form("R99") & "', " & "'" & Request.Form("R100") & "', " "'" & Request.Form("R101") & "', " & "'" & Request.Form("R102") & "', " & "'" & Request.Form("R103") & "', " & "'" & Request.Form("R104") & "', " & "'" & Request.Form("R105") & "', " "'" & Request.Form("R106") & "', "
%>
<!--#include file="omisurvey.inc"-->
<%
End Sub

Sub Demsurvey
Session("SurveySQLp20") = "'" & Request.Form("R107") & "', " & "'" & Request.Form("R108") & "', " & "'" & Request.Form("R109") & "', " & "'" & Request.Form("R110") & "', " & "'" & Request.Form("R111") & "', " "'" & Request.Form("R112") & "', " & "'" & Request.Form("R113") & "', " & "'" & Request.Form("R114") & "', " & "'" & Request.Form("R115") & "', " & "'" & Request.Form("R116") & "', " "'" & Request.Form("R117") & "', " & "'" & Request.Form("R118") & "', " & "'" & Request.Form("R119") & "', " & "'" & Request.Form("R120") & "', " & "'" & Request.Form("R121") & "', " "'" & Request.Form("R122") & "', " & "'" & Request.Form("R123") & "', " & "'" & Request.Form("R124") & "', "
%>
<!--#include file="demsurvey.inc"-->
<%
End Sub

Sub EndSurvey
Session Session("SurveySQLp21") = "'" & Request.Form("R125") & "', " "'" & Request.Form("R126") & "', " "'" & escape(Request.Form("R127")) & "', " "'" & Request.Form("R128") & "', " "'" & Request.Form("R129") & "', " "'" & Request.Form("R130") & "', " "'" & Request.Form("R131")) & "')"
Session("SurveySQL") = Session("SurveySQLp1") & Session("SurveySQLp2") & Session("SurveySQLp3") & Session("SurveySQLp4") & Session("SurveySQLp5") & Session("SurveySQLp6") & Session("SurveySQLp7") & Session("SurveySQLp8") & Session("SurveySQLp9") & Session("SurveySQLp10") & Session("SurveySQLp11") & Session("SurveySQLp12") & Session("SurveySQLp13") & Session("SurveySQLp14") & Session("SurveySQLp15") & Session("SurveySQLp16") & Session("SurveySQLp17") & Session("SurveySQLp18") & Session("SurveySQLp19") & Session("SurveySQLp20") & Session("SurveySQLp21")
%>
Click to Finish Experiment


<A HREF="jury.asp?NextPage=logout">log out</A>

<!--#include file="logout.inc"-->
<%
Openconnection("surveyDB.mdb")
Openrecordset Session("SurveySQL")
Closeconnection
End Sub

Sub LogOut
Session.Abandon
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
window.location="http://www.cla.sc.edu/psyc/students/greenep2/jury/debrief.htm";
//-->
</SCRIPT>
<%
End Sub
%>
</body>
</html>
</blockquote id="quote"></font id="quote">
epgreen
02-10-2004, 07:39 AM
Thanks for your message. Actually, there is no global.asa file. I modified the original .asp file and made sure all of the .inc files listed in the code were in the same folder. I guess I did not keep the global.asa file.

How would I go about creating a working .asp file based on this code?
bruce
02-11-2004, 06:58 AM
This is pretty tricky. Many problem could be causing it.

i suggest you talk to the creator the application to seek help.

[b]quote:Originally posted by epgreen

Thanks for your message. Actually, there is no global.asa file. I modified the original .asp file and made sure all of the .inc files listed in the code were in the same folder. I guess I did not keep the global.asa file.

How would I go about creating a working .asp file based on this code?
</blockquote id="quote"></font id="quote">