propuesto_4.html (formulario de entrada)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<html>
<head>
<title>HTMLWeb & WebMaster. Curso ASP. Entrega 4. Ejercicio
Propuesto (I)</title>
</head>
<body
bgcolor="#ffff99">
<form name="form1" action="propuesto.asp"
method="post">
<pre>
Nombre: <input
type="text" name="nombre" size="15"><br>
Apellido 1: <input
type="text" name="primerApellido" size="15"><br>
Apellido 2:
<input type="text" name="segundoApellido"
size="15"><br>
Teléfono: <input type="text"
name="telefono" size="15"><br>
E-Mail:
<input type="text" name="email"
size="15"><br>
<br><br>
<input type="submit"
value="enviar">
</pre>
</form>
</body>
</html>
propuesto_4.asp (página de
proceso)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<%@
Language="VBScript"%>
<html>
<head>
<title>HTMLWeb & WebMaster. Curso ASP. Entrega 4. Ejercicio
Propuesto (II)</title>
</head>
<body
bgcolor="#ffff99">
<%
Dim nombre1,
nombre2, nombre, telefono, telefono2, mail1, mail2, email, matriz1
Dim arroba, punto, usuario, temporal3, servidor, dominio
'Comprobamos
que la cadena recogida no es vacía. Si no lo es, seguimos con la
'validacion. Si lo es, detenemos la ejecución y volvemos a la página
anterior
nombre=Trim(Request.Form("nombre"))
If nombre = ""
Then Error("Debe introducir un nombre")
nombre1=Trim(Request.Form("primerApellido"))
If nombre1 = "" Then
Error("Debe introducir su primer apellido")
nombre2=Trim(Request.Form("segundoApellido"))
If nombre2 = "" Then
Error("Debe introducir su segundo apellido")
telefono=Trim(Request.Form("telefono"))
If telefono = "" Then
Error("Debe introducir un número de teléfono")
telefono2 =
Len(telefono)
If telefono2<>9 Then Error("El número de teléfono
debe tener 9 cifras")
mail1 = Request.Form("email")
If mail1
= "" Then Error("Debe introducir una dirección de e-mail")
'Eliminamos
posibles espacios al principio y al final
mail2 =
Trim(mail1)
'Quitamos posibles espacios intermedios
email =
Replace(mail2, " ", "")
'Verificamos que la dirección tenga un
caracter @
'Si no lo tiene, detenemos la ejecución y volvemos a la
página anterior
arroba = InStr( 1, email, "@", 1 )
If arroba
= 0 Then
Error("La dirección de e-mail debe contener un
caracter arroba (@)")
End If
'Verificamos que la dirección
tenga un caracter punto(.)
'Si no lo tiene, detenemos la ejecución y
volvemos a la página anterior
punto = InStr( 1, email, ".", 1
)
If punto = 0 Then
Error("La dirección de
e-mail debe contener un caracter punto (.)")
Else
'Si todo va bien, separamos los componentes de la
dirección de e-mail: usuario, servidor y dominio
matriz =
Split(email, "@", -1, 1)
usuario =
matriz(0)
If usuario="" Then Error("La dirección de e-mail
debe contener un nombre de usuario")
temporal3 =
Split(matriz(1), ".", -1, 1)
servidor =
temporal3(0)
If servidor="" Then Error("La dirección de
e-mail debe contener un nombre de servidor")
dominio =
temporal3(1)
If dominio="" Then Error("La dirección de
e-mail debe contener un nombre de dominio")
End If
%>
Tu
nombre
es: <%=nombre%> <%=nombre1%> <%=nombre2%><br><br>
Tu
teléfono es: <%=telefono%><br><br>
Tu dirección de
e-mail es: <%=email%>
<%
Function
Error(mensaje)
%>
<script language="JavaScript">
alert("<%=mensaje%>");
window.history.back();
</script>
<%
End
Function
%>
</body>
</html>