% option explicit
response.buffer = true
Session.LCID = 1041
%>
<% dim thePageTitle, thePageName, thePageNameLinks
thePageTitle = "LÄS BLOGG"
thePageName = "blogs_readLatestBlog.asp¤"&replace(request.querystring,"&","|")
thePageNameLinks = "blogs_readLatestBlog.asp"
dim intRequestUserID
intRequestUserID = int(request("userID"))
'response.write "intRequestUserID = " &intRequestUserID& " "
dim intRequestBloggID
intRequestBloggID = int(request("bloggID"))
'response.write "intRequestBloggID = " &intRequestBloggID& " "
dim intAntalBloggar
intAntalBloggar = int(request("antalBloggar"))
'response.write "intAntalBloggar = " &intAntalBloggar& " "
dim intActualSessionUserID
intActualSessionUserID = int(session("userID"))
'response.write "intActualSessionUserID = " &intActualSessionUserID& " "
dim strGetUserID
strGetUserID = acGetUserID()
'response.write "strGetUserID = " &strGetUserID& " "
dim intStatusID
intStatusID = int(request("statusID"))
'response.write "intStatusID = " &intStatusID& " "
'*************** 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;"
sql = "SELECT "
sql = sql & "questionAnswerID, "
sql = sql & "question_1, "
sql = sql & "question_2, "
sql = sql & "inBetween "
sql = sql & "FROM tbl_questionAnswer "
sql = sql & "ORDER BY RAND() "
sql = sql & "LIMIT 1"
set rs = conn.execute(sql)
dim intQuestionAnswerID
dim intQuestion_1
dim intQuestion_2
dim strInBetween
intQuestionAnswerID = int(rs("questionAnswerID"))
intQuestion_1 = int(rs("question_1"))
intQuestion_2 = int(rs("question_2"))
strInBetween = trim(rs("inBetween"))
'response.write "intQuestionAnswerID = " &intQuestionAnswerID& " "
'response.write "intQuestion_1 = " &intQuestion_1& " "
'response.write "intQuestion_2 = " &intQuestion_2& " "
'response.write "strInBetween = " &strInBetween& " "
' 11 = blogs_readLatestBlog.asp
call countClickPage(11, strUserID_donRollo)
sql = "SELECT COUNT(*) AS finnsRedan "
sql = sql & "FROM tbl_bloggHasPoints "
sql = sql & "WHERE "
sql = sql & "bloggID = "&intRequestBloggID&" "
sql = sql & "AND "
sql = sql & "userID = "&intActualSessionUserID&";"
set rs = conn.execute(sql)
dim intFinnsRedan
intFinnsRedan = cint(rs("finnsRedan"))
'response.write "intFinnsRedan = " &intFinnsRedan& " "
if intFinnsRedan = 1 then
sql = "SELECT datumDate, datumNow "
sql = sql & "FROM tbl_bloggHasPoints "
sql = sql & "WHERE "
sql = sql & "bloggID = "&intRequestBloggID&" "
sql = sql & "AND "
sql = sql & "userID = "&intActualSessionUserID&";"
set rs = conn.execute(sql)
dim dtmDatumNow_DB, dtmOutputDatumNow_DB
dim dtmDatumDate_DB, dtmOutputDatumDate_DB
dtmDatumNow_DB = trim(rs("datumNow"))
dtmOutputDatumNow_DB = replace(dtmDatumNow_DB," "," klockan ")
dtmOutputDatumNow_DB = replace(dtmOutputDatumNow_DB,"/","-")
dtmDatumDate_DB = trim(rs("datumDate"))
dtmOutputDatumDate_DB = replace(dtmDatumDate_DB,"/","-")
end if
' ***************
' STATISTIC START
' ***************
dim theUserID_Blogg, theIP_Blogg, theDate_Blogg, theDateNow_Blogg
dim intBloggID_Blogg, strCheckUserID_Blogg
theUserID_Blogg = int(session("userID"))
theIP_Blogg = Request.ServerVariables("REMOTE_HOST")
theDate_Blogg = date()
theDate_Blogg = replace(theDate_Blogg,"/","-")
theDateNow_Blogg = now()
theDateNow_Blogg = replace(theDate_Blogg,"/","-")
intBloggID_Blogg = int(intRequestBloggID)
strCheckUserID_Blogg = strGetUserID
dim sqlBlogg, rsBlogg
sqlBlogg = "SELECT "
sqlBlogg = sqlBlogg & "countClick, "
sqlBlogg = sqlBlogg & "countClickUnique "
sqlBlogg = sqlBlogg & "FROM tbl_blogg "
sqlBlogg = sqlBlogg & "WHERE bloggID = "&intBloggID_Blogg&";"
set rsBlogg = conn.execute(sqlBlogg)
dim intCountClick_Blogg, intCountClickUnique_Blogg
intCountClick_Blogg = int(rsBlogg("countClick"))
intCountClickUnique_Blogg = int(rsBlogg("countClickUnique"))
dim intCountClickNext_Blogg, intCountClickUniqueNext_Blogg
intCountClickNext_Blogg = int(intCountClick_Blogg+1)
intCountClickUniqueNext_Blogg = int(intCountClickUnique_Blogg+1)
sqlBlogg = "SELECT COUNT(*) AS finnsRedan "
sqlBlogg = sqlBlogg & "FROM tbl_checkBlogg "
sqlBlogg = sqlBlogg & "WHERE "
sqlBlogg = sqlBlogg & "sessionNumber = '"&strCheckUserID_Blogg&"' "
sqlBlogg = sqlBlogg & "AND "
sqlBlogg = sqlBlogg & "bloggID = "&intBloggID_Blogg&" "
sqlBlogg = sqlBlogg & "AND "
sqlBlogg = sqlBlogg & "actualDate = '"&theDate_Blogg&"'"
set rsBlogg = conn.execute(sqlBlogg)
dim intFinnsRedan_Blogg
intFinnsRedan_Blogg = cint(rsBlogg("finnsRedan"))
if intFinnsRedan_Blogg = 0 then
sqlBlogg = "INSERT INTO tbl_checkBlogg "
sqlBlogg = sqlBlogg & "("
sqlBlogg = sqlBlogg & "sessionNumber, "
sqlBlogg = sqlBlogg & "bloggID, "
sqlBlogg = sqlBlogg & "actualDate, "
sqlBlogg = sqlBlogg & "actualDateNow, "
sqlBlogg = sqlBlogg & "clickNumber, "
sqlBlogg = sqlBlogg & "userID "
sqlBlogg = sqlBlogg & ")"
sqlBlogg = sqlBlogg & "VALUES"
sqlBlogg = sqlBlogg & "("
sqlBlogg = sqlBlogg & ""&strCheckUserID_Blogg&", "
sqlBlogg = sqlBlogg & ""&intBloggID_Blogg&", "
sqlBlogg = sqlBlogg & "'"&theDate_Blogg&"', "
sqlBlogg = sqlBlogg & "'"&theDateNow_Blogg&"', "
sqlBlogg = sqlBlogg & "1, "
sqlBlogg = sqlBlogg & ""&theUserID_Blogg&" "
sqlBlogg = sqlBlogg & ")"
set rsBlogg = conn.execute(sqlBlogg)
sqlBlogg = "UPDATE tbl_blogg "
sqlBlogg = sqlBlogg & "SET "
sqlBlogg = sqlBlogg & "countClick = "&intCountClickNext_Blogg&", "
sqlBlogg = sqlBlogg & "countClickUnique = "&intCountClickUniqueNext_Blogg&", "
sqlBlogg = sqlBlogg & "latestView = '"&theDate_Blogg&"', "
sqlBlogg = sqlBlogg & "latestViewNow = '"&theDateNow_Blogg&"' "
sqlBlogg = sqlBlogg & "WHERE "
sqlBlogg = sqlBlogg & "bloggID = "&intBloggID_Blogg&" "
set rsBlogg = conn.execute(sqlBlogg)
else
sqlBlogg = "SELECT checkBloggID, clickNumber "
sqlBlogg = sqlBlogg & "FROM tbl_checkBlogg "
sqlBlogg = sqlBlogg & "WHERE "
sqlBlogg = sqlBlogg & "sessionNumber = '"&strCheckUserID_Blogg&"' "
sqlBlogg = sqlBlogg & "AND "
sqlBlogg = sqlBlogg & "BloggID = "&intBloggID_Blogg&" "
sqlBlogg = sqlBlogg & "AND "
sqlBlogg = sqlBlogg & "actualDate = '"&theDate_Blogg&"'"
set rsBlogg = conn.execute(sqlBlogg)
dim intClickNumber_Blogg, intClickNumberNext_Blogg, intCheckBloggID_Blogg
intClickNumber_Blogg = int(rsBlogg("clickNumber"))
intClickNumberNext_Blogg = intClickNumber_Blogg + 1
intCheckBloggID_Blogg = int(rsBlogg("checkBloggID"))
sqlBlogg = "UPDATE tbl_checkBlogg "
sqlBlogg = sqlBlogg & "SET "
sqlBlogg = sqlBlogg & "clickNumber = "&intClickNumberNext_Blogg&", "
sqlBlogg = sqlBlogg & "actualDate = '"&theDate_Blogg&"', "
sqlBlogg = sqlBlogg & "actualDateNow = '"&theDateNow_Blogg&"', "
sqlBlogg = sqlBlogg & "userID = "&theUserID_Blogg&" "
sqlBlogg = sqlBlogg & "WHERE "
sqlBlogg = sqlBlogg & "checkBloggID = "&intCheckBloggID_Blogg&";"
set rsBlogg = conn.execute(sqlBlogg)
sqlBlogg = "UPDATE tbl_blogg "
sqlBlogg = sqlBlogg & "SET "
sqlBlogg = sqlBlogg & "countClick = "&intCountClickNext_Blogg&", "
sqlBlogg = sqlBlogg & "latestView = '"&theDate_Blogg&"', "
sqlBlogg = sqlBlogg & "latestViewNow = '"&theDateNow_Blogg&"' "
sqlBlogg = sqlBlogg & "WHERE "
sqlBlogg = sqlBlogg & "BloggID = "&intBloggID_Blogg&";"
set rsBlogg = conn.execute(sqlBlogg)
end if
sqlBlogg = "INSERT INTO tbl_bloggHasClick "
sqlBlogg = sqlBlogg & "("
sqlBlogg = sqlBlogg & "bloggID, "
sqlBlogg = sqlBlogg & "userID, "
sqlBlogg = sqlBlogg & "ipNumber, "
sqlBlogg = sqlBlogg & "clickDate, "
sqlBlogg = sqlBlogg & "clickDateNow "
sqlBlogg = sqlBlogg & ")"
sqlBlogg = sqlBlogg & "VALUES"
sqlBlogg = sqlBlogg & "("
sqlBlogg = sqlBlogg & ""&intBloggID_Blogg&", "
sqlBlogg = sqlBlogg & ""&theUserID_Blogg&", "
sqlBlogg = sqlBlogg & "'"&theIP_Blogg&"', "
sqlBlogg = sqlBlogg & "'"&theDate_Blogg&"', "
sqlBlogg = sqlBlogg & "'"&theDateNow_Blogg&"' "
sqlBlogg = sqlBlogg & ")"
set rsBlogg = conn.execute(sqlBlogg)
sqlBlogg = "SELECT "
sqlBlogg = sqlBlogg & "SUM(countClick) AS sumCountClick, "
sqlBlogg = sqlBlogg & "SUM(countClickUnique) AS sumCountClickUnique "
sqlBlogg = sqlBlogg & "FROM tbl_blogg "
sqlBlogg = sqlBlogg & "WHERE "
sqlBlogg = sqlBlogg & "userID = "&intRequestUserID&" "
set rsBlogg = conn.execute(sqlBlogg)
dim intSumCountClick, intSumCountClickUnique
intSumCountClick = clng(rsBlogg("sumCountClick"))
intSumCountClickUnique = clng(rsBlogg("sumCountClickUnique"))
sqlBlogg = "UPDATE tbl_user SET "
sqlBlogg = sqlBlogg & "countReadBloggAll = "&intSumCountClick&", "
sqlBlogg = sqlBlogg & "countUniqueReadBloggAll = "&intSumCountClickUnique&" "
sqlBlogg = sqlBlogg & "WHERE "
sqlBlogg = sqlBlogg & "userID = "&intRequestUserID&";"
set rsBlogg = conn.execute(sqlBlogg)
' ***************
' STATISTIC END
' ***************
dim sql, rs
sql = "SELECT "
sql = sql & "B.bloggID, "
sql = sql & "B.userID, "
sql = sql & "B.bloggTitle, "
sql = sql & "B.blogg, "
sql = sql & "B.datumNow, "
sql = sql & "B.datumDate, "
sql = sql & "B.countComments, "
sql = sql & "B.countClick, "
sql = sql & "B.countClickUnique, "
sql = sql & "B.bloggPoints, "
sql = sql & "U.bloggPoints AS totalBloggPoints "
sql = sql & "FROM tbl_blogg B "
sql = sql & "INNER JOIN tbl_user U ON B.userID = U.userID "
sql = sql & "WHERE B.bloggID = "&intRequestBloggID&""
set rs = conn.execute(sql)
dim intBloggID
intBloggID = int(rs("bloggID"))
'response.write "intBloggID = " &intBloggID& " "
dim intUserID
intUserID = int(rs("userID"))
'response.write "intUserID = " &intUserID& " "
dim strBlogTitle
strBlogTitle = trim(rs("bloggTitle"))
'response.write "strBlogTitle = " &strBlogTitle& " "
dim strBlogg
strBlogg = trim(rs("blogg"))
'response.write "strBlogg = " &strBlogg& " "
dim strBloggOutput
strBloggOutput = fixaTeckenOutput(strBlogg)
'response.write "strBloggOutput = " &strBloggOutput& " "
dim dtmBloggDateNow
dtmBloggDateNow = trim(rs("datumNow"))
'response.write "dtmBloggDateNow = " &dtmBloggDateNow& " "
dim dtmDateNow
dtmDateNow = dtmBloggDateNow
dtmDateNow = replace(dtmDateNow,"/","-")
'response.write "dtmDateNow = " &dtmDateNow& " "
dim dtmBloggDateDate
dtmBloggDateDate = trim(rs("datumDate"))
'response.write "dtmBloggDateDate = " &dtmBloggDateDate& " "
dim intCountComments
intCountComments = int(rs("countComments"))
'response.write "intCountComments = " &intCountComments& " "
dim intCountClick
intCountClick = int(rs("countClick"))
'response.write "intCountClick = " &intCountClick& " "
dim intCountClickUnique
intCountClickUnique = int(rs("countClickUnique"))
'response.write "intCountClickUnique = " &intCountClickUnique& " "
dim intBloggPoints
intBloggPoints = int(rs("bloggPoints"))
'response.write "intBloggPoints = " &intBloggPoints& " "
dim intTotalBloggPoints
intTotalBloggPoints = int(rs("totalBloggPoints"))
'response.write "intTotalBloggPoints = " &intTotalBloggPoints& " "
sql = "SELECT "
sql = sql & "userFirstName, "
sql = sql & "userLastName, "
sql = sql & "userCity, "
sql = sql & "userMail, "
sql = sql & "userAlias, "
sql = sql & "userProfileImage, "
sql = sql & "userHasProfileImage "
sql = sql & "FROM tbl_user "
sql = sql & "WHERE userID = "&intUserID&""
set rs = conn.execute(sql)
dim strUserFirstName
strUserFirstName = trim(rs("userFirstName"))
'response.write "strUserFirstName = " &strUserFirstName& " "
dim strUserLastName
strUserLastName = trim(rs("userLastName"))
'response.write "strUserLastName = " &strUserLastName& " "
dim strUserCity
strUserCity = trim(rs("userCity"))
'response.write "strUserCity = " &strUserCity& " "
dim strUserMail
strUserMail = trim(rs("userMail"))
'response.write "strUserMail = " &strUserMail& " "
dim strUserAlias
strUserAlias = trim(rs("userAlias"))
'response.write "strUserAlias = " &strUserAlias& " "
dim strUserProfileImage
strUserProfileImage = trim(rs("userProfileImage"))
'response.write "strUserProfileImage = " &strUserProfileImage& " "
dim intUserHasProfileImage
intUserHasProfileImage = trim(rs("userHasProfileImage"))
'response.write "intUserHasProfileImage = " &intUserHasProfileImage& " "
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
'response.write "intPageSize = " &intPageSize& " "
' ----- 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(100)
Else
intPageSize = CInt(intPageSize)
End if
'response.write "intPageSize = " &intPageSize& " "
if intCurrentPage = 0 Then
intCurrentPage = 1
else
intCurrentPage = CInt(intCurrentPage)
end if
dim theIP_stat, theDate_stat, theDateNow_stat
theIP_stat = Request.ServerVariables("REMOTE_HOST")
theDate_stat = date()
theDate_stat = replace(theDate_stat,"/","-")
theDateNow_stat = now()
theDateNow_stat = replace(theDateNow_stat,"/","-")
sql = "INSERT INTO tbl_statReadLatestBlog "
sql = sql & "("
sql = sql & "userID, "
sql = sql & "ipNumber, "
sql = sql & "clickDate, "
sql = sql & "clickDateNow, "
sql = sql & "bloggID, "
sql = sql & "page, "
sql = sql & "statusID "
sql = sql & ")"
sql = sql & "VALUES"
sql = sql & "("
sql = sql & ""&intActualSessionUserID&", "
sql = sql & "'"&theIP_stat&"', "
sql = sql & "'"&theDate_stat&"', "
sql = sql & "'"&theDateNow_stat&"', "
sql = sql & ""&intRequestBloggID&", "
sql = sql & ""&intCurrentPage&", "
sql = sql & ""&intStatusID&" "
sql = sql & ")"
set rs = conn.execute(sql)
dim sqlLoop1, rsLoop1
sqlLoop1 = "SELECT "
sqlLoop1 = sqlLoop1 & "B.bloggHasCommentID, "
sqlLoop1 = sqlLoop1 & "B.bloggID, "
sqlLoop1 = sqlLoop1 & "B.commentText, "
sqlLoop1 = sqlLoop1 & "B.userID, "
sqlLoop1 = sqlLoop1 & "B.datumNow, "
sqlLoop1 = sqlLoop1 & "B.datumDate, "
sqlLoop1 = sqlLoop1 & "B.updatedDate, "
sqlLoop1 = sqlLoop1 & "B.updatedNow, "
sqlLoop1 = sqlLoop1 & "B.hasBeenUpdated, "
sqlLoop1 = sqlLoop1 & "B.deletedDate, "
sqlLoop1 = sqlLoop1 & "B.deletedNow, "
sqlLoop1 = sqlLoop1 & "B.hasBeenDeleted, "
sqlLoop1 = sqlLoop1 & "U.userAlias, "
sqlLoop1 = sqlLoop1 & "U.userProfileImage, "
sqlLoop1 = sqlLoop1 & "U.userHasProfileImage, "
sqlLoop1 = sqlLoop1 & "B.isUnloggedUser, "
sqlLoop1 = sqlLoop1 & "B.commentAlias, "
sqlLoop1 = sqlLoop1 & "B.commentUser "
sqlLoop1 = sqlLoop1 & "FROM tbl_bloggHasComment B "
sqlLoop1 = sqlLoop1 & "INNER JOIN tbl_user U ON B.userID = U.userID "
sqlLoop1 = sqlLoop1 & "WHERE "
sqlLoop1 = sqlLoop1 & "B.bloggID = "&intBloggID&" "
sqlLoop1 = sqlLoop1 & "AND "
sqlLoop1 = sqlLoop1 & "B.hasBeenDeleted = 0 "
sqlLoop1 = sqlLoop1 & "ORDER BY B.bloggHasCommentID ASC"
set rsLoop1 = conn.execute(sqlLoop1)
dim arrComments
If NOT rsLoop1.EOF Then
arrComments = rsLoop1.GetRows()
Else
ReDim arrComments(0,-1)
End if
dim intTotalComments
intTotalComments = UBound(arrComments,2)+1
If intTotalComments > 0 Then
' ----- calculate total pages --------------------
intTotalPages = Int(intTotalComments/intPageSize)
If NOT intTotalComments 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
<% call showLogin() %>
<% call showMenu() %>
<% call mainPage() %>
<% call showBottom() %>
<% sub mainPage() %>
<% select case intUserHasProfileImage
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
Bloggare:
<%=strUserAlias%>
När?
<%=dtmDateNow%>
Visningar:
<%=intCountClick%> gånger
Unika visningar:
<%=intCountClickUnique%> gånger
Antal kommentarer:
<%=intCountComments%> st
Bloggstjärnor:
<%=intBloggPoints%> st
<%=strBloggOutput%>
/<%=strUserAlias%>
<% if session("userID") <> "" then %>
<% if intActualSessionUserID <> intUserID then %>
<% if intFinnsRedan = 0 then %>
Vill du ge <%=strUserAlias%> en poäng för denna blogg?
<% else %>
Du gav <%=strUserAlias%> en poäng för denna blogg <%=dtmOutputDatumNow_DB%>
<% end if %>
<% end if %>
<% end if %>
<% if intActualSessionUserID = intUserID then %>
<% end if %>
<% if intCountComments = 0 then %>
Vafasiken, inga kommentarer. Kom igen nu, va?
<% else
dim strComments
select case intCountComments
case 1
strComments = "kommentar"
case else
strComments = "kommentarer"
end select
%>
Det finns <%=intCountComments%> <%=strComments%> till denna blogg.
<% dim intBloggHasCommentID_loop1, intBloggID_loop1
dim strCommentText_loop1, intUserID_loop1
dim dtmDatumNow_loop1, dtmDatumDate_loop1
dim dtmUpdatedDate_loop1, dtmUpdatedNow_loop1
dim intHasBeenUpdated_loop1, dtmDeletedDate_loop1
dim dtmDeletedNow_loop1, intHasBeenDeleted_loop1
dim strUserAlias_loop1, strUserProfileImage_loop1
dim intUserHasProfileImage_loop1
dim countLoop : countLoop = 1
dim dtmOutputDate_loop1, strOutputWrittenBy, strOutputEditedBy
dim dtmOutputDateUpdated_loop1
dim isUnloggedUser_loop1, strCommentAlias_loop1, strCommentEpost_loop1
Do
if countLoop = 3 then
countLoop = 1
end if
intBloggHasCommentID_loop1 = int(arrComments(0,intCurrentProduct))
intBloggID_loop1 = int(arrComments(1,intCurrentProduct))
strCommentText_loop1 = trim(arrComments(2,intCurrentProduct))
intUserID_loop1 = int(arrComments(3,intCurrentProduct))
dtmDatumNow_loop1 = arrComments(4,intCurrentProduct)
dtmOutputDate_loop1 = replace(dtmDatumNow_loop1," "," klockan ")
dtmOutputDate_loop1 = replace(dtmOutputDate_loop1,"/","-")
dtmDatumDate_loop1 = arrComments(5,intCurrentProduct)
dtmUpdatedDate_loop1 = arrComments(6,intCurrentProduct)
dtmUpdatedNow_loop1 = arrComments(7,intCurrentProduct)
intHasBeenUpdated_loop1 = int(arrComments(8,intCurrentProduct))
dtmDeletedDate_loop1 = arrComments(9,intCurrentProduct)
dtmDeletedNow_loop1 = arrComments(10,intCurrentProduct)
intHasBeenDeleted_loop1 = int(arrComments(11,intCurrentProduct))
strUserAlias_loop1 = trim(arrComments(12,intCurrentProduct))
strOutputWrittenBy = "Skriven av "&strUserAlias_loop1&" den "&dtmOutputDate_loop1&""
if isNULL(intHasBeenUpdated_loop1) then
intHasBeenUpdated_loop1 = 0
end if
if intHasBeenUpdated_loop1 <> 0 then
dtmOutputDateUpdated_loop1 = replace(dtmUpdatedNow_loop1," "," klockan ")
dtmOutputDateUpdated_loop1 = replace(dtmOutputDateUpdated_loop1,"/","-")
strOutputEditedBy = "Editerad av "&strUserAlias_loop1&" den "&dtmOutputDateUpdated_loop1&""
else
strOutputEditedBy = ""
end if
strUserProfileImage_loop1 = trim(arrComments(13,intCurrentProduct))
intUserHasProfileImage_loop1 = int(arrComments(14,intCurrentProduct))
isUnloggedUser_loop1 = int(arrComments(15,intCurrentProduct))
strCommentAlias_loop1 = trim(arrComments(16,intCurrentProduct))
strCommentEpost_loop1 = trim(arrComments(17,intCurrentProduct))
if isUnloggedUser_loop1 = 1 then
strOutputWrittenBy = "Skriven av "&strCommentAlias_loop1&" den "&dtmOutputDate_loop1&""
end if
if isNULL(strUserProfileImage_loop1) then
strUserProfileImage_loop1 = ""
end if
if isNULL(intUserHasProfileImage_loop1) then
intUserHasProfileImage_loop1 = int(0)
end if
'response.write "strUserProfileImage_loop1 = " &strUserProfileImage_loop1& " "
'response.write "intUserHasProfileImage_loop1 = " &intUserHasProfileImage_loop1& " "
'response.write "strUserID_loop1 = " &strUserID_loop1& " "
%>
<% 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(strCommentText_loop1)%>
<% if intUserID_loop1 = intActualSessionUserID then %>
<% else %>
[ANMÄL]
<% end if %>
<% if intHasBeenUpdated_loop1 <> 0 then %>
<%=strOutputEditedBy%>
<% else %>
<%=strOutputWrittenBy%>
<% end if %>
<% if intUserID_loop1 = intActualSessionUserID then %>
<% else %>
<% end if %>
<% if countLoop = 1 then %>
<% else %>
<% end if %>
<% if countLoop = 1 then %>
<% else %>
<% end if %>
<% countLoop = countLoop + 1
intCurrentProduct = intCurrentProduct + 1
If intCurrentProduct >= intTotalComments Then Exit Do
Loop While intCurrentProduct <= intEnd - 1
%>
<% if intTotalComments <> 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 %>
<% end if %>
<% if session("userID") = "" then %>
<% else %>
Kräng dina kommentarer nedan. Spara inte på krutet...
<% end if %>
<% end sub %>