<%=Trim(rs("Name"))%>
<%
dim cs
if rs("City") <> "" then
cs=rs("City")
response.Write("CITY. "&cs&"")
else
response.Write(" ")
end if
%>
<%
dim dzyj
if rs("Mail") <> "" then
dzyj=rs("Mail")
response.Write(" MAIL. "&dzyj&"")
else
response.Write(" ")
end if
%>
<%
dim zhuye
if rs("Url") <> "" then
zhuye=rs("Url")
response.Write("URL. "&zhuye&"")
else
response.Write(" ")
end if
%>
<%=Replace(rs("Content"),chr(13)," ")%>
<%=rs("Date")%>
<%
dim glhf
if rs("Reply") <> "" then
glhf=rs("Reply")
response.Write("Reply. "&glhf&" ")
else
response.Write("")
end if
%> |