Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/02/2010, 11:48
jessykk
 
Fecha de Ingreso: febrero-2010
Mensajes: 34
Antigüedad: 15 años, 1 mes
Puntos: 1
Respuesta: error en formulario

pues he escrito todo esto pero es q no tengo ni idea..lo que he sudao para hacer esto!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>datos candidatos</title>

<% Option Explicit
Dim nombre, apellidos, edad, direccion, provincia, cp, numero, mail, lugar, tiempo, coche, moto, tipo, grupoestado1, grupoestado2, trabajo, horario, situacionlaboral, estudios, experiencia1, experiencia2, experiencia3, experiencia4, experiencia5, cualidades, libre, aficion, forma, marcado, sueno, negocio, objetivos, sabados, horariopreferente
nombre=request.Querystring ("nombre")
apellidos=request.Querystring ("apellidos")
edad=request.Querystring ("edad")
direccion=request.Querystring ("direccion")
provincia=request.Querystring ("provincia")
cp=request.Querystring ("cp")
numero=request.Querystring ("numero")
mail=request.Querystring ("mail")
lugar=request.Querystring ("lugar")
tiempo=request.Querystring ("tiempo")
coche=request.Querystring ("coche")
moto=request.Querystring ("moto")
tipo=request.Querystring ("tipo")
grupoestado1=request.Querystring ("grupoestado1")
grupoestado2=request.Querystring ("grupoestado2")
trabajo=request.Querystring ("trabajo")
horario=request.Querystring ("horario")
situacionlaboral=request.Querystring ("situacionlaboral")
estudios=request.Querystring ("estudios")
experiencia1=request.Querystring ("experiencia1")
experiencia2=request.Querystring ("experiencia2")
experiencia3=request.Querystring ("experiencia3")
experiencia4=request.Querystring ("experiencia4")
experiencia5=request.Querystring ("experiencia5")
cualidades=request.Querystring ("cualidades")
libre=request.Querystring ("libre")
aficion=request.Querystring ("aficion")
forma=request.Querystring ("forma")
marcado=request.Querystring ("marcado")
sueno=request.Querystring ("sueno")
negocio=request.Querystring ("negocio")
objetivos=request.Querystring ("objetivos")
sabado=request.Querystring ("sabado")
horariopreferente=request.Querystring ("horariopreferente")


Set NewMail = Server.CreateObject("CDONTS.NewMail")
NewMail.To= [email protected] ' Aquí tu email
NewMail.From= "Formulario <"& mail &">" ' desde donde se envia el mail
NewMail.Subject = "Formulario recibido"
NewMail.Body = "Nombre <b>" & nombre & "</b><br />Apellidos <b>" & apellidos & "</b>"<br />
Edad <b>" & edad & "</b>" <br />
direccion <b>" & direccion & "</b>" <br />
provincia <b>" & provincia & "</b>" <br />
cp <b>" & cp & "</b>" <br />
numero <b>" & numero & "</b>" <br />
mail <b>" & mail & "</b>" <br />
lugar <b>" & lugar & "</b>" <br />
tiempo <b>" & tiempo & "</b>" <br />
coche <b>" & coche & "</b>" <br />
moto <b>" & moto & "</b>" <br />
tipo <b>" & tipo & "</b>" <br />
grupoestado1 <b>" & grupoestado1 & "</b>" <br />
grupoestado2 <b>" & grupoestado2 & "</b>" <br />
trabajo <b>" & trabajo & "</b>" <br />
horario <b>" & horario & "</b>" <br />
situacionlaboral <b>" & situacionlaboral & "</b>" <br />
estudios <b>" & estudios & "</b>" <br />
experiencia1 <b>" & experiencia1 & "</b>" <br />
experiencia2 <b>" & experiencia2 & "</b>" <br />
experiencia3 <b>" & experiencia3 & "</b>" <br />
experiencia4 <b>" & experiencia4 & "</b>" <br />
experiencia5 <b>" & experiencia5 & "</b>" <br />
cualidades <b>" & cualidades & "</b>" <br />
libre <b>" & libre & "</b>" <br />
aficion <b>" & aficion & "</b>" <br />
forma <b>" & forma & "</b>" <br />
marcado <b>" & marcado & "</b>" <br />
sueno <b>" & sueno & "</b>" <br />
negocio <b>" & negocio & "</b>" <br />
objetivos <b>" & objetivos & "</b>" <br />
negocio <b>" & negocio & "</b>" <br />
sabados <b>" & sabados & "</b>" <br />
horariopreferente <b>" & horariopreferente & "</b>"
NewMail.Bodyformat=0
NewMail.Mailformat=0
NewMail.Send
Set NewMail=Nothing
%>
</head>

<body>
</body>
</html>