[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