<% option explicit response.buffer = true Session.LCID = 1041 %> <% dim thePageTitle, thePageName, thePageNameLinks thePageTitle = "LÄS BLOGG" thePageName = "blogs_readIndexBlog.asp¤"&replace(request.querystring,"&","|") thePageNameLinks = "blogs_readIndexBlog.asp" dim intRequestBloggID intRequestBloggID = int(request("bloggID")) 'response.write "intRequestBloggID = " &intRequestBloggID& "
" dim intActualSessionUserID intActualSessionUserID = int(session("userID")) 'response.write "intActualSessionUserID = " &intActualSessionUserID& "
" dim strGetUserID strGetUserID = acGetUserID() 'response.write "strGetUserID = " &strGetUserID& "
" '*************** 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& "
" ' 18 = blogs_readIndexBlog.asp call countClickPage(18, strUserID_donRollo) sql = "SELECT userID " sql = sql & "FROM tbl_blogg " sql = sql & "WHERE " sql = sql & "bloggID = "&intRequestBloggID&";" set rs = conn.execute(sql) dim intUserID_DB intUserID_DB = int(rs("userID")) 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 dtmDatumDate_DB, dtmOutputDatumDate_DB dim dtmDatumNow_DB, dtmOutputDatumNow_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 = "&intUserID_DB&" " 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 = "&intUserID_DB&";" 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 ' ----- 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 if intCurrentPage = 0 Then intCurrentPage = 1 else intCurrentPage = CInt(intCurrentPage) end if 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 showHeader() %>
<% call showMenu() %>
<% call mainPage() %>
<% call showBottom() %>
<% sub mainPage() %>
<% showBloggMenu() %>
<% 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 
<% if intUserID_DB = session("userID") then %> <% end if %> <% if intCountComments = 0 then %> <% else dim strComments select case intCountComments case 1 strComments = "kommentar" case else strComments = "kommentarer" end select %> <% end if %> <% if session("userID") = "" then %> <% else %> <% end if %>
<%=strBlogTitle%>
<%=strBloggOutput%>
<% 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 bloggstjärna för denna blogg?   
Du gav <%=strUserAlias%> en bloggstjärna för denna blogg <%=dtmOutputDatumDate_DB%>  
   
Vafasiken, inga kommentarer. Kom igen nu, va?
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& "
" %> <% countLoop = countLoop + 1 intCurrentProduct = intCurrentProduct + 1 If intCurrentProduct >= intTotalComments 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 intUserID_loop1 = intActualSessionUserID then %> <% else %> <% end if %>
<%=fixaTeckenOutput(strCommentText_loop1)%>
<% if intUserID_loop1 = intActualSessionUserID then %> <% else %> <% end if %> <% if intHasBeenUpdated_loop1 <> 0 then %> <% else %> <% end if %>
[ANMÄL]<%=strOutputEditedBy%><%=strOutputWrittenBy%>
<% if intTotalComments <> 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)%>   >    >>  
Du är INTE inloggad, men det går bra att skriva en kommentar ändå :)
 
Ditt alias
Ange din epost
Kontrollfråga: <%=intQuestion_1%> <%=strInBetween%> <%=intQuestion_2%> = 
 
Kräng dina kommentarer nedan. spara inte på krutet...
 
 
<% end sub %>