Hola:
Haber si entendí lo que pedís...
Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<%
Option Explicit
Response.ExpiresAbsolute=#May 31,1990 13:30:15#
Response.Buffer = true
%>
<%@Language=VBScript%>
<html>
<head>
<title>AZB</title>
<%Dim usertype u
usertype=request.querystring("f_usertype1")
%>
<SCRIPT LANGUAGE=VBScript>
Dim timer,f_usertype
Sub Init()
// Set up the timer. Set it for 15 seconds
timer = window.setInterval("Logout", 2000)
End Sub
Sub Logout()
// Take whatever action is required at this point
f_usertype = <%=usertype%>
MsgBox f_usertype
if f_usertype="1" then window.location = "http://www.seznam.cz"
if f_usertype="2" then window.location = "http://www.google.com"
if f_usertype="3" then window.location = "http://www.iol.cz"
if f_usertype="4" then window.location = "http://www.email.cz"
End Sub
Sub Delay()
// Delay the logout
clearInterval(timer)
Init
End Sub
</SCRIPT>
</head>