<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Untitled Document <% Dim AdoCon Dim rsAddDogs Dim strSQL Set adocon = server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("St George's.mdb") Set rsAddDogs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblDogs.Name, tblDogs.Size, tblDogs.Age, tblDogs.Breed, tblDogs.Gender, tblDogs.Housetrained, tblDogs.Kid_Friendly, tblDogs.Fixed, tblDogs.History, tblDogs.Special_Needs FROM tblDogs;" rsAddDogs.Open strSQL, adoCon%>

Our Dogs

Here are some of the many dogs we have available to adopt at our shelter right now, you can even apply online to adopt.

Name " /> Breed " />

Age " /> Housetrained " />

Gender " /> Kid-Friendly " />

Size " /> Fixed " />

History <%response.write(rsAddDogs("History"))%>

Special Needs <%response.write(rsAddDogs("Special_Needs"))%>

Previous Next

Apply to adopt this dog.

<%rsAddDogs.Close Set rsAddDogs = Nothing Set adoCon = Nothing %>

Menu

Our Dogs