Modificare il file: \registrazione\inc_validatecode.asp

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <% Dim str_code str_code = Request.QueryString("userCode") Dim isCodeValid Dim str_stato, str_name 'Creo una nuova stringa SQL validateSQL = "SELECT * FROM tbl_Authors WHERE code = '" & str_code & "'" 'Creo un nuovo recordsheet Set rs_validate = Server.CreateObject ("ADODB.RecordSet") 'Apro il record sheet and eseguo il codice SQL rs_validate.open validateSQL,adoCon 'Se il codice non è valido setto isCodeValid = falso If rs_validate.EOF _ Or rs_validate.BOF Then isCodeValid = false Else isCodeValid = true str_stato = rs_validate("stato") str_name = rs_validate("name") str_authority = rs_validate("authority") End If 'Chiudo adoCon e rs_validate set rs_validate = Nothing %>

[Íàçàä]