Kansas State University College of Veterinary Medicine Pet Health Center		August 2008

Quality, compassionate care for life The Pet Health Center is your local veterinarian. The doctors, technicians, and students of the Pet Health Center are dedicated to the care of your pet through all of its life stages.  We provide all the routine health care services any local veterinarian would provide. Services Offered We offer full service medical care and diagnostics.  Below is a partial list of services provided by Pet Health. Annual Wellness Exams Puppy Exams Kitten Exams Vaccinations Deworming Heartworm Testing Senior Pet Care Program Microchips Dental exams and Cleaning Pedicures Euthanasia Flea & Tick Control Fleas Infesting Pets & Homes Ticks in Kansas Routine Behavior Consultation Spay and Neutering Minor Wound Repair Anal sac Expression Health Certificates (National & International) Nutritional Counsel Routine Eye Care Fecal Exams FeLV/FIV Testing Breed Selection/Consultation Common Intestinal Parasites In Cats And Dogs Tips For Controlling Internal And External Parasites In Cats And Dogs Zoonotic Potential Of Common Cat/Dog Intestinal Parasites

Meet the Doctors of the Pet Health Center   - Dr. Jennifer Akers   - Dr. Amy Dixon-Jimenez   - Dr. Susan Nelson   Making an appointment Pet Health Links Puppy Wellness Program brochure Kitten Wellness Program brochure Gifts & Donations Pet Memorials Special Pet Stories Contact Information

K-State Website • KSUCVM Mainpage

This section was last updated on:Monday August 18 2008

<% on error resume next usersIP = Request.ServerVariables("REMOTE_ADDR") set connTemp = server.createobject("adodb.connection") connTemp.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("\cgi-bin\databases\WebCounter.mdb")&";" connectme="Driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("\cgi-bin\databases\WebCounter.mdb")&";" set rstemp=Server.CreateObject("adodb.Recordset") sqlst = "SELECT * FROM vmthm WHERE uip='" &usersIP &"'" rstemp.open sqlst, connectme ddate1 = Date() arrdd1 = split(ddate1,"/") 'response.write "hi" & "
" if not rstemp.eof then uip = rstemp("uip") hcount = rstemp("hcount") ddate = rstemp("ddate") arrdd = split(ddate,"/") 'response.write arrdd1(0) &"-"& arrdd1(1) &"-"& arrdd1(2) & "
" 'response.write arrdd(0) &"-"& arrdd(1) &"-"& arrdd(2) & "
" if (arrdd(2) <> arrdd1(2) or arrdd(1) <> arrdd1(1) or arrdd(0) <> arrdd1(0)) and hcount >= 1 then hcount1 = hcount + 1 sqlst1 = "UPDATE vmthm SET hcount=" & hcount1 & ", ddate='" & Date() & "' WHERE uip='" &uip& "'" end if else sqlst1 = "INSERT INTO vmthm (uip,hcount,ddate) VALUES ('" &usersIP& "',1,'" &Date()& "')" end if connTemp.execute(sqlst1) connTemp.close set connTemp = server.createobject("adodb.connection") connTemp.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("\cgi-bin\databases\WebCounter.mdb")&";" connectme="Driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("\cgi-bin\databases\WebCounter.mdb")&";" set rstemp=Server.CreateObject("adodb.Recordset") sqlst = "SELECT * FROM vmth_ph WHERE uip='" &usersIP &"'" rstemp.open sqlst, connectme ddate1 = Date() arrdd1 = split(ddate1,"/") 'response.write "hi" & "
" if not rstemp.eof then uip = rstemp("uip") hcount = rstemp("hcount") ddate = rstemp("ddate") arrdd = split(ddate,"/") 'response.write arrdd1(0) &"-"& arrdd1(1) &"-"& arrdd1(2) & "
" 'response.write arrdd(0) &"-"& arrdd(1) &"-"& arrdd(2) & "
" if (arrdd(2) <> arrdd1(2) or arrdd(1) <> arrdd1(1) or arrdd(0) <> arrdd1(0)) and hcount >= 1 then hcount1 = hcount + 1 sqlst1 = "UPDATE vmth_ph SET hcount=" & hcount1 & ", ddate='" & Date() & "' WHERE uip='" &uip& "'" end if else sqlst1 = "INSERT INTO vmth_ph (uip,hcount,ddate) VALUES ('" &usersIP& "',1,'" &Date()& "')" end if connTemp.execute(sqlst1) connTemp.close connectme="Driver={Microsoft Access Driver (*.mdb)};DBQ=" &server.MapPath("\cgi-bin\databases\WebCounter.mdb")&";" set rstemp=Server.CreateObject("adodb.Recordset") sqlst = "Select SUM(hcount) as csum from vmth_ph" rstemp.open sqlst, connectme if not rstemp.eof then count1 = rstemp("csum") response.write count1 &" hits since December 7, 2004" end if %>