codice:
<%
Dim admin
admin = request.form("admin")
response.write("<body bgcolor='#fbf8dd' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'>")
if admin = "default" then
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM news"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Titolo") = Request.Form("titolo")
RecSet("data") = Request.Form("data")
RecSet("Messaggio") = Request.Form("messaggio")
RecSet.Update
RecSet.Close
Connect.Close
response.write("La notizia è stata inserita![/b]
")
else
response.write("<font color='#FF0000'>Password Errata!</font>
")
end if
%>