<% option explicit response.buffer = true Session.LCID = 1041 %> <% dim thePageTitle, thePageName, thePageNameLinks thePageTitle = "LÄS KRÖNIKA" thePageName = "kronikor_visakronika.asp¤"&replace(request.querystring,"&","|") thePageNameLinks = "kronikor_visakronika.asp" dim intRequestKronikaID intRequestKronikaID = int(request("kronikaID")) 'response.write "intRequestKronikaID = " &intRequestKronikaID& "
" 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;" ' 6 = kronikor_visakronika.asp call countClickPage(6, strUserID_donRollo) dim sql, rs sql = "SELECT COUNT(*) AS finnsRedan " sql = sql & "FROM tbl_kronikaHasPoints " sql = sql & "WHERE " sql = sql & "kronikaID = "&intRequestKronikaID&" " 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 datumNow " sql = sql & "FROM tbl_kronikaHasPoints " sql = sql & "WHERE " sql = sql & "kronikaID = "&intRequestKronikaID&" " sql = sql & "AND " sql = sql & "userID = "&intActualSessionUserID&";" set rs = conn.execute(sql) dim dtmDatumNow_DB, dtmOutputDatumNow_DB dtmDatumNow_DB = trim(rs("datumNow")) dtmOutputDatumNow_DB = replace(dtmDatumNow_DB," "," klockan ") dtmOutputDatumNow_DB = replace(dtmOutputDatumNow_DB,"/","-") end if sql = "SELECT " sql = sql & "K.kronikaID, " sql = sql & "K.userID, " sql = sql & "K.kronikaTitle, " sql = sql & "K.kronika, " sql = sql & "K.kronikaSrc, " sql = sql & "K.datumNow, " sql = sql & "K.datumDate, " sql = sql & "K.countComments, " sql = sql & "K.countClick, " sql = sql & "K.countClickUnique, " sql = sql & "K.kronikaPoints, " sql = sql & "U.kronikaPoints AS totalKronikaPoints " sql = sql & "FROM tbl_kronika K " sql = sql & "INNER JOIN tbl_user U ON K.userID = U.userID " sql = sql & "WHERE " sql = sql & "K.kronikaID = "&intRequestKronikaID&"" set rs = conn.execute(sql) dim intKronikaID intKronikaID = int(rs("kronikaID")) 'response.write "intKronikaID = " &intKronikaID& "
" dim intUserID intUserID = int(rs("userID")) 'response.write "intUserID = " &intUserID& "
" dim strKronikaTitle strKronikaTitle = trim(rs("kronikaTitle")) 'response.write "strKronikaTitle = " &strKronikaTitle& "
" dim strKronika strKronika = fixaTeckenOutput(trim(rs("kronika"))) 'response.write "strKronika = " &strKronika& "
" dim strKronikaSrc strKronikaSrc = trim(rs("kronikaSrc")) 'response.write "strKronikaSrc = " &strKronikaSrc& "
" dim dtmBloggDateNow dtmBloggDateNow = trim(rs("datumNow")) 'response.write "dtmBloggDateNow = " &dtmBloggDateNow& "
" dim dtmDateNow dtmDateNow = dtmBloggDateNow dtmDateNow = replace(dtmDateNow,"/","-") 'response.write "dtmDateNow = " &dtmDateNow& "
" dim dtmKronikaDateDate dtmKronikaDateDate = trim(rs("datumDate")) 'response.write "dtmKronikaDateDate = " &dtmKronikaDateDate& "
" 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 intKronikaPoints intKronikaPoints = int(rs("kronikaPoints")) 'response.write "intKronikaPoints = " &intKronikaPoints& "
" dim intTotalKronikaPoints intTotalKronikaPoints = int(rs("totalKronikaPoints")) 'response.write "intTotalKronikaPoints = " &intTotalKronikaPoints& "
" ' *************** ' STATISTIC START ' *************** dim theUserID_Kronika, theIP_Kronika, theDate_Kronika, theDateNow_Kronika dim intKronikaID_Kronika, strCheckUserID_Kronika theUserID_Kronika = int(session("userID")) theIP_Kronika = Request.ServerVariables("REMOTE_HOST") theDate_Kronika = date() theDate_Kronika = replace(theDate_Kronika,"/","-") theDateNow_Kronika = now() theDateNow_Kronika = replace(theDate_Kronika,"/","-") intKronikaID_Kronika = int(intKronikaID) strCheckUserID_Kronika = strGetUserID dim sqlKronika, rsKronika sqlKronika = "SELECT " sqlKronika = sqlKronika & "countClick, " sqlKronika = sqlKronika & "countClickUnique " sqlKronika = sqlKronika & "FROM tbl_kronika " sqlKronika = sqlKronika & "WHERE kronikaID = "&intKronikaID_Kronika&";" set rsKronika = conn.execute(sqlKronika) dim intCountClick_Kronika, intCountClickUnique_Kronika intCountClick_Kronika = int(rsKronika("countClick")) intCountClickUnique_Kronika = int(rsKronika("countClickUnique")) dim intCountClickNext_Kronika, intCountClickUniqueNext_Kronika intCountClickNext_Kronika = int(intCountClick_Kronika+1) intCountClickUniqueNext_Kronika = int(intCountClickUnique_Kronika+1) sqlKronika = "SELECT COUNT(*) AS finnsRedan " sqlKronika = sqlKronika & "FROM tbl_checkKronika " sqlKronika = sqlKronika & "WHERE " sqlKronika = sqlKronika & "sessionNumber = '"&strCheckUserID_Kronika&"' " sqlKronika = sqlKronika & "AND " sqlKronika = sqlKronika & "kronikaID = "&intKronikaID_Kronika&" " sqlKronika = sqlKronika & "AND " sqlKronika = sqlKronika & "actualDate = '"&theDate_Kronika&"'" set rsKronika = conn.execute(sqlKronika) dim intFinnsRedan_Kronika intFinnsRedan_Kronika = cint(rsKronika("finnsRedan")) if intFinnsRedan_Kronika = 0 then sqlKronika = "INSERT INTO tbl_checkKronika " sqlKronika = sqlKronika & "(" sqlKronika = sqlKronika & "sessionNumber, " sqlKronika = sqlKronika & "KronikaID, " sqlKronika = sqlKronika & "actualDate, " sqlKronika = sqlKronika & "actualDateNow, " sqlKronika = sqlKronika & "clickNumber, " sqlKronika = sqlKronika & "userID " sqlKronika = sqlKronika & ")" sqlKronika = sqlKronika & "VALUES" sqlKronika = sqlKronika & "(" sqlKronika = sqlKronika & ""&strCheckUserID_Kronika&", " sqlKronika = sqlKronika & ""&intKronikaID_Kronika&", " sqlKronika = sqlKronika & "'"&theDate_Kronika&"', " sqlKronika = sqlKronika & "'"&theDateNow_Kronika&"', " sqlKronika = sqlKronika & "1, " sqlKronika = sqlKronika & ""&theUserID_Kronika&" " sqlKronika = sqlKronika & ")" set rsKronika = conn.execute(sqlKronika) sqlKronika = "UPDATE tbl_kronika " sqlKronika = sqlKronika & "SET " sqlKronika = sqlKronika & "countClick = "&intCountClickNext_Kronika&", " sqlKronika = sqlKronika & "countClickUnique = "&intCountClickUniqueNext_Kronika&", " sqlKronika = sqlKronika & "latestView = '"&theDate_Kronika&"', " sqlKronika = sqlKronika & "latestViewNow = '"&theDateNow_Kronika&"' " sqlKronika = sqlKronika & "WHERE " sqlKronika = sqlKronika & "KronikaID = "&intKronikaID_Kronika&" " set rsKronika = conn.execute(sqlKronika) else sqlKronika = "SELECT checkKronikaID, clickNumber " sqlKronika = sqlKronika & "FROM tbl_checkKronika " sqlKronika = sqlKronika & "WHERE " sqlKronika = sqlKronika & "sessionNumber = '"&strCheckUserID_Kronika&"' " sqlKronika = sqlKronika & "AND " sqlKronika = sqlKronika & "KronikaID = "&intKronikaID_Kronika&" " sqlKronika = sqlKronika & "AND " sqlKronika = sqlKronika & "actualDate = '"&theDate_Kronika&"'" set rsKronika = conn.execute(sqlKronika) dim intClickNumber_Kronika, intClickNumberNext_Kronika, intCheckKronikaID_Kronika intClickNumber_Kronika = int(rsKronika("clickNumber")) intClickNumberNext_Kronika = intClickNumber_Kronika + 1 intCheckKronikaID_Kronika = int(rsKronika("checkKronikaID")) sqlKronika = "UPDATE tbl_checkKronika " sqlKronika = sqlKronika & "SET " sqlKronika = sqlKronika & "clickNumber = "&intClickNumberNext_Kronika&", " sqlKronika = sqlKronika & "actualDate = '"&theDate_Kronika&"', " sqlKronika = sqlKronika & "actualDateNow = '"&theDateNow_Kronika&"', " sqlKronika = sqlKronika & "userID = "&theUserID_Kronika&" " sqlKronika = sqlKronika & "WHERE " sqlKronika = sqlKronika & "checkKronikaID = "&intCheckKronikaID_Kronika&";" set rsKronika = conn.execute(sqlKronika) sqlKronika = "UPDATE tbl_kronika " sqlKronika = sqlKronika & "SET " sqlKronika = sqlKronika & "countClick = "&intCountClickNext_Kronika&", " sqlKronika = sqlKronika & "latestView = '"&theDate_Kronika&"', " sqlKronika = sqlKronika & "latestViewNow = '"&theDateNow_Kronika&"' " sqlKronika = sqlKronika & "WHERE " sqlKronika = sqlKronika & "KronikaID = "&intKronikaID_Kronika&";" set rsKronika = conn.execute(sqlKronika) end if sqlKronika = "INSERT INTO tbl_kronikaHasClick " sqlKronika = sqlKronika & "(" sqlKronika = sqlKronika & "KronikaID, " sqlKronika = sqlKronika & "userID, " sqlKronika = sqlKronika & "ipNumber, " sqlKronika = sqlKronika & "clickDate, " sqlKronika = sqlKronika & "clickDateNow " sqlKronika = sqlKronika & ")" sqlKronika = sqlKronika & "VALUES" sqlKronika = sqlKronika & "(" sqlKronika = sqlKronika & ""&intKronikaID_Kronika&", " sqlKronika = sqlKronika & ""&theUserID_Kronika&", " sqlKronika = sqlKronika & "'"&theIP_Kronika&"', " sqlKronika = sqlKronika & "'"&theDate_Kronika&"', " sqlKronika = sqlKronika & "'"&theDateNow_Kronika&"' " sqlKronika = sqlKronika & ")" set rsKronika = conn.execute(sqlKronika) sqlKronika = "SELECT " sqlKronika = sqlKronika & "SUM(countClick) AS sumCountClick, " sqlKronika = sqlKronika & "SUM(countClickUnique) AS sumCountClickUnique " sqlKronika = sqlKronika & "FROM tbl_kronika " sqlKronika = sqlKronika & "WHERE " sqlKronika = sqlKronika & "userID = "&intUserID&" " set rsKronika = conn.execute(sqlKronika) dim intSumCountClick, intSumCountClickUnique intSumCountClick = clng(rsKronika("sumCountClick")) intSumCountClickUnique = clng(rsKronika("sumCountClickUnique")) sqlKronika = "UPDATE tbl_user SET " sqlKronika = sqlKronika & "countReadKronikaAll = "&intSumCountClick&", " sqlKronika = sqlKronika & "countUniqueReadKronikaAll = "&intSumCountClickUnique&" " sqlKronika = sqlKronika & "WHERE " sqlKronika = sqlKronika & "userID = "&intUserID&";" set rsKronika = conn.execute(sqlKronika) ' *************** ' STATISTIC END ' *************** sql = "SELECT " sql = sql & "userID, " 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 intUserID_DB intUserID_DB = int(rs("userID")) 'response.write "intUserID_DB = " &intUserID_DB& "
" 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 = fixaTecken(trim(rs("userProfileImage"))) 'response.write "strUserProfileImage = " &strUserProfileImage& "
" dim intUserHasProfileImage intUserHasProfileImage = int(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 ' ----- 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 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_statKronika " sql = sql & "(" sql = sql & "userID, " sql = sql & "ipNumber, " sql = sql & "clickDate, " sql = sql & "clickDateNow, " sql = sql & "kronikaID, " 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 & ""&intRequestKronikaID&", " sql = sql & ""&intCurrentPage&", " sql = sql & ""&intStatusID&" " sql = sql & ")" set rs = conn.execute(sql) dim sqlLoop1, rsLoop1 sqlLoop1 = "SELECT " sqlLoop1 = sqlLoop1 & "K.kronikaHasCommentID, " sqlLoop1 = sqlLoop1 & "K.kronikaID, " sqlLoop1 = sqlLoop1 & "K.commentText, " sqlLoop1 = sqlLoop1 & "K.userID, " sqlLoop1 = sqlLoop1 & "K.datumNow, " sqlLoop1 = sqlLoop1 & "K.datumDate, " sqlLoop1 = sqlLoop1 & "K.updatedDate, " sqlLoop1 = sqlLoop1 & "K.updatedNow, " sqlLoop1 = sqlLoop1 & "K.hasBeenUpdated, " sqlLoop1 = sqlLoop1 & "K.deletedDate, " sqlLoop1 = sqlLoop1 & "K.deletedNow, " sqlLoop1 = sqlLoop1 & "K.hasBeenDeleted, " sqlLoop1 = sqlLoop1 & "U.userAlias, " sqlLoop1 = sqlLoop1 & "U.userProfileImage, " sqlLoop1 = sqlLoop1 & "U.userHasProfileImage " sqlLoop1 = sqlLoop1 & "FROM tbl_kronikaHasComment K " sqlLoop1 = sqlLoop1 & "INNER JOIN tbl_user U ON K.userID = U.userID " sqlLoop1 = sqlLoop1 & "WHERE " sqlLoop1 = sqlLoop1 & "K.kronikaID = "&intRequestKronikaID&" " sqlLoop1 = sqlLoop1 & "AND " sqlLoop1 = sqlLoop1 & "K.hasBeenDeleted = 0 " sqlLoop1 = sqlLoop1 & "ORDER BY K.kronikaHasCommentID 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 <% if request.querystring("status") = 1 then %> <% else %> <% end if %>
<% call showLogin() %>
<% call showHeader() %>
<% call showMenu() %>
<% call mainPage() %>
<% call showBottom() %>
<% sub mainPage() %>
<% showKronikorMenu() %>
<% if intTotalComments = 0 then %> <% else dim strComments select case intTotalComments case 1 strComments = "kommentar" case else strComments = "kommentarer" end select %> <% end if %> <% if session("userID") = "" then %> <% else %> <% end if %>
  
