Restauro Privati, alcune opere eseguite.
-
<% dim objConn
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("montagn/dati/dbMontagni.mdb")
objConn.Open
dim strPrivati
dim strID
strSQL="SELECT * FROM tbl_privati;"
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
Do while NOT objRS.EOF
strPrivati=objRS ("privati")
strID=objRS ("ID_privati")
response.write " "
objRs.MoveNext
Loop
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn=Nothing
%>
