CheckCreditCrd

Function CheckCard(CCNumber As String) As Boolean
Dim Counter As Integer, TmpInt As Integer
Dim Answer As Integer
Counter = 1
TmpInt = 0
While Counter <= Len(CCNumber)
If (Len(CCNumber) Mod 2) Then
TmpInt = Val(Mid$(CCNumber, Counter, 1))
If Not (Counter Mod 2) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
Else
TmpInt = Val(Mid$(CCNumber, Counter, 1))
If (Counter Mod 2) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
Counter = Counter + 1
End If
Wend
Answer = Answer Mod 10
If Answer = 0 Then CheckCard = True
End Function
<%
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;
Data Source = d:\inetpub\data\db.mdb;"
Set conn = Server.CreateObject(ADODB.Connection
conn.open Strconn
...
%>
'Mentre per il collegamento con SQL Server, l'unica cosa da

'variare e'

<%
StrConnect = "Provider = SQLOLEDB;
Data Source = nome_della_macchina_server;
Database = nome_del_db;
User ID = user_id; Password=password"
%>