on the submission form the drop down looks like this;
<%
Dim DcType, rsType, mySelection
set dcType=Server.CreateObject("ADODB.CONNECTION")
dcType.Open "Provider=sqloledb;Data Source=Flaflmirsql01;Initial Catalog=Retention;User Id=Retention;Password=nasa#6210;"
Set rsType = Server.CreateObject("ADODB.Recordset")
rsType.open "Type", dcType
StrType = ""
Do While Not rsType.EOF
StrType = StrType &_
"<Option ='" & rsType("TypeID") & "'"
If (mySelection=rsType("TypeID").Value) Then
StrType = StrType & " Selected "
End If
StrType = StrType & ">" & rsType("TypeName")&"</Option>"
rsType.MoveNext
Loop
'Clean up
rsType.Close
dcType.Close
Set rsType = Nothing
Set dcType = Nothing
%>
<SELECT name="Type"><%=strType%>
<option value="Please Choose a Type" >Please Choose a Type</option>
</SELECT>
Then Submit:
I am sending a JavaScript:
Which looks like this:
<%
Dim StrType
strType= Request.form("Type")
%>
<p align="center">Please confirm the data you entered is correct.<script language="JavaScript">
function ChangeData()
{
document.form1.action = "Retention_Tool.asp";
document.form1.submit();
}
function SubmitData()
{
document.form1.action = "Confirmation2.asp";
document.form1.submit();
}
</script><form name="form1" method="post">
<table width="100%" border="0">
<tr>
<td colspan="2">
</td>
</tr>
<tr>
<td width="42%">Type of Disco / Downgrade:
<b>:</b></td>
<td width="57%"><%=strType%><input type="hidden" name="Account_Number" value="<%=strType%>"></td>
</tr>
|