<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Buffer=true %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim ConnessioneDB, strConn
Set ConnessioneDB = Server.CreateObject("ADODB.Connection")
strConn = "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" &_
Server.MapPath("/giardino/SitoWeb/News/database2.mdb")
ConnessioneDB.Open strConn
Dim qInsert, RecordModificati
qInsert = "INSERT INTO News(Nickname, " &_
"Email, Titolo, Testo) " &_
"VALUES('" & Request.Form("txtNICKNAME") & "','" &_
Request.Form("txtEMAIL") & "','" &_
Request.Form("txtTITOLO") & "','" &_
Request.Form("txtTESTO") & "')"
RecordModificati=0
''On Error Resume Next
ConnessioneDB.Execute qInsert, RecordModificati
ConnessioneDB.Close
Set ConnessioneDB = Nothing
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
if RecordModificati = 1 Then
Response.Write "<b> La News è Stata Inserita Correttamente</b>"
Response.Redirect "http://localhost/giardino/SitoWeb/News/VisualizzaNews.asp"
Else
Response.Write (qInsert)
''Response.Write "Riprova"
End if
Session.Abandon
%>
</body>
</html>
