Modificare il file: \registrazione\inc_viewuser.asp

<% Function rs_viewuser(desField) 'Creo una nuova stringa SQL If Request.QueryString("userCode") <> "" Then viewuserSQL = "SELECT * FROM tbl_Authors WHERE code='" & Request.QueryString("userCode") & "'" Else viewuserSQL = "SELECT * FROM tbl_Authors WHERE code='" & str_users_code & "'" End If 'Creo un nuovo recordsheet Set RS = Server.CreateObject ("ADODB.RecordSet") 'Apro il record sheet e eseguo SQL RS.Open viewuserSQL,cString retField = RS(desField) RS.Close Set RS = Nothing rs_viewuser = retField End Function Function getUserCode(username, email) 'Creo una nuova stringa SQL viewuserSQL = "SELECT * FROM tbl_Authors WHERE name='" & username & "' AND email='" & email & "'" 'Creo un nuovo recordsheet Set RS = Server.CreateObject ("ADODB.RecordSet") 'Apro il record sheet e eseguo SQL RS.Open viewuserSQL,cString If RS.EOF Then retCode = "" Else retCode = RS("code") End If RS.Close Set RS = Nothing getUserCode = retCode End Function %>

[Íàçàä]