<%session.LCID = 1040%>
<%

Dim dConn, database_path, logincode, allow_html, strSQL, active, errormsg
dim newstitle, newsRS, data, iRecFirst, iRecLast, I, show_stories, errormsg2, loginlink
Dim news_id, news_title, news_expire, news_dat, news_body, id, fnum, recordcount, updateRS
Dim Message, updateSQL, FormLogin, FormPwd, urecordcount, showall, textcolor, todaydate

'============== USER EDITABLE AREA ===================
newstitle = "News"
logincode = "****"
show_stories = "10"

database_path = Server.MapPath("/mdb-database/news_data.mdb")
'============== USER EDITABLE AREA ===================

errormsg = "<h2>Error - Invalid Record</h2>"
errormsg2 = "<h2> No active news items.</h2>"
loginlink = "

admin</p>"
todaydate = FormatDateTime(Now(), vbShortDate)
'FUNCTIONS
FUNCTION CheckDate(dtvalue)
if dtvalue <> "" then
if IsDate(dtvalue) = True then
Checkdate = dtvalue
else
Response.write ("

date format is incorrect</p>")
Response.end
end if
end if
END FUNCTION

FUNCTION PreSubmit2(p_sTargetString)
PreSubmit2 = REPLACE(p_sTargetString,"textarea","")
PreSubmit2 = REPLACE(PreSubmit2,"%","&#37;")
PreSubmit2 = REPLACE(PreSubmit2,"'","&#39;")
PreSubmit2 = REPLACE(PreSubmit2,"""","&quot;")
PreSubmit2 = REPLACE(PreSubmit2,"<","&lt;")
PreSubmit2 = REPLACE(PreSubmit2,">","&gt;")
PreSubmit2 = REPLACE(PreSubmit2,vbcrlf,"
")
PreSubmit2 = Trim(PreSubmit2)
END FUNCTION

FUNCTION undo(p_sTargetString)
undo = REPLACE(p_sTargetString,"
",vbcrlf)
undo = REPLACE(undo,"&lt;","<")
undo = REPLACE(undo,">","&gt;")
undo = Trim(undo)
END FUNCTION
%>
<style type="text/css">
BODY
{
font-family: Tahoma
}

.cssBorder
{
BORDER-BOTTOM: black 1px solid;
BORDER-LEFT: black 1px solid;
BORDER-RIGHT: black 1px solid;
BORDER-TOP: black 1px solid;
PADDING-LEFT: 2px;
font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
}

.required
{
background-color: FFFF99;
}
</style>