STATISTIK: Antal visningar: <%=intCountClick%> st. Antal unika visningar: <%=intCountClickUnique%> st.
<%=strKronika%>
<% if session("userID") <> "" then %> <% if intActualSessionUserID <> intUserID then %> <% if intFinnsRedan = 0 then %> <% else %> <% end if %> <% end if %> <% end if %>
/<%=strUserAlias%>
Vill du ge <%=strUserAlias%> en poäng för denna eminenta krönika?   
Du gav <%=strUserAlias%> en poäng för denna krönika <%=dtmOutputDatumNow_DB%>
 Vafasiken, inga kommentarer. Kom igen nu, va?
 Det finns <%=intTotalComments%> <%=strComments%> till denna Kronika. Visar sidan <%=intCurrentPage%> av <%=intTotalPages%>   
<% dim intKronikaHasCommentID_loop1, intKronikaID_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 Do if countLoop = 3 then countLoop = 1 end if intKronikaHasCommentID_loop1 = int(arrComments(0,intCurrentProduct)) intKronikaID_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)) if isNULL(strUserProfileImage_loop1) then strUserProfileImage_loop1 = "x" 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& "
" %> <% countLoop = countLoop + 1 intCurrentProduct = intCurrentProduct + 1 If intCurrentProduct >= intTotalComments Then Exit Do Loop While intCurrentProduct <= intEnd - 1 %>
<% call showKronikaComment(strCommentText_loop1, strOutputWrittenBy, intCurrentPage, countLoop, intKronikaHasCommentID_loop1, intUserID_loop1, intActualSessionUserID, "kronikor_updateComment.asp", "kronikor_deleteComment.asp", "kronikor_rapportComment.asp", strOutputEditedBy, intHasBeenUpdated_loop1, strUserProfileImage_loop1, intUserHasProfileImage_loop1, intRequestKronikaID, 5)%>
<% 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)%>   >    >>  
 Tyvärr, du måste vara inloggad för att kunna kommentera en Kronika.
Kräng dina kommentarer nedan. spara inte på krutet...
 
 
<% end sub %>