aiuto con invio form

[picchius]

Questo è l'errore che mi da e non riesco a capire:

Microsoft VBScript compilation error '800a0401'
Expected end of statement
/elaborareg.asp, line 20
var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");

Mi potete aiutare. Grazie a tutti. Buone Feste

Il codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from clienti"
rs.open sql,conn,3,3

rs.Addnew
rs("nome")= request.form ("nome")
rs("cognome")= request.form ("cognome")
rs("indirizzo")= request.form ("indirizzo")
rs("email")= request.form ("email")
rs("tel")= request.form ("tel")
rs("cell")= request.form ("cell")
rs("username")= request.form ("username")
rs("password")= request.form ("password")
rs.update

var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = email;
OggettoCDONTS.To = "mio@mio.it";
OggettoCDONTS.Subject = oggetto;
// Verifica se la mail è in formato Html
if ((html == "") || (html == "undefined")) {
OggettoCDONTS.BodyFormat = 1;
OggettoCDONTS.MailFormat = 1;
OggettoCDONTS.Body = "Dati del mittente\n\nNome: " + nome + "\nCognome: " + cognome + "\nEmail: " + email + "\nusername: " + username + "\n\npassword:\n\n" + password;
}
else {
OggettoCDONTS.BodyFormat = 0;
OggettoCDONTS.MailFormat = 0;
OggettoCDONTS.Body = "Dati del mittente

Nome: " + nome + "
Cognome: " + cognome + "
Indirizzo: " + indirizzo + "
Email: " + email + "
tel: " + tel + "
cell:
" + cell + "
Username:" + username + "
Password" + password;
}
OggettoCDONTS.Send();
rs.Close()
Set rs = Nothing


response.Redirect("conferma.asp")
%>

[willybit]

in vbscript è

Set OggettoCDONTS = Server.CreateObject("CDONTS.NewMail")

[picchius]

grazie
:-)