Kansas State University College of Veterinary Medicine Zoological Medicine Service		July 2008

Welcome to the KSU Zoological Medicine Service. Our goal is to provide excellent, professional care of exotic pets and zoo animals. We have a dedicated staff of Board Certified Zoological Medicine Veterinarians, Staff Veterinarians, Interns and Senior Veterinary students. We are available for the care of household exotic pets and we provide the veterinary care for Sunset Zoo. Thank you for choosing K-State Veterinary Medicine and supporting the training of our future veterinarians. KSU Zoological Medicine Program General Information Training Clinical Care Research Continuing Education Zoo Sunset Zoo (Manhattan, KS) http://www.ci.manhattan.ks.us/SunsetZoo/

Making an appointment Client Information Emergency Services KSU Zoological Medicine Veterinarians  - Dr. James Carpenter Referring Veterinarians Intern and Resident Programs American College of Zoological Medicine Exotic Animal Links Memorials and Gifts to the Hospital Contact Information News

K-State Website • KSUCVM Mainpage • Teaching Hospital

This section was last updated on:Friday May 30 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_ex 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_ex SET hcount=" & hcount1 & ", ddate='" & Date() & "' WHERE uip='" &uip& "'" end if else sqlst1 = "INSERT INTO vmth_ex (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_ex" rstemp.open sqlst, connectme if not rstemp.eof then count1 = rstemp("csum") response.write count1 &" hits since December 7, 2004" end if %>