Forums
This topic is locked
Help with form transfering data from one to other
28 Mar 2007 06:36:55 Malcolm X posted:
Hi there, I am using Dreamweaver and just can't figure this out.I have the following form which pulls names from a database in a drowp down.
I have exactly the same form on a second page which has exactly 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
<pre id=code><font face=courier size=2 id=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>
<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
%>
</font id=code></pre id=code>
Page 2
<pre id=code><font face=courier size=2 id=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>
<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
%>
</font id=code></pre id=code>
I just can't figure out what I am doing wrong.
Cheers
Mally
<font face='Arial'></font id='Arial'><font color=blue></font id=blue>