skalag
03-03-2003, 07:19 PM
i have used the code below to pop select option, i want to pass the selected value to the text box Tdimensions, if possible without posting a form....i want to put the value in the text box and submit that value by form to insert into db.
IF NOT rs.EOF THEN
rs.MoveFirst
%>
<select name="Sdimensions">
<option disabled>Dimensions</option>
<%
Do While Not rs.EOF
Response.Write "<option value="""
Response.Write rs.Fields("Fwidth")
Response.Write """"
Response.Write ">"
Response.Write Trim(rs.Fields("Fwidth"))
Response.Write " x "
Response.Write Trim(rs.Fields("Fheight"))
Response.Write " x "
Response.Write Trim(rs.Fields("Flength"))
Response.Write "</option>" & vbCrLf
' Move to next record
rs.MoveNext
Loop
%>
</select>
<%
END IF
%>
<INPUT type="text" name="Tdimensions" size="12">
IF NOT rs.EOF THEN
rs.MoveFirst
%>
<select name="Sdimensions">
<option disabled>Dimensions</option>
<%
Do While Not rs.EOF
Response.Write "<option value="""
Response.Write rs.Fields("Fwidth")
Response.Write """"
Response.Write ">"
Response.Write Trim(rs.Fields("Fwidth"))
Response.Write " x "
Response.Write Trim(rs.Fields("Fheight"))
Response.Write " x "
Response.Write Trim(rs.Fields("Flength"))
Response.Write "</option>" & vbCrLf
' Move to next record
rs.MoveNext
Loop
%>
</select>
<%
END IF
%>
<INPUT type="text" name="Tdimensions" size="12">