Pasar data recivida en una pagina asp como parametro de entrada para una funcion VB

gymanual · #1 (**permalink**) 20/08/2004, 06:16

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"> </td>
<td style="BORDER-BOTTOM: #CCCCCC 1px solid" align="center"></td>
</tr>
</table></td>
<td style="BORDER-BOTTOM: #CCCCCC 1px solid" width="260" height="54"> </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"></td>
<td width="596" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td ></td>
</tr>
<tr>
<td align="left">
<table width="596" cellpadding="5">
<TR>
<td bgcolor="#FFCC33"></td>
</TR>
</table>
</td>
</tr>
<tr>
<td height="21"> </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"> </td>
</tr>
<tr>
<td width="776" height="21" colspan="2" align="center" valign="top"> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>

PMP · #2 (**permalink**) 20/08/2004, 06:44

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>

gymanual · #3 (**permalink**) 20/08/2004, 08:16

Hola, ya habia probado lo que me dices,

f_usertype = <%=usertype%>

pero me sale error, la verdad nose porque, me parece que no lee bien el parametro pasado

usertype=request.querystring("f_usertype1")

Cuando le asigno directamete un valor a usertype, todo funciona bien, pero ese no el proposito.
a esta pa
gina la llamo asi:

http://root/pages/After_Registrace_Sablona.asp?f_usertype1="1"

Alguna otra idea?
Gracias

Myakire · #4 (**permalink**) 20/08/2004, 09:09

Intenta con http://root/pages/After_Registrace_S...?f_usertype1=1, ya que f_usertype = <%=usertype%> lo recibe como string. Aunque eso es indistinto, en VBScript todas las variables son variant a menos que indiques lo contrario mediante castings.

gymanual · #5 (**permalink**) 20/08/2004, 09:52

gracias por la respuesta, pero igual, error

Myakire · #6 (**permalink**) 20/08/2004, 10:35

¿Qué error marca (sino sale el error, modifica Opciones de Internet -> Opciones Avanzadas -> Desmarcar "Mostrar mensajes descriptivos)?
¿Haz verificado que Request.QueryString llega con algo?

PMP · #7 (**permalink**) 24/08/2004, 12:59

Donde dice:

Dim usertype u

La 'u' al final te va a generar error.
Debes poner

Dim usertype