como fazer isto

[zanelati2002 0]

tenho uma pagina inicial que no lugar de visitante quero colocar olá e o nome do cara qeu ta se logando mais só mostra olá visitante. olehm o codigo

validar user

<%if Request.Cookies("username") = "" thenend if%><%username = Request.Form("username")senha = Request.Form("senha")page = Request.Form("page")stayloggedin = Request.Form("stayloggedin")if page = "" thenpage = "logado.asp"end ifif InStr(username, "'") or InStr(username, """") or InStr(username, "=") or InStr(senha, "'") or InStr(senha, """") or InStr(senha, "=") thensqlflag = Trueend if%><!--#include file="conexao.asp"--><%If Request.QueryString("acao") = "username" ThenSession("username") = Request.QueryString("username")Sql = "Update users Set online=true, hora='"& time &"' Where username='"& username &"'"Set Rs = Conn.Execute(Sql)Session("username") = usernameSql = "Update users Set online=true, hora='"& time &"' Where username='"& username &"'"Set Rs = Conn.Execute(Sql)ElseSession("username") = usernameSql = "Update users Set online=true, hora='"& time &"' Where username='"& username &"'"Set Rs = Conn.Execute(Sql)End If%><%sql = "SELECT username FROM users WHERE username = '" & username & "' AND senha = '" & senha & "'"Set rsUser = Server.CreateObject("ADODB.Recordset")rsUser.Open sql, conn, 3, 3Set você = Server.CreateObject("ADODB.Connection")você.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db/site/siteusers.mdb") &";Persist Security Info=False"up = "UPDATE users SET UltimaVisita=NOW WHERE username = '" & session("username") & "'"vOn = "UPDATE users SET ehmembro=1 WHERE username = '" & session("username") & "'"vvezes = "UPDATE users SET vezes=vezes+1 WHERE username = '" & session("username") & "'"If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True thenResponse.Cookies("username") = rsUser("username")você.Execute(up)você.Execute(vOn)você.Execute(vvezes)Session.Timeout = 10if stayloggedin = "yes" thenResponse.Cookies("username") = rsUser("username")SQL = "UPDATE users (UltimaVisita) VALUES (NOW) WHERE username = = '" & session("username") & "'"set rsUser = conn.execute(SQL)você.Execute(up)você.Execute(vOn)você.Execute(vvezes)end ifrsUser.closeset rsUser = nothingconn.closeset conn = nothingResponse.Redirect(page)end if'Otherwise, display an invalid entry screenrsUser.closeset rsUser = nothingconn.closeset conn = nothing%>

default.asp

 

<%If request.querystring("Acao") = "Criar" Thenresponse.Cookies("username") = "João" 'Cria o cookie c/ seu respectivo valorresponse.Cookies("username").expires = "31/12/2010"  'determina a data de expiração deste cookieresponse.Redirect "?"End If If request.querystring("Acao") = "Apagar" Thenresponse.Cookies("username")response.Redirect "?"End If If request.Cookies("username") <> "" Then response.Write "Olá <b>"&request.Cookies("username")& "</b>"Elseresponse.Write "Olá <b>Visitante</b>"End If%>

tentei também assim

 

<%   If request.QueryString("login") <> "" Then   response.Write("Olá "& login &"!")   else   response.Write("Olá Visitante!")   End if%>

o que faço

[zanelati2002 0]

cara sinto muito não deu certo sera que da para fazer isto que quero

[zanelati2002 0]

então cara com este codigo que você me deu eu inverti coloquei primeiro o response.Write("Olá Visitante!") e depois o o users é só apareceu o olá mais não o user logado tem como fazer isto por sesion