[thelist] Clever way to mix Javascript and VBScript
Rob Smith
rob.smith at THERMON.com
Fri Nov 7 14:20:48 CST 2003
Well,
Here's what I came up with
Part of my form:
<input name="PartNumber" type="text" onChange="FindDesc(this)" size="10">
<input name="PartDesc" type="text" size="15" value="" disabled>
VBScript :: generates Javascript Function
<%
response.write("<script language=""javascript"">" & vbCRLF)
response.write("function FindDesc(id) {" & vbCRLF)
response.write("switch(id.value) {" & vbCRLF)
while not PartDesc.eof
response.write("case (id.value = '" &
PartDesc.fields.item("PartNumber").value & "'): " & vbCRLF & "
myForm.PartDesc.value='" &
replace(PartDesc.fields.item("PartDescription").value,"'", "\'") & "' " &
vbCRLF & " break "& vbCRLF)
PartDesc.movenext
wend
response.write("default: " & vbCRLF & "
myForm.PartDesc.value='no part matched' " & vbCRLF)
response.write(" myForm.PartNumber.value=' ' "& "}" & vbCRLF)
response.write("}" & vbCRLF)
response.write("</script>" & vbCRLF)
%>
It works great!
Thanks listeroo's,
Rob
p.s. do you see anything really wrong with this?
More information about the thelist
mailing list