<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") Set Rs = Conn.execute ("SELECT * FROM admin WHERE user = '"&Request("user")&"' AND password = '"&Request("password")&"'") If Rs.EOF Then Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing Response.end Else session("id") = Rs("id") Rs.Close Set Rs = Nothing %> Cambia password
Lista siti <% Conn.Close Set Conn = Nothing End If %>