Grazie x la risposta
Questo è quello che ho messo nella pagina di commenti.
Quindi come dovrei scrivere?
ammetto di essere abbastanza duro di comprendonio!
------------------
<%
Sub Commenti(Pagina)
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/mdb-database/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 ("<p>Commento aggiunto!</p>")
end if
Response.Write("<font size='2' face='Verdana, Arial, Helvetica, sans-serif'> Commenti presenti</font>")
' 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("<p>Non ci sono ancora commenti!</p>")
' ciclo su tutti i record
do until rs.eof
Response.Write("<p><font size='1' face='Verdana, Arial, Helvetica, sans-serif'> <b>" & Server.HtmlEncode(rs("nome")) & "</font></b>: <font size='1' face='Verdana, Arial, Helvetica, sans-serif'> ")
Response.Write(Server.HtmlEncode(rs("commento")) & "</font></p>")
rs.moveNext
loop
%>
<h3><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Inserisci il tuo
commento, al momento ce ne sono </font></h3>
<font size="1" face="Geneva, Arial, Helvetica, san-serif"></font>
<form method="post">
<input type="hidden" name="pagina" value="<%=pagina%>">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome</font>:
<input type="text" name="nome" style="background-color: #636363; border-style:1px; border-style:1px; font-size: 10; color: white; font-family:verdana, arial"><br>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Commento</font>:
<textarea name="commento" cols="30" rows="5" style="background-color: #636363; border-style:1px; border-style:1px; font-size: 10; color: white; font-family:verdana, arial"></textarea><br>
<input type="submit" value="Lascia commento" size=1 style="background-color: #636363; border-style:1px; font-size: 10; color: white; font-family:verdana, arial">
</form>
<%
conn.Close
set conn = Nothing
End Sub
%>
