Da Jscript a VB

[ipnotic]

Chi mi aiuta trasformare questo script da JSCRIPT in VBscript ??? grazie

var Cn = new ActiveXObject("ADODB.Connection"); 
	Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("database.mdb")); 
	var Sql = "SELECT codutente From codutente Where codutente = '"+email+"'";  
	var rs = new ActiveXObject("ADODB.Recordset"); 
	rs.Open(Sql,Cn,1); 
	if (rs.EOF) { 
		Response.Redirect("errore.asp?id=6"); 
	}

[Baol74]

Dim Cn,Sql,rs
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database.mdb"))
Sql = "SELECT codutente From codutente Where codutente = '" & email & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open(Sql,Cn,1)
if rs.EOF then 
	Response.Redirect("errore.asp?id=6")
End If

[willybit]

Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database.mdb")
Sql = "SELECT codutente From codutente Where codutente = '" & email & "'"
Set rs = Server.CreateObject("ADODB.Recordset"); 
rs.Open Sql,Cn,1 
if rs.EOF then
	Response.Redirect "errore.asp?id=6"
end if

[ipnotic]

ho provato ma mi da errore! cmq supponendo ke io la connessione al DATABASE l ho gia fatta all'interno della pagina ASP dove andro' a inserire quel codice....come lo devo trasformare ? quali parti devono rimanere e quali eliminare ?

Se non mi sbaglio la connessione la faccio in questo modo:

<%
Function GetDatabaseConn()
  Dim oRet
  Set oRet = Server.CreateObject("ADODB.Connection")
  oRet.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("forum.mdb")
  Set GetDatabaseConn = oRet
End Function
%>

Dico se nn mi sbaglio xke nn sono molto esperto di ASP