Aquí le dejo el código, espero que pueda ayudarme
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Página de Manu</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%Dim puntuacion%>
<form action="pagina.asp?puntuacion=<%=puntuacion%>" name="fpagina" method='post'>
<br>Escriba su dirección
<input name="direccion" type="text" id="direccion">
<table>
<tr>
<td width="348">Pregunta número 1</td>
</tr>
<tr>
<td><input type="radio" name="pregunta1" value="1"> <!-- El valor de la respuesta 1 a la pregunta 1 es "1" como cadena de texto-->
Respuesta 1</td>
</tr>
<tr>
<td><input type="radio" name="pregunta1" value="2">
Respuesta 2</td>
</tr>
<tr>
<td><input type="radio" name="pregunta1" value="3">
Respuesta 3</td>
</tr>
<tr>
<td><input type="radio" name="pregunta1" value="4">
Respuesta 4</td>
</tr>
<tr>
<td>Pregunta número 2</td>
</tr>
<tr>
<td><input type="radio" name="pregunta2" value="1">
Respuesta 1</td>
</tr>
<tr>
<td><input type="radio" name="pregunta2" value="2">
Respuesta 2</td>
</tr>
<tr>
<td><input type="radio" name="pregunta2" value="3">
Respuesta 3</td>
</tr>
<tr>
<td><input type="radio" name="pregunta2" value="4">
Respuesta 4</td>
</tr>
<tr>
<td>Pregunta número 3</td>
</tr>
<tr>
<td><input type="radio" name="pregunta3" value="1">
Respuesta 1</td>
</tr>
<tr>
<td><input type="radio" name="pregunta3" value="2">
Respuesta 2</td>
</tr>
<tr>
<td><input type="radio" name="pregunta3" value="3">
Respuesta 3</td>
</tr>
<tr>
<td><input type="submit" name="enviar" value="Enviar"></td>
</tr>
</table>
<%
if request.Form("enviar")<>"" then 'si hemos pulsado el botón enviar entonces
select case request.Form("pregunta1") ' dependiendo de la respuesta a la pregunta 1
case "1" ' si la respuesta es 1 le sumo 1 a la puntuación
puntuacion=puntuacion+1
case "2" ' si la respuesta es 2 le sumo 2 a la puntuacion
puntuacion=puntuacion+2
case "3"
puntuacion=puntuacion+3
case "4"
puntuacion=puntuacion+4
end select
select case request.Form("pregunta2")
case "1"
puntuacion=puntuacion+1
case "2"
puntuacion=puntuacion+2
case "3"
puntuacion=puntuacion+3
case "4"
puntuacion=puntuacion+4
end select
select case request.Form("pregunta3")
case "1"
puntuacion=puntuacion+1
case "2"
puntuacion=puntuacion+2
case "3"
puntuacion=puntuacion+3
end select
%>
<%
'Dependiendo de la puntuación obtenida mostramos un mensaje u otro
if puntuacion<5 then
response.Write("es menor de 5 y vale:"&puntuacion)
end if
if puntuacion>5 then
response.Write("es mayor de 5 y vale:"&puntuacion)
end if
if puntuacion=5 then
response.Write("es igual a 5 y vale:"&puntuacion)
end if
response.Write("<br>Sus respuestas han sido:<br>")
response.Write("Pregunta 1: "&request.Form("pregunta1")&"<br>")
response.Write("Pregunta 2: "&request.Form("pregunta2")&"<br>")
response.Write("Pregunta 3: "&request.Form("pregunta3"))
response.Write("La dirección es"&request.Form("direccion"))
%>
<%
'Ahora enviamos un mail
Set mail=Server.CreateObject("Persits.MailSender") 'construimos el objeto
Mail.Host="192.168.2.2" 'dirección del servidor smtp
Mail.From="[email protected]" 'dirección del remitente
Mail.AddAddress Request.Form("Direccion") 'enviaremos a la dirección puesta en el campo direccion
Mail.Subject="Respuestas al test"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''Cuerpo del mensaje
Mail.body="<html><body bgcolor='#00FF00' leftmargin='0' topmargin='0'>"
Mail.body=mail.body &"Hola. Sus respuestas son: <br>"
Mail.body=mail.body&" respuesta a la pregunta 1="&request.Form("pregunta1")&"<br>"
Mail.body=mail.body&" respuesta a la pregunta 2="&request.Form("pregunta2")&"<br>"
Mail.body=mail.body&" respuesta a la pregunta 3="&request.Form("pregunta3")&"<br>"
Mail.body=mail.body & "</body></html>"
'Fin del cuerpo del mensaje
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
mail.AddEmbeddedImage Server.MapPath("/imagenes/logo.jpg"), "imagen a poner como logo"
Mail.IsHTML=true 'envia un mail con formato html
Mail.Send 'envia el mail
%>
<%end if%>
</form>
</body>
</html>