Please help

Discussion in 'ASP.NET / ASP.NET Core' started by epgreen, Feb 10, 2004.

Thread Status:
Threads that have been inactive for 5 years or longer are closed to further replies. Please start a new thread.
  1. epgreen

    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>



    <%
    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>
     
    epgreen, Feb 10, 2004
    #1
  2. Bruce

    Bruce DiscountASP.NET Staff

    Does your global.asa file have any code that require user to login (in the session load section)

    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>



    <%
    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">
     
    Bruce, Feb 10, 2004
    #2
  3. epgreen

    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?
     
    epgreen, Feb 10, 2004
    #3
  4. Bruce

    Bruce DiscountASP.NET Staff

    This is pretty tricky. Many problem could be causing it.

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

    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">
     
    Bruce, Feb 11, 2004
    #4
Thread Status:
Threads that have been inactive for 5 years or longer are closed to further replies. Please start a new thread.

Share This Page