איך אפשר לאמת ישראכארט? (ASP)

יש לי באתר פונקציה שבודקת אם מספר כרטיס האשראי הוא אמיתי.
הבעיה שלי היא שהיא מתאימה רק לויזה, וכל מי שמכניס מספר של ישראכארט זה נותן הודעת שגיאה.

הקוד הוא:

private function checkcc(byval ccnum)
if ccnum="1111222233334444" or ccnum="4444333322221111" or ccnum="0000000000000000" then
checkcc=false : exit function
end if
cclen=int(len(ccnum))
ccrev=strReverse(ccnum)
tempn=int(0)
dim ccarray() : redim ccarray(cclen)
for i=1 to cclen
ccarray(i)=int(mid(ccrev,i,1))
next
for i=2 to cclen step 2
tempu=int(ccarray(i) * 2)
if tempu > 9 then
ccarray(i)=int(tempu – 9)
else
ccarray(i)=int(tempu)
end if
next
for i=1 to cclen
tempn=tempn + int(ccarray(i))
next
tempn=tempn Mod 10
if tempn <> 0 then
checkcc=false : exit function
end if
checkcc=TRUE
end function

מה אני צריך להוסיף או לשנות בשביל שזה יתאים גם לישראכארט

תודה רבה מראש על העזרה.