<% '***************************************************** ' Validate credit cards ' VP-ASP 4.50 '***************************************************** Sub ShopValidatecreditcard (strocardno, strocardtype, serror) dim cctype, ctype, cclength, ccprefix, prefixes, lengths dim ccNumber, number, prefixvalid, lengthvalid, prefix Dim cccheck, length, result, qsum, x, ch, sum, checkcc dim testtype ccType = ucase(Left(StrocardType,1)) testtype=left(strocardtype,5) if testtype="DINER" then cctype=I ccnumber=strocardno ctype=ucase(cctype) select case ctype case "V" ' Visa cclength="13;16" ccprefix="4" case "M" ' Mastercard cclength="16" ccprefix="51;52;53;54;55" case "A" ' American express cclength="15" ccprefix="34;37" case "I" ' Diners cclength="14" ccprefix="300;301;302;303;304;305;36;38" case "D" ' discover/Novus cclength="16" ccprefix="6011" case "E" ' ? cclength="15" ccprefix="2014;2149" case "J" ' JCB cclength="15;16" ccprefix="3;2131;1800" case "C" ' Connect cclength="16" ccprefix="4539" case "S" ' Solo Switch cclength="19" ccprefix="6759" case "B" ' Bankcard cclength="16" ccprefix="5610" case else cclength="" ccprefix="" end select prefixes=split(ccprefix,";",-1) lengths=split(cclength,";",-1) number=trimtodigits(ccnumber) prefixvalid=false lengthvalid=false if ccprefix<>"" then for each prefix in prefixes if instr(number,prefix)=1 then prefixvalid=true end if next else prefixvalid=true end if for each length in lengths if cstr(len(number))=length then lengthvalid=true end if next result=0 if not prefixvalid then result=result+1 end if if not lengthvalid then result=result+2 end if qsum=0 for x=1 to len(number) ch=mid(number,len(number)-x+1,1) 'response.write ch if x mod 2=0 then sum=2*cint(ch) qsum=qsum+(sum mod 10) if sum>9 then qsum=qsum+1 end if else qsum=qsum+cint(ch) end if next 'response.write qsum if qsum mod 10<>0 then result=result+4 end if if cclength="" then result=result+8 end if checkcc=result if checkcc<> 0 then SError= SError & LangCheckoutError02 & "
" exit sub end if if right(strocardno,8)="11111111" then SError= SError & LangCheckoutError02 & "
" end if end sub function trimtodigits(tstring) 'removes all chars except of 0-9 s="" ts=tstring for x=1 to len(ts) ch=mid(ts,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next trimtodigits=s end function Sub ValidateExpiry dim mm dim yy If len(strocardexpires)<>5 then Serror = Serror & LangCheckoutExpiryError & "
" exit sub end if mm = left(strocardexpires,2) yy=right(strocardexpires,2) if not IsNumeric(mm) or Not Isnumeric(yy) then Serror = Serror & LangCheckoutExpiryNum & "
" end if end sub ' Sub ValidateCVN If getconfig("xCVNRequired")<>"Yes" then exit sub end if If len(strocardCVN)>4 then Serror = Serror & LangCheckoutCVNError & "
" exit sub end if if not isnumeric(strOCardCVN) then Serror = Serror & LangCheckoutCVNError & "
" exit sub end if end sub ' Sub ValidateSWitch if ucase(strocardtype)<>"SWITCH" then exit sub if strocardissue="" then serror=serror & "Issue number is required for Switch
" else if not isnumeric(strocardissue) then Serror = Serror & "Issue Number must be numeric" & "
" end if end if If strvalidfrom="" then serror=serror & "Valid From date is required for Switch
" end if end sub %>