|
<%
'dynamics started
%>
<%
sql1 = "select * from arta where myunique=1 order by art_date DESC"
set rs1= server.CreateObject("adodb.recordset")
rs1.Open sql1,conn1,3,2
if rs1.RecordCount > 0 then
dim i,j
rs1.MoveFirst
j=0
%>
<%
Response.Write ("
")
Response.Write "" & rs1("art_head") & ""
Response.Write ("
")
%>
|
<%
'rs1.MoveNext
'loop
end if
%>
