<%
'assuming you have a recordset called rsData for the options and a connection called connData
'1-create the select
Response.Write "<select name=""selSomething"" onChange=""formName.submit()"">"
rsData.MoveFirst
Do Until rsData.EOF
Response.Write "<option value=""" & rsData("fldName1") & """
If Request.Form("selSomething") = rsData("fldName1") Then Response.Write " selected=""selected"""
Response.Write ">" & rsData("fldName1") & "</option>"
rsData.MoveNext
Loop
Response.Write "</select>"
'2 - create the text boxes
Dim val1, val2, val3
If Request.Form("selSomething") <> "" Then
Dim rsVals
Set rsVals = connData.Execute("SELECT fldName2, fldName3, fldName4 FROM MyTableName WHERE fldName1 = '" & Request.Form("selSomething") & "'")
If Not rsVals.EOF Then
vals1 = rsVals("fldName1")
vals2 = rsVals("fldName2")
vals3 = rsVals("fldName3")
End If
Set rsVals = Nothing
End If
Response.Write "<input type=""text"" name=""MyTextBox1"" value=""" & val1 & """/>"
Response.Write "<input type=""text"" name=""MyTextBox2"" value=""" & val2 & """/>"
Response.Write "<input type=""text"" name=""MyTextBox3"" value=""" & val3 & """/>"
%>