<% tipo=request.QueryString("tipo") email1=Request.Form("email_elimino") '***TASTO INSERIMENTO CONTROLLI 'CONTROLLO DATI errMSG="" okMSG="" IF email1="" THEN errMSG=errMSG+"Inserire l'indirizzo di posta elettronica"&"
" else if instr(email1,"@")<=0 then errMSG="L'indirizzo di posta elettronica è sbagliato ricontrollare!"&"
" end if END IF if errMSG="" then 'TODO STESSA EMAIL cemail=DTLookup("id","contatti","dcancellazione=0 and email='"&email1&"' AND tipoprodotto='"+tipo+"' AND tipomedico=0") if isnull(cemail) or cemail&""="" then cemail=0 end if if cemail&""="0" then errMSG="Attenzione! Indirizzo di posta NON è presente nel nostro Database"&"
" end if end if nomepagina=tipo&"\home.asp?tppag="&tipo&"_NOmaillist" if errMSG="" then okMSG="Indirizzo eliminato dalla Mail List. Arrivederci!" end if %>

<% '***INSERIMENTO O CANCELLAZIONE CON ERRORI RITORNO ERRORE if errMSG<>"" then %> <% else idmail=DTLookup("id","contatti","dcancellazione=0 and email='"&email1&"' AND tipoprodotto='"+tipo+"' AND tipomedico=0") if isnull(idmail) or idmail&""="" then idmail=0 end if if idmail&""<>"0" then 'elimino TXT="UPDATE contatti SET dcancellazione="&DataINNumero(date) TXT=TXT&" WHERE id="&idmail ESEGUOquery(TXT) end if %> <% end if %>