Holo me podrian ayudar,
Como puedo pasar data recivida en una pagina asp como parametro de entrada para una funcion VB
En el codigo abajo, la pagina recive como parametro f_usertype1 y deseo que ese valor sea pasado en el SUB Logout(a una variable como f_usertype) para que luego de acuerdo a el se redireccione y si es posible se redireccione con parametros.
<!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="1"
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>
<body onload="Init">
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle"><table width="100%" height="450" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="4"> </td>
<td width="516" height="54"><table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="181"><!--WTD_A(Logo)--> </td>
<td style="BORDER-BOTTOM: #CCCCCC 1px solid" align="center"><!--WTD_A(Book)--></td>
</tr>
</table></td>
<td style="BORDER-BOTTOM: #CCCCCC 1px solid" width="260" height="54"><!--WTD_A(Menu_Up)--> </td>
<td rowspan="4"> </td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"><table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="180"><!--WTD_A(PodSekce_Pic)--></td>
<td width="596" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td ><!--WTD_A(Menu_middle)--></td>
</tr>
<tr>
<td align="left">
<table width="596" cellpadding="5">
<TR>
<td bgcolor="#FFCC33"><!--WTD_A(Text_Up)--></td>
</TR>
</table>
</td>
</tr>
<tr>
<td height="21"><!--WTD_A(Podsekce)--> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td style="BORDER-TOP: #CCCCCC 1px solid" width="776" height="21" colspan="2" align="center" valign="top"><!--WTD_A(menu_down)--> </td>
</tr>
<tr>
<td width="776" height="21" colspan="2" align="center" valign="top"><!--WTD_A(Copyright)--> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>