practica_3.html
<html>
<head>
<title>Ejemplo de QueryString dinámico</title>
<script
language="JavaScript">
function
envia()
{
var
email=document.forms.datosUsuario.email.value
window.location.href="ejemplo_3_2.asp?email="+email
}
</script>
</head>
<body
bgcolor="#ffff99">
<pre>
<form name="monedas"
action="practica_3.asp" method="post">
Cantidad en pesetas:<input
type="text" name="pesetas"><br>
Cambiar a: <select
name="divisa">
<option
value="euros">euros</option>
<option
value="dolares">dólares</option>
<option value="marcos">marcos alemanes</option>
</select><br>
<input type="submit"
value="enviar">
</form>
</pre>
</body>
</html>
practica_3.asp
<html>
<head>
<title>WebMaster.
Curso ASP. Entrega 3. Ejemplo 3.1
(II)</title>
</head>
<body
bgcolor="#ffff99">
<%
Dim cantidad, divisa, cambio
cantidad=Request.Form("pesetas")
divisa=Request.Form("divisa")
If cantidad="" Then
mensaje="No has introducido cantidad alguna"
ElseIf cantidad<=0 Then
mensaje="debes introducir una
cantidad positiva"
Else
Select Case
divisa
Case("euros")
cambio=cantidad/166.3
Case("dolares")
cambio=cantidad/180
Case("marcos")
cambio=cantidad/50
End Select
mensaje=cantidad & " pesetas en equivalente a " & cambio & " " &
divisa
End If
Response.Write(mensaje)
%>
</body>
</html>