|
|
|
|
|
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?
|
|
|
|
|
|
|
|
|
|
|
|
<% If intTotalBumpa > 0 Then
dim strComments
select case intTotalBumpa
case 1
strComments = "inlägg"
case else
strComments = "inlägg"
end select
%>
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
%>
<% if countLoop = 1 then %>
<% call getImage(55, intUserID_loop1, 15, intUserID_loop1, strUserProfileImage_loop1, intUserHasProfileImage_loop1) %> |
|
<% end if %>
|
|
|
<% if countLoop = 2 then %>
|
<% call getImage(55, intUserID_loop1, 15, intUserID_loop1, strUserProfileImage_loop1, intUserHasProfileImage_loop1) %> |
<% end if %>
<% if countLoop = 1 then %>
|
<% else %>
|
<% end if %>
<% if countLoop = 1 then %>
|
|
|
<% else %>
|
|
|
<% end if %>
<% if countLoop = 1 then %>
|
<% else %>
|
<% end if %>
|
<%=fixaTeckenOutput(strBumpaText_loop1)%> |
|
|
<%=strOutputWrittenBy%> |
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|
<%=intAntalBumpaComments%> kommentarer |
|
|
|
<% if intRequestOpenBumpa = 1 then %>
<% if intRequestBumpaID = intBumpaID_loop1 then %>
|
<% if countLoop = 1 then %>
|
<% else %>
|
<% end if %>
<% if countLoop = 1 then %>
|
<% else %>
|
<% end if %>
|
|
<% countLoop = countLoop + 1
intCurrentProduct = intCurrentProduct + 1
If intCurrentProduct >= intTotalBumpa Then Exit Do
Loop While intCurrentProduct <= intEnd - 1
%>
|
<% if intTotalBumpa <> 0 then %>
|
|
<< |
|
< |
|
<% 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
%>
<%=replace(tempLink,"_",i)%> |
|
<% Next %>
> |
|
>> |
|
|
|
|
<% end if %>
|
<% else %>
Va, helt tomt. Som i skallen på han som ställde in i mitt fyrtal! |
<% end if %>
|
|
|
<% if session("userID") <> 0 then %>
<% else %>
|
|
Sorry mate. Är du inte inloggad så får du heller inte kommentera. |
|
|
<% end if %>
|
|
|
|
|
|