<%
id=request("id")
if id="" or isnull(id) then id=0
if IsNumeric(id)=false then id=0
sql="update bignews set iCount=iCount+1 where id="&id
objDbConn.execute(sql)
sql="select * from bignews where id="&id
set rs=objDbConn.execute(sql)
if not (rs.bof or rs.eof) then
Title = rs("Title")
Title=replace(Title,vbCrLf," ")
Title=replace(Title," "," ")
titleFace=rs("titleFace")
titleSize=rs("titleSize")
TitleBold=rs("TitleBold")
TitleItalic=rs("TitleItalic")
if not (titleFace="" or titleSize="") then
TitleHead=""&Title&""
if TitleItalic=true then Title=""&Title&""
titleImage=rs("titleImage")
if not (titleImage="" or isnull(titleImage)) then
titleimage=Application("BigNewsPath")&"/"&titleimage
title=""
end if
Content = rs("Content")
ComeFrom = rs("ComeFrom")
SubmitDate = rs("SubmitDate")
Author = rs("Author")
if not (Author="" or isnull(Author)) then Author="("&Author&")"
iCount = rs("iCount")
else
end if
%>
Email: