semplicemente lasciandolo cosi come è ed inserendolo tra tag script
codice:
<%@LANGUAGE="Jscript"%>
<script language="vbscript" runat="server">
Function LastID(ByRef conn,strNomeTabella)
Dim objRs,tmp
Set objRS = conn.execute("SELECT @@IDENTITY FROM " & strNomeTabella)
tmp = objRS(0)
set objRS = nothing
LastID = tmp
End Function
</script>
<%
var cn = new ActiveXObject("Adodb.Connection");
cn.Open(blalbal);
// etc etc procedure di inserimento etc e poi:
var LastID = LastID(cn,"Rubrica")
%>
come vedi si puo' tranquillamente lavorare sia con vb che con js nello stesso script