Send value

[Guest_imported]

castella (Visitor) Mar 7, 2002
This is my code

<% CUser= request(&quot;CUser&quot %>
<% Sistemas= request(&quot;Sistemas&quot %>
<%
Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot
Conn.Open &quot;DSN=Requisicion;uid=sa;pwd=&quot;

sSQL=&quot;Select * from T_Inf_Personal where Username = '&quot; &CUser&&quot;' &quot;

set RS = Conn.Execute(sSQL)

If not RS.EOF then
If Sistemas = &quot;&quot; then
Response.Redirect(&quot;Cuentas1.asp&quot
Else
If Sistemas = &quot;Windows&quot; then
Response.Redirect(&quot;Cuentas2.asp&quot
End If
End If
End If
Conn.Close
%>

I want to send CUser and Sistemas to the page CuentasX
what can I do?

 

[derren]

Hi

  If not RS.EOF then
    If Sistemas = "" then
    Response.Redirect("Cuentas1.asp[COLOR=red][b]?CUser=" & CUser & "&Sistemas=" & Sistemas[/b][/color])
    Else
    If Sistemas = "Windows" then
       Response.Redirect("Cuentas2.asp[COLOR=red]?CUser=" & CUser & "&Sistemas=" & Sistemas[/color])
        End If
    End If
  End If

Then you can read in Cuser and Sistemas from Cuentas1 and 2 from the querystring.

Derren
[The only person in the world to like Word]

 

[derren]

Eek! My TGML didn't work! Why not! Here is the code without those pesky tags
Hi

  If not RS.EOF then
    If Sistemas = "" then
    Response.Redirect("Cuentas1.asp

?CUser=&quot; & CUser & &quot;&Sistemas=&quot; & Sistemas

)
    Else
    If Sistemas = "Windows" then
       Response.Redirect("Cuentas2.asp

?CUser=&quot; & CUser & &quot;&Sistemas=&quot; & Sistemas

)
        End If
    End If
  End If

So, I can't put colour within the code tags then! Darn it! Derren
[The only person in the world to like Word]