<%
sqljj="select Profile from main where id=2"
set rsjj=Server.CreateObject("ADODB.REcordSet")
rsjj.Open sqljj,conn,1,1
if not rsjj.eof then
response.write left(rsjj("Profile"),345)
end if
rsjj.close
%>
...
<% Set rsnew = Server.CreateObject("ADODB.RecordSet")
sqlnew = "select TOP 5 id,bt,ty from news order by id desc"
rsnew.open sqlnew,conn,1,1
if not rsnew.eof then%>
<%
sqljj="select Profile from main where id=2"
set rsjj=Server.CreateObject("ADODB.REcordSet")
rsjj.Open sqljj,conn,1,1
if not rsjj.eof then
response.write left(rsjj("Profile"),345)
end if
rsjj.close
%>
...
