<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Con
Set Con = Server.CreateObject("ADODB.Connection")
messageid = Request.QueryString("messageid")
Con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &Server.MapPath("forum/www.mdb")&""
Con.Execute "UPDATE MessageDB SET Approved=Yes WHERE ID=" & messageid
Con.close()
set Con = nothing
%>
Approved!
Approved!
The message has been added to the discussion forum.
