<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: enter birthday form
%>
<%
on error resume next
dim mySQL, connTemp, rsTemp
' get settings
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pStoreLocation = getSettingKey("pStoreLocation")
pHeaderKeywords = getSettingKey("pHeaderKeywords")
pAuctions = getSettingKey("pAuctions")
pAllowNewCustomer = getSettingKey("pAllowNewCustomer")
pNewsLetter = getSettingKey("pNewsLetter")
pStoreNews = getSettingKey("pStoreNews")
pSuppliersList = getSettingKey("pSuppliersList")
pDateSwitch = getSettingKey("pDateSwitch")
pDateFormat = getSettingKey("pDateFormat")
pIdProduct = getUserInput(request.QueryString("idProduct"),4)
pDescription = getUserInputL(request.QueryString("description"),50)
pIdCustomer = getSessionVariable("idCustomer",0)
pBirthDay=""
if pIdCustomer<>0 then
' get birthday
mySQL="SELECT birthday FROM customers WHERE idCustomer=" &pIdCustomer
call getFromDatabase(mySQL, rsTemp, "optEmailToFriendForm")
if not rstemp.eof then
pBirthDay=rstemp("birthday")
end if
end if
if pDateFormat="DD/MM/YYYY" then
if pDateSwitch="-1" then
pDateFormat="MM/DD/YYYY"
end if
else
if pDateSwitch="-1" then
pDateFormat="DD/MM/YYYY"
end if
end if
%>