redireccionar a pagina segun una variable

[alexgonzalez]

AQUI TE LO ENVIO ESPERO ME PUEDAS AYUDAR GRACIAS....

<%

'Para los redireccionamientos
Response.Buffer=True
Dim oConn, rs, SQL, usuario, password, cursos, pag 'session("curso")

'tomo el formulario
usuario=Request.Form("usuario")
password=Request.Form("password")
'Si no lo ha enviado le presentamos el formulario
if usuario="" then

Response.Write("<script>alert('Todos los campos son requeridos' );</script>")
%>
<script language="javascript">window.parent.location.repla ce ('formlogin.htm');</script>
<%


else
'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open (application("DBConn"))
SQL="SELECT cursos, id_usuario, usuario, Password FROM " & _
"Usuarios WHERE (Usuario='"&usuario&"' AND Password='"&password&"');"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then

'No existe ese usuario con esa contraseña le negamos el acceso
%>
Response.Write("<script>alert('Usuario y Password invalidos');</script>")
Response.Redirect("formlogin.htm")

<%

else
'le mandamos a la pagina de bienvenida

%>

<script language="javascript">window.parent.location.repla ce ('index.htm');</script>


<%
end if
end if


%>