<%
'declaramos las variables
Dim ObjMail,oConn
'obtenemos los valores del formulario de acuerdo al nombre de cada componente
Nombre= Request.Form("Nombre")
Ciudad= Request.Form("Ciudad")
Ocupacion=Request.Form("Ocupacion")
EMail=Request.Form("EMAil")
Tema=Request.Form("Tema")
Mensaje=Request.Form("Mensaje")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" + Server.MapPath ("Home.mdb"))
oConn.execute "INSERT INTO AsistenciaTec(Nombre,Ciudad,Ocupacion,EMail,Tema,M ensaje) VALUES('"&Nombre&"','"&Ciudad&"','"&Ocupacion&"',' "&EMail&"','"&Tema&"','"&Mensaje&"')"
oConn.Close
Set oConn = nothing
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "
[email protected],
[email protected] "
ObjMail.From = "
[email protected]"
ObjMail.Subject = "AsistenciaTecnica"
objMail.Body = "Nombre: " & Nombre & vbcrlf&_
"Ciudad: " & Ciudad & vbcrlf&_
"Ocupacion: " & Ocupacion & vbcrlf&_
"EMail: " & EMail & vbcrlf&_
"Tema: " & Tema & vbcrlf&_
"Mensaje: " & Mensaje
ObjMail.Send
Set ObjMail = Nothing
Response.Redirect "GRACIAS.ASP"
%>