<% Dim strDB strDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db.mdb") Dim objConn SET objConn=Server.CreateObject("ADODB.Connection") objConn.Open strDB Dim strRS SET strRS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM tabGatti ORDER BY tabGatti.Nome;" strRS.Open SQL, objConn %> G A T T I D E L T O R R I N O . i t

g a t t i d e l t o r r i n o . i t


In questa pagina vogliamo presentare i nostri gatti nella speranza che vorrai adottarne uno a distanza. Ti invieremo le sue foto e ti aggiorneremo sul suo stato di salute.

Tutti loro ti ringraziano in anticipo!

 

 

<% While Not strRS.EOF response.write "

" & _ " " & _ " " & _ " " & _ "" response.write "

" & strRS.Fields.Item("Nome").Value & " - " & _ strRS.Fields.Item("Eta").Value & " anni - " & _ strRS.Fields.Item("Storia").Value & "




" strRS.MoveNext() Wend strRS.Close Set strRS = Nothing objConn.Close Set objConn = Nothing %>