<% @ Language=VBScript %>

<%
    PWD = Request.Form("PWD")

    'CONNESSIONE AL DATABASE
    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
    Dim StrConn
    StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("db/locale.mdb") & ";"
    conn.open StrConn
    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT * FROM utenti WHERE pwd = '" & PWD & "'"
    rs.Open SQL, conn

    if not RS.EOF then
        SESSION("PWD")=RS("PWD")
        SESSION("USERID")=SESSION("PWD")
        Response.Redirect("loginok.asp")
    end if

    Set rs = Nothing
    conn.close
    Set conn = Nothing
%>