<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Documento senza titolo
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
If Request("a") <> "" Then
Conn.execute ("UPDATE admin SET user = '"&Request("user")&"', password = '"&Request("password")&"' WHERE id = "&session("id")&"")
End If
Set Rs = Conn.execute ("SELECT * FROM admin WHERE id = "&session("id")&"")
%>
<% Rs.Close
Set Rs = Nothing
Conn.Close
Set Connb = Nothing
%>