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"); 
	}