Stampa Errore

[elesis]

ho questo script:

Dim MM_conn_STRING
MM_conn_STRING = "dsn=Co1;uid=sa;pwd=sa;"


Dim user
Dim pass
user = Request.Form("user")
pass = Request.Form("pass")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open = MM_conn_STRING
Dim sql
sql = "SELECT * FROM [@SPEDIZIONIERI] WHERE Code='" & user & "' AND U_GATE='" & pass & "'"

Dim rs
Set rs = cn.Execute(sql)
<%
Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

if autenticato = true then
Session("Autenticato") = "yes"
Response.Redirect("../default.asp")
else
Response.Redirect("../../default.asp")
end if
%>

serve per l' accesso ad un db con una user e pass.

ma se voglio stampare a video un msg di errore nel caso l'utente non sia autorizzato??

graize

[Stan]

if autenticato = true then
  Session("Autenticato") = "yes"
  Response.Redirect("../default.asp")
else
  Response.write("Non hai il permesso per accedere alla pagina")
end if