<%
'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 = ""
dim sAnimal
sAnimal = "DOG"
Dim strAddressList
Dim strAddressNewList
Dim strPostCode
dim sField
dim straddressListComma
dim iCnt1
Dim iYear
'Dim strURL
if requestForm("txtAddressFlag") = "0" then
if not(requestForm("txtOldPostArea")) = "" then
for each sField in Request.form
select case sField
case ""
case else
if session(sField) = cstr(simplyRequest(sField)) then
else
session(sField) = cstr(simplyRequest(sField))
end if
end select
next
End if
elseif requestForm("txtAddressFlag") = "1" then
If not(requestForm("txtNewPostArea")) = "" then
for each sField in Request.form
select case sField
case ""
case else
if session(sField) = cstr(simplyRequest(sField)) then
else
session(sField) = cstr(simplyRequest(sField))
end if
end select
next
End if
End if
Dim strCampaignPlan
strCampaignPlan = CheckCampaignPlan()
Dim pvdiscount
pvdiscount= availDiscount()
%>
<%
'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
%>
