<%
textSearch = request("textSearch")
Pages = Request("Pages")
if Pages = "" then Pages = 1
rowcount = 0
set rsCat =Server.CreateObject("ADODB.Recordset")
set rsSr=Server.CreateObject("ADODB.Recordset")
sql = "SELECT * from srCategory order by CategoryID desc"
rsCat.Open sql, Conn, 1, 1
do while not rsCat.eof
%>
<%
sql = "SELECT * from Sr where categoryID="&rsCat("categoryID")&" "
if SrID <> "" then
sql = sql & "and SrID <> " & SrID &" "
end if
sql = sql & " order by SrID desc"
rsSr.Open sql, Conn, 1, 1
if not rsSr.eof then
rsSr.PageSize = 100
rsSr.AbsolutePage = Pages
PageCount = cint(rsSr.PageCount)
colspan = 4 ' คอลัมน์
rowcount = 1
while not rsSr.eof and rowcount < rsSr.PageSize
if rowcount mod colspan = 1 then Response.Write ""
%>
|
<%
if rowcount mod colspan = 0 then Response.Write " | | "
rowcount = rowcount + 1
rsSr.movenext
wend
end if
rsSr.Close
%>
|
<%
rsCat.movenext
loop
%>
|
