Notice Board

Notice BoardNotice Board

<% Dim strConnect strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("notices.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.open strConnect Set rs = objConn.execute("SELECT * FROM noticeBoard;") ' ' DO WHILE NOT rs.EOF response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") rs.movenext LOOP rs.close set rs = nothing %>

") response.write ("") response.Write ("NAME: ") response.write ("") response.write ("	") response.write ("") response.Write (rs("Author")) response.write ("") response.write ("	") response.write ("") response.Write ("Date Posted: ") response.write ("") response.write ("	") response.write ("") response.Write (rs("Date")) response.write ("") response.write ("
") response.write ("") response.write (" Message ") response.write ("") response.write ("	") response.write ("") response.Write (rs("Message") & "") response.write ("") response.write ("
") response.write ("") response.write ("Reply Email") response.write ("") response.write ("	") response.write ("") response.write (rs("emailreply")) response.write ("") response.write ("") response.write ("

Any problems then contact me