<% '-------------------parametros del SMTP Y OTROS 'On Error Resume Next smtpserver="mail.cajasmil.com.ar" 'smtp server smtpenviador = "envios@cajasmil.com.ar" 'cuenta que envía psw="31416" 'psw de esa cuenta strdest = "info@cajasmil.com.ar" 'cuenta que recibe los forms '---------------------------------------se ejecuta si venimos de un response.redirect por error para recuperar los valores introducidos if request.querystring("er")="S" then nombre=request.Cookies("valores")("nombre") apellido=request.Cookies("valores")("apellido") te=request.Cookies("valores")("te") email=request.Cookies("valores")("email") mensaje=request.Cookies("valores")("mensaje") msg=request.Cookies("valores")("msg") ' captura mensaje de error else '----------------------------------------------------valores al inicio (muestra que se escribe en cada campo) nombre="" apellido="" te="" email="" mensaje="" msg="" end if '---------------------------------------se ejecuta si venimos de un response.redirect por envio if request.querystring("end")="S" then msg=request.Cookies("valores")("msg") ' captura mensaje de envio/error de envio end if %>
Fabrica de envases








 
Cajas de carton
Nombre *
Apellido *
Teléfono
Mail *
Mensaje *
<% =msg%>
   
 
     
<% if request.querystring("ps")="S" then ' solo se ejecuta si reentramos porque se pulso enviar '---------------------------------------------recupero los valores del form y realmaceno las cookies nombre=request.form("nombre") response.Cookies("valores")("nombre")=nombre apellido=request.form("apellido") response.Cookies("valores")("apellido")=apellido te=request.form("te") response.Cookies("valores")("te")=te email=request.form("email") response.Cookies("valores")("email")=email mensaje=request.form("mensaje") response.Cookies("valores")("mensaje")=mensaje '-----------------------------------------------------valido los campos convenientes if len(nombre)=0 or nombre="--ingrese su nombre--" then response.Cookies("valores")("msg")="El campo nombre es obligatorio" response.redirect("contacto.asp?er=S") end if if len(apellido)=0 or apellido="--ingrese su apellido--" then response.Cookies("valores")("msg")="El campo apellido es obligatorio" response.redirect("contacto.asp?er=S") end if if len(email)=0 or email="--ingrese su email--" then response.Cookies("valores")("msg")="El campo email es obligatorio" response.redirect("contacto.asp?er=S") end if if len(mensaje)=0 or mensaje="--ingrese su mensaje--" then response.Cookies("valores")("msg")="El formulario no envía mensaje" response.redirect("contacto.asp?er=S") end if '-------------------------------------------------------------------optativo guardar en database 'Set temp = Server.CreateObject("ADODB.Recordset") 'busco email si no está repetido 'temp.ActiveConnection = con_str 'sql = "SELECT mail FROM data WHERE mail like '" & mail & "'" 'temp.Source= sql 'temp.Open() 'if temp.eof then ' Set conn = Server.CreateObject("ADODB.Connection") ' conn.Open(con_str) ' abro la base de datos, atencion con modificar conexion.asp por nombre de mdb ' sql="INSERT INTO data (nombre,te,mail) VALUES ('"&nombre&"','"&te&"','"&mail&"')" ' conn.execute(sql) ' conn.close 'end if 'temp.close '-------------------------------------------------------si se validó procedo a enviar Set Mail = Server.CreateObject("CDO.Message") Mail.From = smtpenviador Mail.To= strdest Mail.Subject = "Consulta desde la página WEB" encabezado = "Mail originado en el formulario de CONTACTO" & vbCrLf & vbCrLf encabezado = encabezado & "De: " & email & vbCrLf encabezado = encabezado & "Nombre: " & nombre & " " & apellido & vbCrLf encabezado = encabezado & "Teléfono: " & te & vbCrLf& vbCrLf & vbCrLf encabezado = encabezado & "Mensaje: " & mensaje Mail.TextBody = encabezado Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= smtpserver Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'clear-text Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = smtpenviador Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = psw Mail.Configuration.Fields.Update Mail.Send Set Mail = Nothing IF Err <> 0 THEN response.Cookies("valores")("msg")="su mensaje no se envió, inténtelo nuevamente" Response.redirect("contacto.asp?end=S") else response.Cookies("valores")("msg")="Su mensaje se envió con EXITO!!!" response.redirect("contacto.asp?end=S") end if end if%>