<%@Language=VBScript%>
<%Response.Buffer = True%>
<%username = request.querystring("username")%>
<%
Username = Replace(Trim(Request.Form("username")), "*", "''")
SQL = "Select Doc_ID, Doc_URL, nome, UserName, PassWord, Clearance, ExpireDate From Login"
Set RS = MyConn.Execute(SQL)
While Not RS.EOF
If Username = RS("UserName") Then
If RS("ExpireDate") > Now() Then
Session("allow") = True
Session("clearance") = RS("Clearance")
Level = RS("Clearance")
Else
Response.Redirect ("utility.asp?username=" & request("username"))
End If
End If
RS.MoveNext
Wend
CleanUp(RS)
nome = Request.QueryString("nome")
If Session("allow") = True Then
Else
Response.redirect "pws_no.asp"
End If
%>
Elementi di Reumatologia per i terapisti della Riabilitazione- Indice
