<%Set cr=Server.CreateObject( "MSWC.ContentRotator" )%> <% '-------------------------------------------------------------- 'OPEN THE DATABASE CONNECTION set objConn = server.createobject("ADODB.Connection") objConn.Open "sheltierescue" objConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=d:hosting\blincos0\access_db\shelties.mdb" '-------------------------------------------------------------- '-------------------------------------------------------------- 'GET THE NUMBER OF NEW APPLICATIONS Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * from tbl_dogs where dog_status in ('47','41') order by dog_name ASC" objRS.Open strSQL,objConn,3,3 '-------------------------------------------------------------- '-------------------------------------------------------------- 'AVAILABLE SHELTIES Set objRS2 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * from tbl_dogs where dog_status in ('47')" objRS2.Open strSQL,objConn,3,3 '-------------------------------------------------------------- '-------------------------------------------------------------- 'AVAILABLE SHELTIES Set objRS3 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * from tbl_dogs where dog_status in ('41')" objRS3.Open strSQL,objConn,3,3 '-------------------------------------------------------------- Domain = request.ServerVariables("SERVER_NAME") %>

Adoption Application | All Dogs | Success Stories
Triangle Sheltie Rescue Reunion 2014!

Thanks to all who came out and made our Triangle Sheltie Reunion a huge success! We had so much fun at Latane Animal Sanctuary in Mebane, NC and we can't wait to do it again.

Keep checking back for our next event.

Adopt a Sheltie!

We could really use your help.  Many of the dogs that come in to our care need treatment beyond a routine exam, and your donations for their medical needs are always welcome. You can send your tax-deductible contributions at any time via PayPal on our website or by mail to TSR, PO Box 1198, Knightdale, NC 27545.

We currently have <%=objRS2.RecordCount%> shelties available for adoption<%if objRS3.RecordCount > 0 then%> and <%=objRS3.RecordCount%> that will be ready soon<%end if%>. Our shelties are up to date on shots and spayed or neutered, and looking for great forever homes!

Please note that we are currently only processing applications from the state of North Carolina. Click here to see the list of rescue organizations across the country on the American Shetland Sheepdog Association website..

 
More Destinations
   Double Merles Website
   The Flame Heartworm Treatment Fund
   Happy dogs, happy families and happy endings
   How can you help? Volunteer!
   Fun stuff, pictures and more ...
<% objRS.Close set objRS = Nothing objConn.Close set objConn = Nothing %>