<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<h5></h5>
<%
Dim ConnessioneDB, rNews, strConn
Set ConnessioneDB = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database2.mdb")&";Persist Security Info=False"
ConnessioneDB.Open strConn
Set rNews = ConnessioneDB.Execute("DELETE * FROM News;") %>
<% If rNews.BOF=True And rNews.EOF=True Then %>
<h5>Email Cancellate Correttamente</h5>
<% Else %>
<h5>ERRoRe RiPRoVa</h5>
<% END IF %>
<% rNews.Close : Set rNews = Nothing
ConnessioneDB.Close : Set ConnessioneDB = Nothing %>
</body>
</html>