<%
Dim Gotopage, bbs, search, searchstring
Dim Rs, SQL, pagesize
bbs = Request("bbs")
search = Request("search")
searchstring = Replace(Request("searchstring"),"'","''")
if bbs = "" then
Response.Write ""
Response.End
end if
Gotopage = Request("Gotopage")
If Gotopage = "" then Gotopage = 1
pagesize=10
Dim sWhere
if trim(searchstring) <> "" then
sWhere = " " & search & " LIKE '%" & searchstring & "%' "
end if
Dim recordCount, pagecount
SQL = "select count(board_idx) as recCount from " & bbs
if trim(searchstring) <> "" then
SQL = SQL & " WHERE " & sWhere
end if
'Response.write sql
'Response.end
Set Rs = Dbcon.Execute(SQL)
recordCount = Rs(0)
pagecount = int((recordCount-1)/pagesize) +1
SQL = "SELECT TOP " & pagesize & " * FROM " & bbs
SQL = SQL & " WHERE "
if trim(searchstring) <> "" then
SQL = SQL & sWhere & " AND "
end if
SQL = SQL & " board_idx not in "
SQL = SQL & "(SELECT TOP " & ((GotoPage - 1) * pagesize) & " board_idx FROM " & bbs
if trim(searchstring) <> "" then
SQL = SQL & " WHERE " & sWhere
end if
SQL = SQL & " order by ref desc,re_step asc) order by ref desc,re_step asc"
'Response.Write SQL
'Response.End
Set Rs = Dbcon.Execute(SQL)
%>
Safety Paradingnakedwomen Money Newsex Cam Girls Naked Parading Naked Women Cam Girls Naked Chicks Naked Ass Russian Girls Girls Naked Pussy Movies Girls Naked Pic Naked Models Blonde Girls Little Naked Lesbian Naked Asian Naked Live Sex Cams Asian Naked
Naked Russian
Safety Paradingnakedwomen Money Newsex Cam Girls Naked Parading Naked Women Cam Girls Naked Chicks Naked Ass Russian Girls Girls Naked Pussy Movies Girls Naked Pic Naked Models Blonde Girls Little Naked Lesbian Naked Asian Naked Live Sex Cams Asian Naked
Safety Paradingnakedwomen Money Newsex Cam Girls Naked Parading Naked Women Cam Girls Naked Chicks Naked Ass Russian Girls Girls Naked Pussy Movies Girls Naked Pic Naked Models Blonde Girls Little Naked Lesbian Naked Asian Naked Live Sex Cams Asian Naked
