If IDV.TestIsraeliID("25339570") Then MsgBox "Your ID is correct" Else MsgBox "Incorrect ID entered" End If Dim CC As New Netprotek.CCValidator CC.Expiration = "12/2002" CC.Number = "4111111111111111"
MsgBox CC.CardTypeName & "Is: " & CC.IsValid
JavaScript
var Mobj = new ActiveXObject("Netprotek.IDValidator"); function CheckID(){ try {
if (Mobj.TestIsraeliID("303675060")) { alert("ID is OK"); }else{ alert("Wrong ID"); } } catch(exception) { alert("Dll loading error"); } }
var CCobj = new ActiveXObject("Netprotek.CCValidator"); function CheckCC(){ try { CCobj.Expiration = "12/2002" CCobj.Number = "4111111111111111" alert (CCobj.CardTypeName + " Is: " + CCobj.IsValid); } catch(exception) { alert("Dll loading error"); } }
Active Server Pages
Set IDobj = Server.Createobject("netprotek.IDValidator")
If (IDobj.TestIsraeliID("23456788")) Then Response.Write("ID number is ok.") Else Response.Write("Wrong ID number.") End If Set IDobj = nothing
Set CCobj = Server.Createobject("Netprotek.CCValidator") CCobj.Expiration = "12/2002" CCobj.Number = "4111111111111111" Response.Write(CCobj.CardTypeName & " Is: " & CCobj.IsValid) Set CCobj = nothing
ASP.NET
@Import Namespace="Netprotek_CCvalidator_NET"
Dim CC As NewNetprotek_CCvalidator_NET.CCValidator
If CC.TestIsraeliID("123456789") Then Response.Write("Your ID is correct") Else Response.Write("Wrong ID") End If