<% '***************************************************** ' Validate credit cards ' VP-ASP 5.00 add month year subs ' Jan 20, 2003 DEMO '***************************************************** Sub ShopValidatecreditcard (strocardno, strocardtype, serror) end sub Sub ValidateExpiry end sub ' Sub ValidateCVN end sub ' Sub ValidateSWitch end sub '*********************************************************************** ' Generate a select list for months '************************************************************************* Function GenerateMM (name, currentvalue) dim value value="" dim i, month, selected month=datepart("m",date()) If currentvalue<>"" then month=currentvalue end if for i =1 to 12 name=i If len(Name)=1 then name="0" & name end if If name = month then Selected="Selected" else Selected="" end if value=value & "" & Name & "" Next value=value & "" generatemm=value end function '*********************************************************************** ' Generate a select list for Years '************************************************************************* Function GenerateYY (name, currentvalue) dim value dim i, year, currentyear, selected, yearpart value="" year=datepart("yyyy",date()) currentyear=year If currentvalue<>"" then currentyear=currentvalue end if for i =1 to 10 yearpart=right(year,2) if currentyear=Yearpart then Selected="Selected" else Selected="" end if value=value & "" & Yearpart & "" Year=year+1 Next value=value & "" Generateyy=value end function %>