<% option explicit response.buffer = true Session.LCID = 1041 %> <% dim thePageTitle, thePageName, thePageNameLinks thePageTitle = "BUMPA" thePageName = "bumpa_overview.asp" thePageNameLinks = "bumpa_overview.asp" ' 22 = bumpa_Overview.asp call countClickPage(22, strUserID_donRollo) dim intRequestOpenBumpa intRequestOpenBumpa = int(request("openBumpa")) 'response.write "intRequestOpenBumpa = " &intRequestOpenBumpa& "
" dim intRequestBumpaID intRequestBumpaID = int(request("bumpaID")) 'response.write "intRequestBumpaID = " &intRequestBumpaID& "
" dim intActualSessionUserID intActualSessionUserID = int(session("userID")) 'response.write "intActualSessionUserID = " &intActualSessionUserID& "
" dim intAntalBumpa intAntalBumpa = int(request("antalBumpa")) if isNULL(intAntalBumpa) then intAntalBumpa = 5 end if if intAntalBumpa = 0 then intAntalBumpa = 5 end if 'response.write "intAntalBumpa = " &intAntalBumpa& "
" '*************** OPEN THE DATABASE dim conn set conn = Server.CreateObject ("ADODB.Connection") conn.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=191516-poker;User=191516_vt67146;Password=DBpoker0;Option=3;" dim intPageSize, intCurrentPage, intUserTypeID dim strSQL, objRS, arrProducts, intTotalProducts dim intTotalPages, intStart, intEnd, intCurrentProduct dim i, intVspace dim intRequestThisOutput, intSortOrder intPageSize = int(request("size")) intCurrentPage = int(request("page")) intSortOrder = int(request("sortOrder")) intRequestThisOutput = int(request("showThisOutput")) session.timeout = 480 ' ----- set default values if no querystring has been sent yet ----------------------- if intSortOrder = 0 then intSortOrder = int(1) end if if intPageSize = 0 Then intPageSize = int(5) Else intPageSize = CInt(intPageSize) End if if intCurrentPage = 0 Then intCurrentPage = 1 else intCurrentPage = CInt(intCurrentPage) end if dim sqlLoop1, rsLoop1 sqlLoop1 = "SELECT " sqlLoop1 = sqlLoop1 & "B.bumpaID, " sqlLoop1 = sqlLoop1 & "B.bumpaText, " sqlLoop1 = sqlLoop1 & "B.userID, " sqlLoop1 = sqlLoop1 & "B.datumDate, " sqlLoop1 = sqlLoop1 & "B.datumNow, " sqlLoop1 = sqlLoop1 & "B.lastCommentDateNow, " sqlLoop1 = sqlLoop1 & "U.userAlias, " sqlLoop1 = sqlLoop1 & "U.userProfileImage, " sqlLoop1 = sqlLoop1 & "U.userHasProfileImage " sqlLoop1 = sqlLoop1 & "FROM tbl_bumpa B " sqlLoop1 = sqlLoop1 & "INNER JOIN tbl_user U ON B.userID = U.userID " sqlLoop1 = sqlLoop1 & "ORDER BY B.lastCommentDateNow DESC LIMIT "&intAntalBumpa&";" set rsLoop1 = conn.execute(sqlLoop1) dim arrBumpa If NOT rsLoop1.EOF Then arrBumpa = rsLoop1.GetRows() Else ReDim arrBumpa(0,-1) End if dim intTotalBumpa intTotalBumpa = UBound(arrBumpa,2)+1 If intTotalBumpa > 0 Then ' ----- calculate total pages -------------------- intTotalPages = Int(intTotalBumpa/intPageSize) If NOT intTotalBumpa mod intPageSize = 0 Then intTotalPages = intTotalPages + 1 End if ' ------------------------------------------------ intStart = (intPageSize * intCurrentPage) - intPageSize intEnd = intStart + intPageSize intCurrentProduct = intStart i = 0 end if %> www.donRollo.se <% if request.querystring("insert") = "OK" then %> <% else %> <% end if %>
<% call showLogin() %>
<% call showHeader() %>
<% call showMenu() %>
<% call mainPage() %>
<% call showBottom() %>
<% sub mainPage() %>
<% showBumpaMenu() %>
Att bumpa är halsbrytande - och dessutom
  förbaskat kul. Kort och gott kan man säga
    att en bump är ett mellanting mellan en
    blogg och chatt.

  Dock, en bump kan du inte editera eller ta bort. Det som är skrivet är ristat i sten. Men, är inte din bump intressant nog så kommer den att sakta tyna bort. För alla bumpar sorteras efter datumet på den senaste kommentaren. Och kommenterar ingen din bump så tja, då förvinner den i evig glömska.

