<%
Response.Buffer = True
Response.Expires =-1500
%>
Blocca
<%
id=request.querystring("id")
sql="select * from utenti where id_utente = "&id&""
set rs=conn.execute(sql)
if not rs.eof then
nome= rs("nome")
cognome= rs("cognome")
email= rs("email")
card = rs("card")
end if
rs.close
set rs=nothing
sql="update autorizzo set autorizzato = 0 where user = '"&card&"'"
conn.execute(sql)
sql="update utenti set eliminato = 1 where card = '"&card&"'"
conn.execute(sql)
sql = "update newsletter set iscritto = 0 where id_utente = "&id&""
conn.execute(sql)
mex="L'utente è stato bloccato"
messaggio = "Gentile: " & cognome & " "& nome &","& vbcrlf
messaggio = messaggio & "Siamo spiacenti di comunicarle che il suo account è stato bloccato."& vbcrlf
messaggio = messaggio & "------------------------------------------------"&vbcrlf
messaggio = messaggio & "Cordiali saluti."&vbcrlf
messaggio = messaggio & "Lo staff di http://www.mx-5.it"&vbcrlf
oggetto="Mazda mx-5 - Account bloccato"
call InviaMail2(email, email, "mx5@mx5.it", "MX5", oggetto, messaggio)
' Set oMail = Server.CreateObject("Persits.MailSender")
' oMail.Host = "www.mx5.it"
' oMail.From = "mx5@mx5.it"
' oMail.Subject = "Mazda mx-5 - Account bloccato"
' oMail.Body = messaggio
' oMail.IsHTML = False
' oMail.addAddress email
' oMail.Send
' set oMail= nothing
%>
<%
conn.close
set conn=nothing
%>