Är ingen klippa på scriptande men försöker med följande jscript anropa efterföljande vbscript .... kan inte se vad jag gör för fel. Det går inte vad jag vet då de går under olika scope. Det borde gå att köra javascriptet som du vill ,prova att stoppa in runat="server" i script taggen, kom ihåg att de form/input taggar som du refererar samt vb funktionen måste vara inläst innan javascriptet körs, annars händer ingenting.Anropa vbscript från javascript
<code>
<script language="JavaScript">
function chkDukcolor() {
var dukbild
var kbnr
if (document.form1.fabric.value != ''){
dukbild = replaceCharacters(document.form1.fabric.value,'-','_');
document.imgDuk.src = "../../../bilder/dukar/" + dukbild + ".jpg";
kbnr = vbsDukdata(dukbild);
document.form1.kb.value = kbnr;
return;
}
}
</script>
<script language="VBScript" ><!--
Function vbsDukdata(duknr)
Dim con
Dim rst
Dim sSQL
Dim A
Set Con = Server.CreateObject("ADODB.Connection")
Set objRecordset = server.CreateObject("ADODB.Recordset")
Con.Open Application("PROD")
sSQL = "SELECT * FROM tblFabric WHERE designnr ='" & duknr & "'"
objRecordset.Open sSQL, Con
vbsDukdata = objRecordset("kb")
if Left(objRecordset("info"),6) = "Utgått" then
vbsMessage = MsgBox( bjRecordset("info"), vbOk, "Information" )
end if
objRecordset.close
Con.close
set Con = nothing
set objRecordset = nothing
End Function
--></script>
</code>Sv: Anropa vbscript från javascript
De pratar inte riktigt samma språk.
Ps. Jscript är inte samma som JavaScript (bara en parantes) Ds
//Johan NSv: Anropa vbscript från javascript