<%Set Rsdn=Server.CreateObject("Adodb.RecordSet")
Sqldn="Select * from News where NewsClassId=78"
Rsdn.Open Sqldn,Conn,1,1
Response.Write("")
Rsdn.close
set Rsdn=Nothing
set Sqldn=Nothing%> |
|
<%Set Rsn=Server.CreateObject("Adodb.RecordSet")
Sqln="Select * from News where NewsClassId=53"
Sqln=Sqln&" Order by NewsId Desc"
Rsn.Open Sqln,Conn,1,1
j=0
Response.Write("")
do while not rsn.eof
j=j+1
Response.Write("กค ")
Response.Write("")
Response.Write Rsn("NewsTitle")
Response.Write(" | ")
'/Response.Write year(Rsn("Newsdate"))
'/Response.Write("-")
Response.Write month(Rsn("Newsdate"))
Response.Write("-")
Response.Write day(Rsn("Newsdate"))
Response.Write(" | ")
Rsn.MoveNext
if j=6 then
exit do
end if
loop
Response.Write(" | [more] | ")
Rsn.close
set Rsn=Nothing
set Rsn=Nothing%> |
|
|