El primer asp aparece dentro del explorer correctamente pero la realizar la carga de las variables no me permite aparecer la siguiente pantalla el código es el siguiente:
Del primer asp:
<FORM METHOD="GET" ACTION="hacercuenta.asp">
Dato 1: <INPUT NAME="d1" SIZE="4" MAXLENGTH="4"><BR>
operacion a realizar:<SELECT NAME="operador">
<option VALUE="+">+ (sumar)
<option VALUE="-">- (restar)
<option VALUE="*">* (multiplicar)
<option VALUE="/">/ (dividir)
</SELECT><BR>
Dato 2: <INPUT NAME="d2" SIZE="4" MAXLENGTH="4"><BR>
<INPUT TYPE="Submit" VALUE="Hacer la cuenta"><BR>
</FORM>
y el segundo donde ocurre el problema
<%
'Creamos la funcion.
Function cuenta(operador, dato1, dato2)
select case operador
case "+":
cuenta = dato1 + dato2
case "-":
cuenta = dato1 - dato2
case "*":
cuenta = dato1 * dato2
case "/":
cuenta = dato1 / dato2
end select
'Pedimos el operador.
oper = Request.QueryString("operador")
'Nos fijamos que ambos campos tengan números.
if request.QueryString("d1") = "" OR request.QueryString("d2") = "" then
'Si se cumple esa condición, redireccionamos.
Response.Redirect ("cuenta.asp")
Else
'Pedimos al queryString los números.
num1 = Cint(Request.QueryString("d1"))
num2 = Cint(Request.QueryString("d2"))
'guardamos en la variable hacer la operacion que hace la función.
hacer = cuenta(oper, num1, num2)
'Mostramos el resultado...
Response.Write hacer
End if
%>
y el error es:
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/hacercuenta.asp, line 30
Cabe señalar que cuando le pongo un End me sigue apareciendo el error, quisiera saber si me hace falta algo o si programe mal.