<% @Language=VBScript %> <% Option Explicit %> nom

 

 

<% Dim ObjConn Dim objRS Set objConn = server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=vvac.dsn" objConn.open Set objRS = Server.CreateObject ("ADODB.recordset") objRS.Open "annonce_chiens",objConn, , ,2 Do While Not objRS.EOF response.write "Nom : " & objRS("nom_chien") Response.Write "


" objRS.MoveNext Loop objRS.close Set objRS = Nothing objConn.Close Set objConn = Nothing %>