<%@ LANGUAGE = "VBScript" %> <% Option Explicit %> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% Response.CacheControl = "Public" %> <% 'Dimension variables Dim dbPath Dim WebCon Dim strWebCon Dim strcopy Dim Result dbPath = "etc/db.mdb" strcopy = "Powerd by ToxicLab.org" Set WebCon = Server.CreateObject("ADODB.Connection") strWebCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(dbPath) WebCon.connectionstring = strWebCon WebCon.Open %> <% Dim rsShoutbox Set rsShoutbox = Server.CreateObject("ADODB.Recordset") Result = "SELECT tblShoutbox.* FROM tblShoutbox order by tblShoutbox.date desc;" rsShoutbox.Open Result, WebCon If rsShoutbox.EOF Then %> <% end if if Request.QueryString("error") = "y" then %> <% else Do while not rsShoutbox.EOF %> <% rsShoutbox.movenext loop end if rsShoutbox.close Set rsShoutbox = Nothing %>

No messages

All fields are required !

" class="username"><% = rsShoutbox("name") %>: <% = rsShoutbox("msg") %>