%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Function CAPTCHA() Dim caratteri, codice caratteri = "" caratteri = caratteri & "0123456789" caratteri = caratteri & "abcdefghijklmnopqrstuvwxyz" caratteri = caratteri & "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Randomize() Do Until Len(codice) = 7 carattere = Int((Len(caratteri) * Rnd())) codice = codice & Mid(caratteri, carattere, 1) Loop CAPTCHA = codice End Function Session("captcha") = CAPTCHA() %>
|
|
|||||
| |||||
Steccato - Via Nazionale 88842 Cutro (KR) - Tel. 338.1592719 - Email: info@steccato.it - P.I. 01217940558 © BWEB 2009 Tutti i diritti riservati |
|||||