cosi non va:

<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.Mappath("/marinodiprinzio/mdb-database/utenti.mdb")
Username=Request.Form("username")

rs=server.createobject("adodb.recordset")
strSQL="SELECT username FROM 1 WHERE username='"& username &"'"
rs.Open strSQL, conn LINEA 24
if not rs.EOF then
response.write("ok")
else
response.write("username assente")
end if
rs.Close
set rs=nothing
%>
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Open'
linea 24