Products
InaAuthenticate
InaAuthenticate.Net
InaCalcStd
(Free)
InaCalcPro
InaCalc.Net
InaCardCheck
InaCardCheck.Net
InaClock
InaClockCtrl
InaClockCtrl.Net
InaCryptCompress.Net
InaEmailCheck
InaEmailCheck.Net
InaEmailSend
InaFileConverter
InaGrid
InaSysTray
InaUploadFile
InaXplorer
XComp (Free)
Press Releases
.Net
InaAuthenticate
InaCalc
InaCardCheck
InaClock
InaEmailCheck
InaEmailSend
InaGrid
InaUploadFile
InaCardCheck Demo Source
Language=VBScript
Dim m_strMainPrompt
Dim m_strNumber, m_strExpires, m_strType
Dim m_strError
m_strMainPrompt = "Please enter the card number, expires and type."
If Request.Form.Count > 0 Then
m_strNumber = Request.Form("Number")
m_strExpires = Request.Form("Expires")
m_strType = Request.Form("Type")CheckCard()
End If
Sub CheckCard
On Error Resume Next
Dim CheckObject
Dim validSet CheckObject = CreateObject("InaByte.InaCardCheck")
valid = CheckObject.ValidateCreditCardDetails(m_strNumber, m_strType, m_strExpires)
m_strError = ""
If valid <> 0 Then
m_strError = "Error: " & CheckObject.GetErrorString(valid)
End If
End Sub
Sub FillTypes
On Error Resume Next
Dim CardType
For Each CardType in CreateObject("InaByte.InaCardCheck").CreditCardTypes
If m_strType <> CardType Then
Response.Write("<OPTION>")
else
Response.Write("<OPTION SELECTED>")
End If
Response.Write(CardType)
Next
End Sub