<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'Retrive Dog & Cat breed list from MSDE DB
dim oRSBreedListDog
dim oRSBreedListCat
dim oRSBreedListRab
set ahBreedList = server.CreateObject("AC_AH_PREMIUM.cGetPremium")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Retrive Dog breed list from MSDE DB
set oRSBreedListDog = server.createobject("ADODB.recordset")
set oRSBreedListDog = ahBreedList.GetBreedList(cstr("dog"),cstr("PP"))
oRSBreedListDog.MoveFirst
'Retrive Cat breed list from MSDE DB
set oRSBreedListCat = server.createobject("ADODB.recordset")
set oRSBreedListCat = ahBreedList.GetBreedList(cstr("cat"),cstr("PP"))
oRSBreedListCat.MoveFirst
'Retrive Rabbit breed list from MSDE DB
set oRSBreedListRab = server.createobject("ADODB.recordset")
set oRSBreedListRab = ahBreedList.GetBreedList(cstr("rab"),cstr("PP"))
set ahBreedList = nothing
oRSBreedListRab.MoveFirst
%>
Paying by direct debit | Petplan
<%
'Response.CacheControl = "no-cache"
'Response.AddHeader "Pragma", "no-cache"
'Response.Expires = -1
'Create the variables for the sidebars, page id and quotemsg
Dim pID, subpID, quoteMsg
'Current page id
pID = 5
'Message in the header, leave blank for no quote
quoteMsg = "Petplan is a pet insurance specialist, providing insurance for cats, dogs, rabbits and horses. That's why they're called the pet people."
Dim iCnt1, iYear, iDay
'select case Request.ServerVariables("local_addr")
''
' case sDevSite
'' 'skip
' case sCornhillStagingSite
'' 'skip
' case else
' if Request.ServerVariables("HTTPS")="off" then
' strURL="https://"& Request.ServerVariables("HTTP_HOST")& Request.ServerVariables("PATH_INFO")
' if Trim(Request.ServerVariables("QUERY_STRING"))<>"" then
' strURL=strURL & "?" & Request.ServerVariables("QUERY_STRING")
' end if
' Response.Redirect(strURL)
' end if
'end select
%>
