Creare una griglia per visualizzare il contenuto di un recordset.
		Stampa	Torna Indietro
Linguaggio: ASP	Autore: Admin		Data Archiviazione: 01/11/2003

<%

Sub DataGrid(tabella)

SQLConn = ""' stringa di conn

set conn = server.createobject("ADODB.Connection")
conn.open sqlconn

Set rs = conn.Execute("SELECT * FROM " & tabella)

' ricavo il nome dei campi
For i = 0 to RS.Fields.Count - 1
intestazione = intestazione & "<th bgcolor=gray>" & RS(i).Name &"</th>"
Next

' prendo i dati dal db
strResults = rs.GetString(, 10,"</td><td>","</td></tr><tr><td>","-")
set rs = nothing
conn.Close
set conn = Nothing

' output
Response.Write ("<table border=1>")
Response.Write ("<tr>" & intestazione & "</tr>")
Response.Write ("<tr><td>" )
Response.Write (strResults)
Response.Write ("</td></tr></table>" )
End Sub

Call DataGrid("ordini")

%>