Kul, va?

 
Ändra antal bumpar: checked<%end if%> onClick="javascript:document.theSizeForm.submit();"> 5  checked<%end if%> onClick="javascript:document.theSizeForm.submit();"> 10  checked<%end if%> onClick="javascript:document.theSizeForm.submit();"> 20  checked<%end if%> onClick="javascript:document.theSizeForm.submit();"> 30 
<% If intTotalBumpa > 0 Then dim strComments select case intTotalBumpa case 1 strComments = "inlägg" case else strComments = "inlägg" end select %> <% else %> <% end if %> <% if session("userID") <> 0 then %> <% else %> <% end if %>
 Det finns <%=intTotalBumpa%> <%=strComments%> till denna tråd. Visar sidan <%=intCurrentPage%> av <%=intTotalPages%>   
<% dim sql, rs dim intBumpaID_loop1 dim dtmDateNow_loop1, dtmLastCommentDateNow dim strBumpaText_loop1, strUserAlias_loop1 dim intUserID_loop1, dtmOutputDate_loop1 dim dtmDateDate_loop1, strUserProfileImage_loop1 dim intUserHasProfileImage_loop1, strOutputWrittenBy dim intAntalBumpaComments dim countLoop : countLoop = 1 Do if countLoop = 3 then countLoop = 1 end if intBumpaID_loop1 = int(arrBumpa(0,intCurrentProduct)) strBumpaText_loop1 = trim(arrBumpa(1,intCurrentProduct)) intUserID_loop1 = int(arrBumpa(2,intCurrentProduct)) dtmDateDate_loop1 = trim(arrBumpa(3,intCurrentProduct)) dtmDateNow_loop1 = trim(arrBumpa(4,intCurrentProduct)) dtmLastCommentDateNow = trim(arrBumpa(5,intCurrentProduct)) strUserAlias_loop1 = trim(arrBumpa(6,intCurrentProduct)) dtmOutputDate_loop1 = replace(dtmDateNow_loop1," "," klockan ") dtmOutputDate_loop1 = replace(dtmOutputDate_loop1,"/","-") strUserProfileImage_loop1 = trim(arrBumpa(7,intCurrentProduct)) intUserHasProfileImage_loop1 = int(arrBumpa(8,intCurrentProduct)) if isNULL(strUserProfileImage_loop1) then strUserProfileImage_loop1 = "x" end if if isNULL(intUserHasProfileImage_loop1) then intUserHasProfileImage_loop1 = int(0) end if strOutputWrittenBy = "Skriven av "&strUserAlias_loop1&" den "&dtmOutputDate_loop1&"" 'response.write "countLoop = " &countLoop& "
" 'response.write "intBumpaID_loop1 = " &intBumpaID_loop1& "
" 'response.write "strBumpaText_loop1 = " &strBumpaText_loop1& "
" 'response.write "intUserID_loop1 = " &intUserID_loop1& "
" 'response.write "dtmDateDate_loop1 = " &dtmDateDate_loop1& "
" 'response.write "dtmDateNow_loop1 = " &dtmDateNow_loop1& "
" 'response.write "dtmLastCommentDateNow = " &dtmLastCommentDateNow& "
" 'response.write "strUserAlias_loop1 = " &strUserAlias_loop1& "
" 'response.write "strUserProfileImage_loop1 = " &strUserProfileImage_loop1& "
" 'response.write "intUserHasProfileImage_loop1 = " &intUserHasProfileImage_loop1& "
" sql = "SELECT COUNT(*) AS antal FROM tbl_bumpaHasComment WHERE bumpaID = "&intBumpaID_loop1&";" set rs = conn.execute(sql) intAntalBumpaComments = cint(rs("antal")) if intAntalBumpaComments <> 0 then dim sqlLoop2, rsLoop2 sqlLoop2 = "SELECT " sqlLoop2 = sqlLoop2 & "B.bumpaHasCommentID, " sqlLoop2 = sqlLoop2 & "B.commentText, " sqlLoop2 = sqlLoop2 & "B.userID, " sqlLoop2 = sqlLoop2 & "B.datumDate, " sqlLoop2 = sqlLoop2 & "B.datumNow, " sqlLoop2 = sqlLoop2 & "U.userAlias, " sqlLoop2 = sqlLoop2 & "U.userProfileImage, " sqlLoop2 = sqlLoop2 & "U.userHasProfileImage " sqlLoop2 = sqlLoop2 & "FROM tbl_bumpaHasComment B " sqlLoop2 = sqlLoop2 & "INNER JOIN tbl_user U ON B.userID = U.userID " sqlLoop2 = sqlLoop2 & "WHERE B.bumpaID = "&intBumpaID_loop1&" " sqlLoop2 = sqlLoop2 & "ORDER BY B.datumNow ASC" set rsLoop2 = conn.execute(sqlLoop2) end if %> <% countLoop = countLoop + 1 intCurrentProduct = intCurrentProduct + 1 If intCurrentProduct >= intTotalBumpa Then Exit Do Loop While intCurrentProduct <= intEnd - 1 %>
<% if countLoop = 1 then %> <% end if %> <% if countLoop = 2 then %> <% end if %> <% if countLoop = 1 then %> <% else %> <% end if %> <% if countLoop = 1 then %> <% else %> <% end if %> <% if countLoop = 1 then %> <% else %> <% end if %> <% if countLoop = 1 then %> <% else %> <% end if %> <% if countLoop = 1 then %> <% else %> <% end if %>
<% call getImage(55, intUserID_loop1, 15, intUserID_loop1, strUserProfileImage_loop1, intUserHasProfileImage_loop1) %> <% call getImage(55, intUserID_loop1, 15, intUserID_loop1, strUserProfileImage_loop1, intUserHasProfileImage_loop1) %>
<% if intRequestOpenBumpa = 1 then %> <% if intRequestBumpaID = intBumpaID_loop1 then %> <% else %> <% end if %> <% else %> <% end if %>
<%=fixaTeckenOutput(strBumpaText_loop1)%>
<%=strOutputWrittenBy%>
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<%=intAntalBumpaComments%> kommentarer
<% if intTotalBumpa <> 0 then %> <% end if %>
<% dim intMin, intMax, tempLink intMin = max(intCurrentPage-4, 1) 'get the first number intMax = min(intMin+9, intTotalPages) 'get the last number If cint(intCurrentPage) > cint(intTotalPages)-10 then intMin = max(intMax-9,1) End if For i = intMin To intMax If i = cint(intCurrentPage) then tempLink = "_" Else tempLink = "_" End if %> <% Next %>
  <<    <   <%=replace(tempLink,"_",i)%>   >    >>  
Va, helt tomt. Som i skallen på han som ställde in i mitt fyrtal!
Det är bara att bränna på med vad du har. Bredast munläder vinner.
 
 
 Sorry mate. Är du inte inloggad så får du heller inte kommentera.
<% end sub %>