Solved

Passing Variables across multiple pages

Posted on 2006-06-11
3
705 Views
Last Modified: 2012-06-21
I have the following code I am trying to pass the form variable from across two pages.  I am using the first page confirmation.asp as a page that users get to see their choices prior to submission to the database.  This page is working correctly.  I have included a form with a hidden field of the confirmation page with the value

    <input name="proselected" type="hidden" value="<%Request.Form("progSelected[]")%>" />

I want to pass this value to a submit.asp page.  I am getting the following error.  

Microsoft VBScript runtime  error '800a01a8'

Object required: ''

/memberapp/seminar/submit.asp, line 12

Here is the code for the confirmation.asp page

<%
Response.write ("Please Print this page to confirm your seminar choices") & ("<br><br><br>")

Dim vSelectedSeminars,vSeminarID,vInstr,vCount, semname
vCount=0
Dim vSQLString
Dim nString
Dim objRS : Set objRS = Server.CreateObject("ADODB.Recordset")
      obj_conn.Execute("Delete from seminarregistration where memberid = " & Session("memId"))
      obj_conn.Execute("Delete from seminaruserchoices where memberid = " & Session("memId"))
      vSelectedSeminars = Request.Form("progSelected[]")
      while len(vSelectedSeminars) > 0  
            vInstr = instr(vSelectedSeminars,",")
            if vInstr = 0 then
                  vSeminarID = vSelectedSeminars
                  vSelectedSeminars = ""
            else
                  vSeminarID = mid(vSelectedSeminars,1,vInstr-1)            
                  vSelectedSeminars = mid(vSelectedSeminars,vInstr+1,len(vSelectedSeminars))
            end if
      
      if vCount = 0 then
                  'vSQLString = "Insert Into SeminarRegistration(SeminarID,MemberID,RegistrationDate) Values("& vSeminarID & "," & Session("memId") & ",'"& now()&"')"
   
            'response.write (vSeminarID)
               On Error Resume Next
               obj_conn.Execute(vSQLString)
             end if
            vCount = vCount+1
            'vSQLString = "Insert Into SeminarUserChoices(SeminarID,MemberID,PreferenceNumber) Values("& vSeminarID & "," & Session("memId") & "," & vCount & ")"
nString = "select name from seminar where seminarid = '" & vSeminarID & "'"            
'response.Write(vSeminarID)
              set RS=obj_conn.Execute(nString)
              if not (RS.eof and RS.bof) then
               Do while not RS.eof
               response.Write(RS("name")) & ("&nbsp; &nbsp; ") & vcount & ("<br>")
           
         RS.Movenext
               Loop
          end if  
            On Error Resume Next
            obj_conn.Execute(vSQLString)            
      wend
%>

<form id="form1" name="form1" method="post" action="submit.asp">
  <p>
    <input name="proselected" type="hidden" value="<%Request.Form("progSelected[]")%>" />
</p>
  <p>
    <label>
    <input type="submit" name="Submit" value="Submit" />
    </label>
</p>
</form>


here is the code for the submit.asp page

<%
Response.write ("Please Print this page to confirm your seminar choices") & ("<br><br><br>")

Dim vSelectedSeminars,vSeminarID,vInstr,vCount, semname
vCount=0
Dim vSQLString
Dim nString
Dim objRS : Set objRS = Server.CreateObject("ADODB.Recordset")
      obj_conn.Execute("Delete from seminarregistration where memberid = " & Session("memId"))
      obj_conn.Execute("Delete from seminaruserchoices where memberid = " & Session("memId"))
      vSelectedSeminars = Request.Form("proSelected[]")
      while len(vSelectedSeminars) > 0  
            vInstr = instr(vSelectedSeminars,",")
            if vInstr = 0 then
                  vSeminarID = vSelectedSeminars
                  vSelectedSeminars = ""
            else
                  vSeminarID = mid(vSelectedSeminars,1,vInstr-1)            
                  vSelectedSeminars = mid(vSelectedSeminars,vInstr+1,len(vSelectedSeminars))
            end if
      
      if vCount = 0 then
                  'vSQLString = "Insert Into SeminarRegistration(SeminarID,MemberID,RegistrationDate) Values("& vSeminarID & "," & Session("memId") & ",'"& now()&"')"
   
            'response.write (vSeminarID)
               On Error Resume Next
               obj_conn.Execute(vSQLString)
             end if
            vCount = vCount+1
            'vSQLString = "Insert Into SeminarUserChoices(SeminarID,MemberID,PreferenceNumber) Values("& vSeminarID & "," & Session("memId") & "," & vCount & ")"
nString = "select name from seminar where seminarid = '" & vSeminarID & "'"            
'response.Write(vSeminarID)
              set RS=obj_conn.Execute(nString)
              if not (RS.eof and RS.bof) then
               Do while not RS.eof
               response.Write(RS("name")) & ("&nbsp; &nbsp; ") & vcount & ("<br>")
           
         RS.Movenext
               Loop
          end if  
            On Error Resume Next
            obj_conn.Execute(vSQLString)            
      wend
%>
0
Comment
Question by:drai123
  • 2
3 Comments
 
LVL 33

Accepted Solution

by:
sajuks earned 500 total points
ID: 16883421
  <input name="proselected" type="hidden" value="<%Request.Form("progSelected[]")%>" />
should be
<input type="text" name="proselected" value="<%=Request.Form("progSelected[]")%>">

you are missing the "=" sign .
0
 

Author Comment

by:drai123
ID: 16883511
I am still getting the error on the submit page.  

the error is this line

     obj_conn.Execute("Delete from seminarregistration where memberid = " & Session("memId"))


Microsoft VBScript runtime  error '800a01a8'

Object required: ''

/memberapp/seminar/submit.asp, line 12  
0
 
LVL 33

Expert Comment

by:sajuks
ID: 16883633
also is ur obj_conn declared ?
set obj_conn=Server.CreateObject("ADODB.Connection")
ConnectionString="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & databpath
obj_conn.Open ConnectionString

and change this to
set rsseminarreg= obj_conn.Execute("Delete from seminarregistration where memberid = " & Session("memId") & ";" )
  set rsuserchoice= obj_conn.Execute("Delete from seminaruserchoices where memberid = " & Session("memId") & ";" )


' if ur memebr id is string
strsql="delete from seminarregistration  where memberid ='" & session("memId") & "';"
' if ur memebr id is numeric
strsql="delete from seminarregistration  where memberid =" & session("memId") & ";"
set rsmembers=obj_conn.Execute(strsql)
0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

813 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now