Hi All,
I have a series of code within an ASP page that looks up the contents of a field in an acess table to create a pull down selection list. What I want to do, is use the select record to auto fill in a series of other input fields (data is supplied in different fields of the same table).
I'm at a complete loss on the best way to complete this ... The code I have for the pull-down selection list is as follows :
<select name="book" id="formatsupp0" size="1">
<%
Dim strSQLbook, RSbook, currentbook
Dim strRecordsbook
Set RSbook = Server.CreateObject("ADODB.Recordset")
strSQLbook = "Select book from books order by unique"
RSbook.Open strSQLbook, DB
If Not RSbook.EOF Then
strRecordsbook = "<OPTION VALUE='0'>"
Do While Not RSbook.EOF
strRecordsbook = strRecordsbook _
& "<OPTION VALUE='" & RSbook("book") & "'>" & RSbook("book") & vbCrLf
RSbook.MoveNext
Loop
Else
strRecordsbook = "<OPTION VALUE='0'>No records found"
End if
Response.Write strRecordsbook
strRecordsbook = ""
RSbook.Close
%>
I have a series of code within an ASP page that looks up the contents of a field in an acess table to create a pull down selection list. What I want to do, is use the select record to auto fill in a series of other input fields (data is supplied in different fields of the same table).
I'm at a complete loss on the best way to complete this ... The code I have for the pull-down selection list is as follows :
<select name="book" id="formatsupp0" size="1">
<%
Dim strSQLbook, RSbook, currentbook
Dim strRecordsbook
Set RSbook = Server.CreateObject("ADODB.Recordset")
strSQLbook = "Select book from books order by unique"
RSbook.Open strSQLbook, DB
If Not RSbook.EOF Then
strRecordsbook = "<OPTION VALUE='0'>"
Do While Not RSbook.EOF
strRecordsbook = strRecordsbook _
& "<OPTION VALUE='" & RSbook("book") & "'>" & RSbook("book") & vbCrLf
RSbook.MoveNext
Loop
Else
strRecordsbook = "<OPTION VALUE='0'>No records found"
End if
Response.Write strRecordsbook
strRecordsbook = ""
RSbook.Close
%>