home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 March / PCWorld_2000-03_cd.bin / Software / Servis / ASPedit / _SETUP.1 / cctest.asp < prev    next >
Encoding:
Text File  |  1998-12-22  |  2.3 KB  |  78 lines
  1. <html>
  2. <!-- Test Script for credit card information -->
  3. <!-- (c) 1998 by Click Online -->
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  6. <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
  7. <!-- #include file="ccheck.inc"-->
  8. <title>Click Online Credit Card Test </title>
  9. </head>
  10.  
  11. <body
  12. <%
  13.  response.write "text=""" & textcol1 &_
  14.  """ link=""" & textlink &_
  15.  """ vlink=""" & textvlink &_
  16.  """ alink=""" & textalink &_
  17.  """ background=""../images/" &_
  18.  bgimgurl & """ bgcolor=""" &_
  19.  bgcolor & """" %>>
  20.  
  21. <p><%number=request("number")
  22. cctype=request("cctype")
  23. if number<>"" then
  24.   chk=checkcc(number,cctype)
  25.   response.write "<br>Result: "
  26.   select case chk
  27.   case 0
  28.     response.write "Card is ok!"
  29.   case 1
  30.     response.write "Wrong card type"
  31.   case 2
  32.     response.write "Wrong length"
  33.   case 3
  34.     response.write "Wrong length and card type"
  35.   case 4 
  36.     response.write "Wrong checksum"
  37.   case 5 
  38.     response.write "Wrong checksum and card type"
  39.   case 6
  40.     response.write "Wrong checksum and length"
  41.   case 7
  42.     response.write "Wrong checksum, length and card type"
  43.   case 8
  44.     response.write "unknown cardtype"
  45.   end select
  46. else
  47.   response.write "Please enter a card number"
  48. end if%></p>
  49.  
  50. <form method="POST">
  51.   <p>Card number: <input type="text" name="number" size="20"
  52. value="<%=number%>"></p>
  53.   <p>Type: <select name="cctype" size="1">
  54.     <option value="V" <%if cctype="V" then response.write "selected"%>>
  55. VISA</option>
  56.     <option value="M" <%if cctype="M" then response.write "selected"%>>
  57. Mastercard/Eurocard</option>
  58.     <option value="A" <%if cctype="A" then response.write "selected"%>>
  59. American Express</option>
  60.     <option value="C" <%if cctype="C" then response.write "selected"%>>
  61. Diners Club / Carte Blanche</option>
  62.     <option value="D" <%if cctype="D" then response.write "selected"%>>
  63. Discover</option>
  64.     <option value="E" <%if cctype="E" then response.write "selected"%>>
  65. enRoute</option>
  66.     <option value="J" <%if cctype="J" then response.write "selected"%>>
  67. JCB</option>
  68.     <option value="U" <%if cctype="U" then response.write "selected"%>>
  69. unknown cardtype (test)</option>
  70.   </select></p>
  71.   <p><input type="submit" value="Test it!" name="B1"></p>
  72. </form>
  73.  
  74. <p>⌐ 1998 by <a href="http://www.click-online.de">Click Online</a></p>
  75. </body>
  76. </html>
  77.  
  78.