salve,
sono in crisi, ho praticamente finito il mio primo sito internet...a meno della pagina dei commenti. Non sono molto esperto, ma ho capito abbastanza bene il linguaggio html e css. Per la parte dei commenti ho scaricato da html.it delle pagine asp già fatte da qualcuno che conosce il linguaggio, pensavo che sarei riuscito a modificarlo facilmente...
mi interessa solo aggiungere data e ora ai commenti, potete aiutarmi a capire dove sbaglio?
questo è l'originale:
<%
Sub Commenti(Pagina)
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mdb-database/comments.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 ("
de reactie is geplaatst</p>")
end if
Response.Write("<h3>Reacties</h3>")
' 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("
er zijn nog geen reacties</p>")
' ciclo su tutti i record
do until rs.eof
Response.Write("
" & Server.HtmlEncode(rs("nome")) & ":
")
Response.Write(Server.HtmlEncode(rs("commento")) & "</p>")
rs.moveNext
loop
%>
<h3>plaats je bericht</h3>
<form method="post">
<input type="hidden" name="pagina" value="<%=pagina%>">
Naam: <input type="text" name="nome" >
Reactie: <textarea name="commento" cols="30" rows="5"></textarea>
<input type="submit" value="plaats">
</form>
</p>
<%
conn.Close
set conn = Nothing
End Sub
%>
e questo invece presenta le modifiche che ho fatto io:
<%
Sub Commenti(Pagina)
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mdb-database/comments.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, time) VALUES (" & _
"'" & Replace(Request.Form("nome"), "'", "''") & "', " & _
"'" & Replace(Request.Form("commento"), "'", "''") & "', " & _
"'" & Replace(Request.Form("pagina"), "'", "''") & "', " & _
"'" & Request.ServerVariables("REMOTE_ADDR") & "', " & _
"'" & Replace(Request.Form("time"), "'", "''") & "')"
Response.Write ("
de reactie is geplaatst</p>")
end if
Response.Write("<h3>Reacties</h3>")
' 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("
er zijn nog geen reacties</p>")
' ciclo su tutti i record
do until rs.eof
Response.Write("
" & Server.HtmlEncode(rs("nome")) & ":
")
Response.Write(Server.HtmlEncode(rs("commento")) & "</p> <hr />")
rs.moveNext
loop
%>
<h3>plaats je bericht</h3>
<form method="post">
<input type="hidden" name="pagina" value="<%=pagina%>">
Naam: <input type="text" name="nome" >
Reactie: <textarea name="commento" cols="30" rows="5"></textarea>
<input type="hidden" name="time" value="<%=now%>">
<input type="submit" value="plaats">
</form>
</p>
<%
conn.Close
set conn = Nothing
End Sub
%>
so che non si può improvvisare, ma con html e css non penso si riesca a fare un form per i commenti. Prenderò al più presto il linguaggio asp per mano e lo studierò, appena avrò un po di tempo!
ringrazio intanto chi mi fare capire l'errore!
Rispondi quotando
