explorer no me permite desplegar el asp

tema enviado por principiante en ASP
tema iniciado el 29/01/2008

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.