Lettura dati da database

L'esempio rappresenta una lettura dati da un database (ms access) e la scrittura del valore a video.

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objConn.Open Server.MapPath("data/dbtest.mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open "select psw from tbl_login where name='" + nameLogin + "'", objConn
Do While Not rs1.EOF
    descRs = rs1("psw")
    Response.write descRs
    rs1.MoveNext
Loop
objConn.Close
Set objConn = Nothing
Set rs1 = Nothing    
%>