<%
Option Explicit
dim conn, RecSet, myRegExp
if (Request.Form("Message") <> "") then
set myRegExp = new RegExp
myRegExp.Pattern = "'"
myRegExp.Global = true
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "corey"
set RecSet = conn.execute("Insert into Corey values('" & _
myRegExp.Replace(Request.Form("UserName"), "''") & "', " & _
"null, '" & _
myRegExp.Replace(Request.Form("Message"), "''") & "')")
set RecSet = nothing
set conn = nothing
end if
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "corey"
set RecSet = conn.execute("Select UserName, InsertDate, Message from Corey order by InsertDate")
Response.Write("Message Board")
Response.Write("")
Response.Write("