%@ LANGUAGE="VBSCRIPT" %>
<%
ip=Request("REMOTE_ADDR")
boardname=Request("boardname")
bunho=Request("bunho")
rstep=cint(Request("step"))
ansnum=cint(Request("ansnum"))
tn=cint(Request("tn"))
page=cint(Request("page"))
sqlls="Select * from bo_pds_master where pm_boardname='"&boardname&"' "
Set ls=DbCon.Execute(sqlls)
boardname=ls("pm_boardname")
pdsv=ls("pm_pdsv")
mailaddr=ls("pm_mailaddr")
mailmanav=ls("pm_mailmanav")
mailmenv=ls("pm_mailmenv")
htmlv=ls("pm_htmlv")
writemanav=ls("pm_writemanav")
totbgc=ls("pm_totbgc")
subcharc=ls("pm_subcharc")
titlebgc=ls("pm_titlebgc")
titlecharc=ls("pm_titlecharc")
textbgc=ls("pm_textbgc")
textcharc=ls("pm_textcharc")
ls.close
sql1="select pd_bunho from "&boardname&" where pd_ip='"&ip&"' "
set rs=DbCon.Execute(sql1)
sqlStr="SELECT * FROM "&boardname&" WHERE pd_bunho="&bunho
Set Result=DbCon.Execute(sqlStr)
subject=Result("pd_subject")
subject=Replace(subject,chr(34),""")
email=result("pd_email")
content=Result("pd_content")
content=Replace(content, "&" , "&")
content=Replace(content, "%" , "%")
'content=Replace(content, "<" , "<")
'content=Replace(content, ">" , ">")
ref=cint(Result("pd_ref"))
%>
board