Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 3 of 3
  1. #1
    New Coder
    Join Date
    Jun 2006
    Posts
    70
    Thanks
    9
    Thanked 0 Times in 0 Posts

    Help with form transfering data from one page to the other

    I have the following form which pulls names from a database in a drowp down.

    I have almost exactly the same form on a second page which has the same form with the dropdown.

    How do I "using dreamweaver" transfer what the user selects on the first form to the second form???

    Page 1
    Code:
    <%
    Dim rsTest
    Dim rsTest_numRows
    
    Set rsTest = Server.CreateObject("ADODB.Recordset")
    rsTest.ActiveConnection = MM_conn_STRING
    rsTest.Source = "SELECT Species FROM tblSpecies ORDER BY Species ASC"
    rsTest.CursorType = 0
    rsTest.CursorLocation = 2
    rsTest.LockType = 1
    rsTest.Open()
    
    rsTest_numRows = 0
    %>
    <html>
    <head>
    <title>Untitled Document</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>
    
    <body>
    <form action="page2.asp" method="post" name="searchForm" id="searchForm">
      <table border="0" cellpadding="0" cellspacing="4" bgcolor="#E0E0C2">
        <tr>
          <td>&nbsp;
              <select name="Keyword" id="Keyword">
              <option value="">Choose Species Type</option>
              <%
    While (NOT rsTest.EOF)
    %>
              <option value="<%=(rsTest.Fields.Item("Species").Value)%>"><%=(rsTest.Fields.Item("Species").Value)%></option>
              <%
      rsTest.MoveNext()
    Wend
    If (rsTest.CursorType > 0) Then
      rsTest.MoveFirst
    Else
      rsTest.Requery
    End If
    %>
              </select>
          </td>
          <td><input name="Submit" type="submit" id="Submit4" value="Search">
          </td>
        </tr>
      </table>
    </form>
    </body>
    </html>
    <%
    rsTest.Close()
    Set rsTest = Nothing
    %>
    Page 2
    Code:
    <%
    Dim rsTest__MMColParam
    rsTest__MMColParam = "1"
    If (Request.Form("Species") <> "") Then 
      rsTest__MMColParam = Request.Form("Species")
    End If
    %>
    <%
    Dim rsTest
    Dim rsTest_numRows
    
    Set rsTest = Server.CreateObject("ADODB.Recordset")
    rsTest.ActiveConnection = MM_conn_STRING
    rsTest.Source = "SELECT Species FROM tblSpecies WHERE Species = '" + Replace(rsTest__MMColParam, "'", "''") + "' ORDER BY Species ASC"
    rsTest.CursorType = 0
    rsTest.CursorLocation = 2
    rsTest.LockType = 1
    rsTest.Open()
    
    rsTest_numRows = 0
    %>
    <html>
    <head>
    <title>Untitled Document</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>
    
    <body>
    <form action="/html/main7.asp" method="post" name="searchForm" id="searchForm">
      <table border="0" cellpadding="0" cellspacing="4" bgcolor="#E0E0C2">
        <tr>
          <td>&nbsp;
              <select name="Keyword" id="Keyword">
                <option value="">Choose Species Type</option>
                <%
    While (NOT rsTest.EOF)
    %>
                <option value="<%=(rsTest.Fields.Item("Species").Value)%>"><%=(rsTest.Fields.Item("Species").Value)%></option>
                <%
      rsTest.MoveNext()
    Wend
    If (rsTest.CursorType > 0) Then
      rsTest.MoveFirst
    Else
      rsTest.Requery
    End If
    %>
              </select>
          </td>
          <td><input name="Submit" type="submit" id="Submit" value="Search">
          </td>
        </tr>
      </table>
    </form>
    </body>
    </html>
    <%
    rsTest.Close()
    Set rsTest = Nothing
    %>
    I just can't figure out what I am doing wrong.

    Cheers
    Mally

  • #2
    Regular Coder
    Join Date
    Mar 2007
    Posts
    505
    Thanks
    1
    Thanked 19 Times in 19 Posts
    It's the SELECT name that's the problem.

    On your second page, you have Request.Form("Species"). What part of the form on the first page is defined as "Species"? I see a "Keyword", but no "Species".

    Try changing your <select name="Keyword"> to <select name="Species"> OR change your Request.Form("Species") to Request.Form("Keyword").

    Also, (purely curious as to your methods), why not use rsTest("Species") v. rsTest.Fields.Item("Species").Value?

    They are the same thing, just the first method has a lot less typing involved.

    HTH!

  • #3
    New Coder
    Join Date
    Jun 2006
    Posts
    70
    Thanks
    9
    Thanked 0 Times in 0 Posts
    Hi there, thanks for the reply. I have been playing around with this for days and you hit the nail on the head. It worked as soon as I made the change,.

    Thanks for taking the time.

    Yes it did help.

    Cheers
    Mally


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •