BEURTEILUNG ...

Click here to WRITE your message

<% Set conn =server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ="&Server.MapPath("\mdb-database\golden.mdb")&"" conn.open messaggio = Request.Form("messaggio") if messaggio <> "" then messaggio = Replace(messaggio,"'","''") sql = "insert into t_bacheca(Testo,User) values ('" & messaggio & "','"& Request.ServerVariables("remote_host") &"')" Set RSConn = conn.Execute(sql) end if Set rs.ActiveConnection = conn sql = "SELECT * FROM t_bacheca order by Data desc" rs.Open sql, conn cont=0 %> <% Do until (rs.eof) %> <% Dim testo, find testo = rs("Testo") find = vbCrLf testo = Replace(testo,find,"
") %> <%= rs("Data") %>

<%= testo %>

<%' cont = cont+1 'if cont = 20 then ' Exit Do 'End If rs.MoveNext Loop rs.Close conn.Close Set rs=Nothing %>