<%
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 = "YTC News Update"
logincode = "YTCadmin"
show_stories = "10"
database_path = Server.MapPath("news_data.mdb")
'============== USER EDITABLE AREA ===================
errormsg = "Error - Invalid Record
"
errormsg2 = " No active news items.
"
loginlink = "admin
"
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
")
Response.end
end if
end if
END FUNCTION
FUNCTION PreSubmit2(p_sTargetString)
PreSubmit2 = REPLACE(p_sTargetString,"textarea","")
PreSubmit2 = REPLACE(PreSubmit2,"%","%")
PreSubmit2 = REPLACE(PreSubmit2,"'","'")
PreSubmit2 = REPLACE(PreSubmit2,"""",""")
PreSubmit2 = REPLACE(PreSubmit2,"<","<")
PreSubmit2 = REPLACE(PreSubmit2,">",">")
PreSubmit2 = REPLACE(PreSubmit2,vbcrlf,"
")
PreSubmit2 = Trim(PreSubmit2)
END FUNCTION
FUNCTION undo(p_sTargetString)
undo = REPLACE(p_sTargetString,"
",vbcrlf)
undo = REPLACE(undo,"<","<")
undo = REPLACE(undo,">",">")
undo = Trim(undo)
END FUNCTION
%>