<% If Sess_Array(48) = Session.SessionID then admin = True If not Request.Form("B1") = Empty then ID = CLng(Request.Form("ID")) If not ID = Empty then Set rs = Server.CreateObject("ADODB.Recordset") strCat = "SELECT sortID,catID FROM " & tablPfx & "Cat ORDER BY sortID;" rs.CursorLocation = 3 rs.CursorType = 3 rs.Open strCat, strConn rc = rs.RecordCount On Error Resume Next For c = 1 to rc If Not rs.EOF then nextID = CLng(rs("sortID")) nextcatID = CLng(rs("catID")) If CStr(ID) = CStr(nextID) then Select Case Request.Form("B1") Case "▲": rs.MovePrevious Case "▼": rs.MoveNext End Select swapID = CLng(rs("sortID")) swapcatID = CLng(rs("catID")) Exit For End If rs.MoveNext End If Next On Error GoTo 0 rs.close If not swapID = Empty And Err.Number = 0 then objConn.Execute("UPDATE " & tablPfx & "Cat SET sortID = " & swapID & " WHERE catID = " & nextcatID & ";") objConn.Execute("UPDATE " & tablPfx & "Cat SET sortID = " & nextID & " WHERE catID = " & swapcatID & ";") UpdateSessions False Response.Redirect "browse.asp" End If End If End If sdd = dd(objConn) set rs = objConn.Execute("SELECT catID,catName,catDescr,icon,ads,sortID FROM " & tablPfx & "Cat ORDER BY " & cat_sortorder & ";") If rs.EOF then Response.Write "

The Category List is Empty

" rs.close Else rsdata = rs.getrows rs.close rc = UBound(rsdata,2) + 1 %> <% mtp = 1 Response.Write vbcrlf & "

" & vbcrlf For c = 0 to UBound(rsdata,2) catID = CLng(rsdata(0, c)) catName = rsdata(1, c) catDescr = rsdata(2, c) icon = rsdata(3, c) ads = CLng(rsdata(4, c)) sortID = CLng(rsdata(5, c)) If c mod catpos = 0 then Response.Write "" & vbcrlf Response.Write "" & vbcrlf If admin and Not listalpha then Response.Write "" mtp = 2 End If Response.Write "" & vbcrlf tPosted = tPosted + CLng(ads) If c mod catpos = catpos - 1 then Response.Write "" & vbcrlf Next %>

" & vbcrlf Response.Write "	" & vbcrlf If c = 0 then fd = "disabled": Else: fd = Empty: End If If c = UBound(rsdata,2) then ld = "disabled" Response.Write " " Response.Write "" Response.Write "" Response.Write " " Response.Write "	" & vbcrlf Response.Write "" & catName & " [" & ads & "] " & catDescr & "
<%= strText_TotallyPostedandActive %> [<%= tPosted %>] <%= strText_Adsin %> [<%= rc %>] <%= strText_Categories %>

<% End If setLocale server_locale If Not CStr(Request.Cookies("clboard_hitcount" & strUnique)("nocount")) = "True" then Response.Cookies("clboard_hitcount" & strUnique)("nocount") = True Response.Cookies("clboard_hitcount" & strUnique).Path = "/" If Len(uagent) > 255 then uagent = Left(uagent, 255) objConn.Execute("INSERT INTO " & tablPfx & "HitLog(hitDate, IP, referer, uagent) VALUES (" & sdd & ConvDate(Now) & sdd & ", '" & IP & "', '" & Request.ServerVariables("HTTP_REFERER") & "', '" & uagent & "');") set rs = objConn.Execute("SELECT " & tablPfx & "Counter.hitcounter FROM " & tablPfx & "Counter;") If rs.EOF then objConn.Execute("INSERT INTO " & tablPfx & "Counter (hitcounter) VALUES (1);") Response.Cookies("clboard_hitcount" & strUnique)("visitor") = 1 Response.Cookies("clboard_hitcount" & strUnique).Path = "/" Else: newvalue = CLng(rs("hitcounter")) + 1 Response.Cookies("clboard_hitcount" & strUnique)("visitor") = newvalue Response.Cookies("clboard_hitcount" & strUnique).Path = "/" objConn.Execute("UPDATE " & tablPfx & "Counter SET hitcounter = '" & newvalue & "';") End If rs.close ExpireAds End If %>