<% Set Conn = Server.CreateObject("ADODB.Connection") SET dog= Server.CreateObject("ADODB.Recordset") Conn.Open "DSN=adoptDog;UID=;pwd=;" SQL = "SELECT * FROM dogdesc " Dog.Open SQL,Conn Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "Fairfield 
" Response.Write "" Response.Write "" Response.Write "
" Response.Write "Welcome

" Response.Write "Adoption

" Response.Write "

" Response.Write "Adoptable Dogs

" Response.Write "

Dogs and the law

" Response.Write "

" Response.Write "Information

" Response.Write "Licenses

" Response.Write "

Adoptable Dogs

" Response.Write "
To Adopt any of these dogs
" Response.Write "
Have the dog's ID number that you are interested in available and contact.
" Response.Write "Fairfield County Dog Shelter
" Response.Write "1715 Granville Pike
" Response.Write "Lancaster Ohio 43130
" Response.Write "Phone (740) 653-4582
" Response.Write "SHELTER HOURS:
" Response.Write "Monday - Friday 9:00 am to 5:00 pm
" Response.Write "Saturday 9:00 am to noon

" Do While Not Dog.EOF If Dog("Deposition")= "AV" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

Age :
" If Dog("Age") > 0 Then If Dog("Age") > 1 Then Response.Write "" & Dog("Age") & " Years " Else Response.Write "" & Dog("Age") & " Year " End if End if If Dog("Monthes") > 0 Then If Dog("Monthes") > 1 Then Response.Write "" & Dog("Monthes") & " Monthes" Else Response.Write "" & Dog("Monthes") & " Month" End if End if Response.Write "

" Response.Write "Sex : " If Dog("Sex") = "M" Then Response.Write "Male" Else Response.Write "Female" End if Response.Write "
" & Dog("Name") & "
 & Dog(
" & Dog("breed") & "
Dog's ID Number : " & Dog("Idtag") & "
"& Dog("Desc1") & "
" Response.Write ""& Dog("Desc2") & "
" Response.Write ""& Dog("Desc3") & "
" Response.Write ""& Dog("Desc4") & "
" Response.Write "
" Response.Write "
" Response.Write vbcrlf Response.Write "
" End If If Not Dog.EOF then Dog.MoveNext end if Loop Response.Write "
" Response.Write "
" Response.Write "
" Response.Write"

Back" Response.Write "

" Dog.Close Conn.Close %>

                            Visitor number Hit Counter

                                        Date Last Modified March 30, 2009