Inserimento di una funzione in una pagina ASP

[benralley]

Buongiorno,
ho la necessita di inserire la seguente funzione all'interno di una pagina asp :




'in ingresso si passa:
'- ID numerico del prodotto
'- Tipo che e' = "A"
'in uscita si ottiene l'identificativo con il CRC:
'Esempio: CalcolaCRC(1234, "A") = 1234AU

Public Function CalcolaCRC (ID as Long, Tipo As String) As String
Dim I As Long, L As Long, C As Long, K As Long
Dim Code As String

Code = CStr(ID) & Tipo
L = Len(Code)
K = L Mod 3+1
C = 0
For I = 1 To L
C = C + (Asc(Mid(Code, I, 1) -47) * (I Mod 2 +K)
Next I
C = (C Mod 26) + Asc("A")
CalcolaCRC = Code + Chr(C)
End Function

questa funzione dovrebbe prendermi l'identificativo di un articolo ed aggiungerci 2 lettere alla fine.
Non Ho laminima idea da dove iniziare.
Grazie in anticipo.

[optime]

metti la funzione in testa alla pagina, e poi la richiami con

valore=CalcolaCRC (ID, Tipo)

tieni presente che asp non supporta i tipi, quindi la funzione sarà

Public Function CalcolaCRC (ID, Tipo)

eventualmente all'interno della function farai le debite conversioni