|
|
|
|
<%
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 %> |