Problema al INSERTAR, y Enviar mensaje de confirmacion

[Shiryu_Libra]

ya intentaste esto

<%
Dim oConn, nombre, email
id_cte = Request("id_cte")
fechai_cte = Date
nom_cte = Request("nom_cte")
tip_cte = Request("tip_cte")
rif_cte = Request("rif_cte")
dir_cte = Request("dir_cte")
tel_cte = Request("tel_cte")
tel2_cte = Request("tel2_cte")
fax_cte = Request("fax_cte")
contac_cte = Request("contac_cte")
mail_cte = Request("mail_cte")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("masstramites.mdb"))
oConn.execute "INSERT INTO clientes(id_cte,fechai_cte,nom_cte,tip_cte,rif_cte ,dir_cte,tel_cte,tel2_cte,fax_cte,contac_cte,mail_ cte) VALUES('"&id_cte&"','"&fechai_cte&"','"&nom_cte&"','"&tip_cte&"','"&rif_cte&"','"&dir_cte&"','"&tel_cte&"','"&tel2_cte&"','"&fax_cte&"','"&contac_cte&"','"&mail_cte&"')"
'solo agregale esta parte
if Err=0 then
response.write "El cliente " nom_cte & " con codigo " & nom_cte & "se ha insertado con exito"
end if
oConn.Close
Set oConn = nothing
%>