<% dbpath = server.mappath("dimebag.mdb") Set messagedb = Server.CreateObject("ADODB.Connection") messagedb.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & dbpath & ";" if Request.Form("name") <> "" then msgName = Request.Form("name") msgCountry = Request.Form("country") msgComment = Request.Form("comment") strSQL = "INSERT INTO tblMessages (messageName, messageCountry, messageBody) VALUES ('" strSQL = strSQL & msgName & "', '" & msgCountry & "', '" & msgComment & "')" messageDB.execute(strSQL) end if %> Dimebag Darrell Abbott | 1966 - 2004 <% Set messages = Server.CreateObject("ADODB.recordset") strSQL = "" strSQL = "SELECT * FROM tblMessages ORDER BY messageID ASC" messages.Open strSQL,messageDB,3 Do While Not messages.eof %> <% messages.moveNext Loop %>
Dimebag Darrell | 1966 - 2004 | Stonger than all

Fan Testimonials

<% =messages("messageName")%> | <% =messages("messageCountry")%>

<% =messages("messageBody")%>

Add your comment

Sorry, we no longer take comments. Take a few minutes out to read some of the great posts above...