<%@ Language=VBScript %> <% function submit1 MsgBox "da", vbOK, "er" end function %>

Nome:
Cognome:

<% Dim conn, rs, strSQL, percorso_DB, nome_DB '-------------------------------------- 'NOME DEL VOSTRO DATABASE nome_DB = "../test.mdb" percorso_DB = Server.MapPath (nome_DB) '-------------------------------------- '<< connessione DB Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & percorso_DB '<< connessione strSQL strSQL = "SELECT * FROM emp" '<< connessione RS Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, conn, 3, 3 '<< verifica se il recordset non è il primo '<< vuol dire che ci sono altri recordset nel db if Not rs.BOF then '<< creazione tabella dinamica Response.Write "" '<< contatore records nel db do while not rs.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write rs("id") & " " & rs("firstname")& " " & rs("lastname") Response.Write "

" Response.Write " " Response.Write "

" Response.Write "" rs.MoveNext loop Response.Write "

" Response.Write "Nel database ci sono: " Response.Write rs.RecordCount Response.Write " record" else Response.Write "Il database non contiene recordset" end if '<< chiusura rs rs.Close set conn = nothing %>