formularios
Publicado por Pat (2 intervenciones) el 02/06/2006 10:09:04
Haber si alguien sabe q le pasa a esto
<%
Nombre= Request.Form("Nombre")
Apellidos=request.form("Apellidos")
Empresa=request.form("Compania")
Cargo=request.form("Cargo")
Telefono=request.form("Telefono")
Direccion=request.form("Direccion")
Cod_pos=request.form("Codigo_postal")
Localidad=request.form("Localidad")
Provincia=request.form("Provincia")
Email=request.form("eMail")
Sel_mobiliario=request.form("Sel_mobiliario")
mobi=request.form("mobi")
mamp=request.form("mamp")
arma=request.form("arma")
sill=request.form("sill")
alma=request.form("alma")
rope=request.form("rope")
acce=request.form("acce")
Comentarios=request.form("observ")
Error=0
if Nombre="" Then
Response.Write "<b>Debe rellenar el campo <u>Nombre</u></b><br/>"
Error=1
end if
if Apellidos="" Then
Response.Write "<b>Debe rellenar el campo <u>Apellidos</u></b><br/>"
Error=1
end if
if Email="" Then
Response.Write "<b>Debe rellenar el campo <u>e-Mail</u></b><br/>"
Error=1
end if
if Empresa="" Then
Response.Write "<b>Debe rellenar el campo <u>Empresa</u></b><br/>"
Error=1
end if %>
<%if Error=0 then%>
<%Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="smtp.dismesa.com"
Mail.Username = "ham249c"
Mail.Password = "disme21disme21"
Mail.From ="[email protected]"
Mail.FromName = "Dismesa"
Mail.AddAddress ""& Email &""
Mail.Subject="Solicitud de Catálogo"
Mail.Body="Estimado " & Nombre & "," & chr(13) & chr(10) &_
"" & chr(13) & chr(10) &_
"Gracias por rellenar el Formulario de Solicitud de Catálogo,"& chr(13) & chr(10) &_
"muy pronto nos pondremos en contacto con usted."
On Error Resume Next
Mail.SendToQueue
If Err<>0 Then
Response.Write"An Error occurred:"& Err.Description
End If
Set Mail2=Server.CreateObject("Persits.MailSender")
Mail2.Host="smtp.dismesa.com"
Mail.Username = "ham249c"
Mail.Password = "disme21disme21"
Mail2.From ="[email protected]"
Mail2.FromName = "Entrada desde www.dismesa.com"
Mail2.AddAddress "[email protected]"
Mail2.Subject="Solicitud de Catálogo"
Mail2.Body = "Nombre: " & Nombre & " Apellidos: " & Apellidos & chr(13) & chr(10) &_
"Empresa: " & Empresa & " Cargo: " & Cargo & chr(13) & chr(10) &_
"Teléfono: " & Telefono & chr(13) & chr(10) &_
"e-mail: " & Email & chr(13) & chr(10) &_
"Direccion: " & Direccion & chr(13) & chr(10) &_
"Código Postal: " & Cod_pos & chr(13) & chr(10) &_
"Localidad: " & Localidad & chr(13) & chr(10) &_
"Provincia: " & Provincia & chr(13) & chr(10) &_
"Mobiliario: " & mobi & "Mamparas: " & mamp & "Armarios: " & arma & "Sillas: " & sill & "Almacén: " & alma & "Roperos: " & rope & "Accesorios: " & acce & chr(13) & chr(10) &_
"Linea: " & Sel_mobiliario & chr(13) & chr(10) &_
"Comentarios: " & Comentarios
On Error Resume Next
Mail2.SendToQueue
If Err<>0 Then
Response.Write"An Error occurred:"& Err.Description
End If
%>
<html>
<head>
<title>Gracias por su Solicitud</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<div id="Layer4" style="position:absolute; left:26px; top:168px; width:737px; height:220px; z-index:7">
<p><font face="Tahoma" color="#000066"><b>Gracias <%=Nombre%> por su solicitud de información.</b></font></p>
<p><b><font face="Tahoma" color="#000066">Pronto nos pondremos en contacto con
usted.</font></b></p>
</div>
</body>
</html>
<%End if%>
<%
Nombre= Request.Form("Nombre")
Apellidos=request.form("Apellidos")
Empresa=request.form("Compania")
Cargo=request.form("Cargo")
Telefono=request.form("Telefono")
Direccion=request.form("Direccion")
Cod_pos=request.form("Codigo_postal")
Localidad=request.form("Localidad")
Provincia=request.form("Provincia")
Email=request.form("eMail")
Sel_mobiliario=request.form("Sel_mobiliario")
mobi=request.form("mobi")
mamp=request.form("mamp")
arma=request.form("arma")
sill=request.form("sill")
alma=request.form("alma")
rope=request.form("rope")
acce=request.form("acce")
Comentarios=request.form("observ")
Error=0
if Nombre="" Then
Response.Write "<b>Debe rellenar el campo <u>Nombre</u></b><br/>"
Error=1
end if
if Apellidos="" Then
Response.Write "<b>Debe rellenar el campo <u>Apellidos</u></b><br/>"
Error=1
end if
if Email="" Then
Response.Write "<b>Debe rellenar el campo <u>e-Mail</u></b><br/>"
Error=1
end if
if Empresa="" Then
Response.Write "<b>Debe rellenar el campo <u>Empresa</u></b><br/>"
Error=1
end if %>
<%if Error=0 then%>
<%Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="smtp.dismesa.com"
Mail.Username = "ham249c"
Mail.Password = "disme21disme21"
Mail.From ="[email protected]"
Mail.FromName = "Dismesa"
Mail.AddAddress ""& Email &""
Mail.Subject="Solicitud de Catálogo"
Mail.Body="Estimado " & Nombre & "," & chr(13) & chr(10) &_
"" & chr(13) & chr(10) &_
"Gracias por rellenar el Formulario de Solicitud de Catálogo,"& chr(13) & chr(10) &_
"muy pronto nos pondremos en contacto con usted."
On Error Resume Next
Mail.SendToQueue
If Err<>0 Then
Response.Write"An Error occurred:"& Err.Description
End If
Set Mail2=Server.CreateObject("Persits.MailSender")
Mail2.Host="smtp.dismesa.com"
Mail.Username = "ham249c"
Mail.Password = "disme21disme21"
Mail2.From ="[email protected]"
Mail2.FromName = "Entrada desde www.dismesa.com"
Mail2.AddAddress "[email protected]"
Mail2.Subject="Solicitud de Catálogo"
Mail2.Body = "Nombre: " & Nombre & " Apellidos: " & Apellidos & chr(13) & chr(10) &_
"Empresa: " & Empresa & " Cargo: " & Cargo & chr(13) & chr(10) &_
"Teléfono: " & Telefono & chr(13) & chr(10) &_
"e-mail: " & Email & chr(13) & chr(10) &_
"Direccion: " & Direccion & chr(13) & chr(10) &_
"Código Postal: " & Cod_pos & chr(13) & chr(10) &_
"Localidad: " & Localidad & chr(13) & chr(10) &_
"Provincia: " & Provincia & chr(13) & chr(10) &_
"Mobiliario: " & mobi & "Mamparas: " & mamp & "Armarios: " & arma & "Sillas: " & sill & "Almacén: " & alma & "Roperos: " & rope & "Accesorios: " & acce & chr(13) & chr(10) &_
"Linea: " & Sel_mobiliario & chr(13) & chr(10) &_
"Comentarios: " & Comentarios
On Error Resume Next
Mail2.SendToQueue
If Err<>0 Then
Response.Write"An Error occurred:"& Err.Description
End If
%>
<html>
<head>
<title>Gracias por su Solicitud</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<div id="Layer4" style="position:absolute; left:26px; top:168px; width:737px; height:220px; z-index:7">
<p><font face="Tahoma" color="#000066"><b>Gracias <%=Nombre%> por su solicitud de información.</b></font></p>
<p><b><font face="Tahoma" color="#000066">Pronto nos pondremos en contacto con
usted.</font></b></p>
</div>
</body>
</html>
<%End if%>
Valora esta pregunta
0