Modifica di un file

Modificare il file: \registrazione\cancella_utente.asp

<% Server.Execute("header.asp") %>
<%
	'nuova SQL string
	strSQL = "SELECT code " & _
	 "FROM tbl_Authors WHERE name = '" & str_users_name & "' AND CODE = '" & str_users_code & "' AND pass = '" & str_users_password & "'"
	
	'Creare un nuovo recordsheet
	Set rs_check = Server.CreateObject ("ADODB.RecordSet")

'Aprire il record sheet e eseguire SQL
	rs_check.open strSQL,adoCon

If rs_check.EOF _
	Or rs_check.BOF Then
		Response.Redirect "noentry.asp"
	ElseIf str_users_authority <> "admin" Then
		Response.Redirect "noentry.asp?entryType=noAdmin"
	Else
	End If
%>
<%
If str_authority <> "admin" Then
	'nuova SQL string
	deleteSQL = "DELETE * FROM tbl_authors WHERE code = '" & str_code & "'"
	
	'Creare un nuovo recordsheet
	Set rs_delete = Server.CreateObject ("ADODB.RecordSet")
	
	'Aprire il record sheet e eseguire SQL
	rs_delete.open deleteSQL,adoCon
	
	'Se il code non è valido setta isCodeValid = false
	'If rs_delete.EOF _
	'Or rs_delete.BOF Then
	'	isCodeValid = false
	'Else
	'	isCodeValid	= true
	'	str_stato	= rs_validate("stato")
	'	str_name	= rs_validate("name")
	'End If
	
	'Chiudo adoCon e rs_delete
	adoCon.Close
	set rs_delete = Nothing
End If
%>

<title><%=pageTitle%> - Cancellazione Utenti</title>

<%
	If str_authority <> "admin" Then
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
Utente <%=str_name%> è stato cancellato.&nbsp; <a href="lista_utenti.asp">Clikka 
 qui</a> per tornare indietro.
<%
	Else
%>
Non puoi eliminare l'amministratore.&nbsp; <a href="lista_utenti.asp)">Clikka 
 qui</a> per tornare indietro.
<%
	End If
%>
<% Server.Execute("footer.asp") %>

[Íàçàä]