<% Sub Commenti(Pagina) strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("commenti.mdb") set conn = Server.CreateObject("ADODB.Connection") conn.Open strConn 'Inserimento nuovo commento If Len(Request.Form("nome"))>3 and Len(Request.Form("commento"))>5 then conn.Execute "INSERT INTO commenti (nome, commento, pagina, IP) VALUES (" & _ "'" & Replace(Request.Form("nome"), "'", "''") & "', " & _ "'" & Replace(Request.Form("commento"), "'", "''") & "', " & _ "'" & Replace(Request.Form("pagina"), "'", "''") & "', " & _ "'" & Request.ServerVariables("REMOTE_ADDR") & "')" Response.Write ("

Commento aggiunto!

") end if Response.Write("

Commenti presenti

") ' estrai record set rs = Conn.Execute("SELECT nome, commento FROM commenti WHERE Pagina = '" & Replace(pagina, "'", "''") & "'") ' non ci sono record if rs.Eof then Response.Write("

Non ci sono ancora commenti!

") ' ciclo su tutti i record do until rs.eof Response.Write("

" & Server.HtmlEncode(rs("nome")) & ": ") Response.Write(Server.HtmlEncode(rs("commento")) & "

") rs.moveNext loop %>

Inserisci il tuo commento

Nome:
Commento:

<% conn.Close set conn = Nothing End Sub %>