% 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 showMenu() %> |
|
<% call mainPage() %> |
|
|
<% call showBottom() %> |
<% sub mainPage() %>
|
|
|
|
|
|
|
|
|
|
STATISTIK: Antal visningar: <%=intCountClick%> st. Antal unika visningar: <%=intCountClickUnique%> st. |
|
|
|
|
|
|
|
<%=strKronika%> |
|
|
|
/<%=strUserAlias%> |
<% if session("userID") <> "" then %>
<% if intActualSessionUserID <> intUserID then %>
<% if intFinnsRedan = 0 then %>
Vill du ge <%=strUserAlias%> en poäng för denna eminenta krönika? |
|
<% else %>
|
Du gav <%=strUserAlias%> en poäng för denna krönika <%=dtmOutputDatumNow_DB%> |
<% end if %>
<% end if %>
<% end if %>
|
|
|
|
|
<% if intTotalComments = 0 then %>
|
|
Vafasiken, inga kommentarer. Kom igen nu, va? |
|
<% else
dim strComments
select case intTotalComments
case 1
strComments = "kommentar"
case else
strComments = "kommentarer"
end select
%>
|
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& " "
%>
<% 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)%> |
<% countLoop = countLoop + 1
intCurrentProduct = intCurrentProduct + 1
If intCurrentProduct >= intTotalComments Then Exit Do
Loop While intCurrentProduct <= intEnd - 1
%>
|
|
|
|
<< |
|
< |
|
<% 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 %>
|
|
<% if session("userID") = "" then %>
|
|
Tyvärr, du måste vara inloggad för att kunna kommentera en Kronika. |
|
|
<% else %>
|
|
<% end if %>
|
|
|
|
|
|
|
<% end sub %>