<%
dim DefautlCateId,BaseUrl,ListUrl,NavText,cid
DefautlCateId=""
BaseUrl="news.asp"
ListUrl="show.asp"
Language="en"
pagenumber=request("pagenumber")
if pagenumber<>"" and not isnumeric(pagenumber) then
response.write("")
response.end()
end if
schdate=replace(request("schdate"),"'","''")
if schdate<>"" then
sqlstr=" and W_Addtime like '"& schdate &"%'"
urlstr="schdate="& schdate &"&"
end if
%>
Newsletter - Victoria Junior Chamber
