<%
dim strTitolo
strTitolo = request.form("newsTitolo")
dim strLink
strLink = request.form("newsLink")
dim strCodiceImmesso
strCodiceImmesso = request.form("userCode")
dim strCodiceAccesso
strCodiceAccesso = "innovatel"
dim strCode
strCode = "innovatel"
dim strConn
strConn = ""
dim strSql
strSql = ""
if(strTitolo<>"" AND strLink<>"" AND strCodiceImmesso=strCodiceAccesso)then
'procedo alla memorizzazione
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("news.mdb")
strConn=strConn & ";pwd=" & strCode
strSql = "INSERT INTO notizie(testo, link) values('"&strTitolo&"', '"&strLink&"')"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, conn ,3,3
conn.Close
Set rs = Nothing
Set conn = Nothing
else
strCodiceImmesso=""
end if
%>
Inserisci nuova news