Hello,
I wrote this code:
<%@ LANGUAGE=VBScript %>
<SCRIPT LANGUAGE=JavaScript>
function CustomerNameChange()
{
var forwarding_dbX;
var CustomerTableX;
set forwarding_dbX = Server.CreateObject("ADODB.Connection");
forwarding_dbX.Open "Forwarding";
set CustomerTableX= forwarding_dbX.Execute("SELECT * FROM CustomerTable
WHERE CustomerName='"&CustomerName.value&"'");
text153.value=CustomerTableX.Fields("Abbreviation" )
}
</SCRIPT>
<%
Dim forwarding_db
Set forwarding_db = Server.CreateObject("ADODB.Connection")
forwarding_db.Open "Forwarding"
Dim ForwardingTable
Dim CustomerTable
Set ForwardingTable = forwarding_db.Execute("SELECT * FROM Forwarding WHERE
ID =" & Request.QueryString("ID"))
Set CustomerTable= forwarding_db.Execute("SELECT * FROM Customer")
Response.Write "<SELECT id=CustomerName name=CustomerName
onchange=""CustomerNameChange()"">"
CustomerTable.Movefirst
Do until CustomerTable.EOF
Response.Write "<OPTION Value=" & CustomerTable.Fields("CustomerName")
if CustomerTable.Fields("CustomerName") =
ForwardingTable.Fields("CustomerName") then
Response.Write " Selected"
end if
Response.Write ">"
Response.Write CustomerTable.Fields("CustomerName")
Response.Write "</OPTION>"
CustomerTable.MoveNext
Loop
Response.Write "</SELECT>"
Response.Write "<INPUT type=""text"" id=text153 name=text153 >"
%>
But when change the CustomerName's SELECT,text153 can't shows
CustomerTableX.Fields("Abbreviation").I think in function
CustomerNameChange(),ODBC Driver not been connectioned.
Can you help me