<% '***************************************************************** ' Subroutines to support delivery address per product ' Version 4.00 Oct 23, 2001 '****************************************************************** const dFirstName=1 const dLastName=2 const dAddress=3 const dCity=4 const dState=5 const dPostCode=6 const dcountry=7 const dCompany=8 const dPhone=9 const dEmail=10 const dDeliveryType=11 const Dshippingtype=12 const dshippingcost=13 const dComment=14 const dSignature=15 Const dDeliveryTime=16 const DeliveryAttributes=17 const DeliveryDelimiter=";" Sub CreateDeliveryAddress (deliveryarray) deliveryarray(dfirstname)=strfirstname deliveryarray(dlastname)=strlastname deliveryarray(daddress)=straddress deliveryarray(dcity)=strcity deliveryarray(dstate)=strstate deliveryarray(dpostcode)=strpostcode deliveryarray(dcountry)=strcountry deliveryarray(dCompany)=strCompany deliveryarray(dPhone)=strPhone deliveryarray(demail)=strEmail deliveryarray(dDeliverytype)=DeliveryType deliveryarray(dShippingCost)=ShippingCost deliveryarray(dShippingtype)=ShippingMethod deliveryarray(dComment)=DeliveryComment deliveryarray(dSignature)=DeliverySignature Deliveryarray(ddeliveryTime)=DeliveryTime end sub sub SetupDeliveryFields (Deliveryarray) If not isarray(deliveryarray) then exit sub Strfirstname=Deliveryarray(dFirstName) strlastname=Deliveryarray(dLastName) straddress=Deliveryarray(dAddress) strcity=Deliveryarray(dCity) strstate=Deliveryarray(dState) strpostcode=Deliveryarray(dPostCode) strcountry=Deliveryarray(DCountry) strcompany=Deliveryarray(dCompany) stremail=Deliveryarray(dEmail) strphone=Deliveryarray(dPhone) DeliveryType=DeliveryArray(DDeliveryType) ShippingMethod=DeliveryArray(dShippingType) ShippingCost=DeliveryArray(dShippingCost) DeliveryComment=DeliveryArray(dComment) DeliverySignature=DeliveryArray(dSignature) DeliveryTime=deliveryarray(dDeliveryTime) end sub 'add namesto cart Sub GetDeliveryName (name, DeliveryArray) dim shippingmethod If Not isarray(DeliveryArray) then exit sub If Deliveryarray(dDeliveryType)<>LangDeliverySelf then name=name & "
" & DeliveryFont & LangDeliveryAddress & DeliveryFontEnd name=name & "
" & deliveryArray(dFirstName) & " " & DeliveryArray(dLastname) name=name & "
"& deliveryArray(dAddress) name=name & "
" & deliveryArray(dCity) & " " & deliveryArray(dState) & " " & deliveryArray(dPostcode) AddDeliveryField "",name, deliveryArray(dCountry) AddDeliveryField "",name, deliveryArray(dCompany) AddDeliveryField LangCustPhone,name, deliveryArray(dPhone) AddDeliveryField LangCustemail,name, deliveryArray(demail) else name=name & "
" & DeliveryFont & LangDeliverySelf & DeliveryFontEnd end if AddDeliveryField LangDeliveryDate,name, deliveryArray(dDeliveryTime) ShippingMethod= deliveryArray(dShippingType) If DeliveryArray(dShippingcost)<>"" then 'ShippingMethod = shippingmethod & " [" & shopformatcurrency(DeliveryArray(dShippingcost),getconfig("xdecimalpoint")) &"]" ShippingMethod = shippingmethod end if AddDeliveryField LangShippingMethod,name,shippingmethod AddDeliveryField LangCreate06,name, deliveryArray(dComment) AddDeliveryField LangDeliverySignature, name, deliveryArray(dSignature) end sub Sub AddDeliveryField (caption,name,value) If value<>"" then If caption="" then name=name & "
" & value else name=name & "
" & DeliveryFont & caption & DeliveryFontEnd & "
" & value end if end if end sub Sub VerifyDeliveryAddress(rc) rc=0 ' See if each product that requires a delivery address, has one Dim scartitem, arrcart, i, deliveryarray, deliveryrequired If getconfig("xDeliveryRequired")<>"Yes" Then exit sub scartItem = GetSess("CartCount") arrCart = GetSessA("CartArray") ' go through all products For i = 1 to scartItem Deliveryarray=arrCart(cDelivery,i) If not isarray(deliveryArray) then rc=4 exit sub end if next rc=0 end sub Sub ConvertDeliveryToString(DeliveryArray, ostring) dim i ostring="" if not isarray(deliveryarray) then exit sub for i = 1 to DeliveryAttributes-1 if i=1 then ostring=deliveryarray(i) else ostring=ostring & DeliveryDelimiter & Deliveryarray(i) end if next end sub Sub ConvertDeliveryToArray(DeliveryArray,istring) redim DeliveryArray(DeliveryAttributes) dim words(30),wordcount,Delimiter,i Delimiter=DeliveryDelimiter parserecord istring, words, wordcount, delimiter wordcount=wordcount-1 for i =0 to wordcount Deliveryarray(i+1)=words(i) next end sub %>