<% option explicit response.buffer = true Session.LCID = 1041 %> <% dim thePageTitle, thePageName, thePageNameLinks thePageTitle = "INDEX SIDA" thePageName = "index.asp" thePageNameLinks = "index.asp" ' 1 = index.asp call countClickPage(1, strUserID_donRollo) 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;" dim intActualSessionUserID intActualSessionUserID = int(session("userID")) 'response.write "intActualSessionUserID = " &intActualSessionUserID& "
" dim sqlLoop1, rsLoop1 sqlLoop1 = "SELECT " sqlLoop1 = sqlLoop1 & "U.userID, " sqlLoop1 = sqlLoop1 & "U.userProfileImage, " sqlLoop1 = sqlLoop1 & "U.userHasProfileImage, " sqlLoop1 = sqlLoop1 & "U.userAlias " sqlLoop1 = sqlLoop1 & "FROM tbl_loginFirstpage FP " sqlLoop1 = sqlLoop1 & "LEFT OUTER JOIN tbl_user U ON FP.userID = U.userID " sqlLoop1 = sqlLoop1 & "ORDER BY FP.loginFirstpageID DESC LIMIT 10" 'response.write sqlLoop1 set rsLoop1 = conn.execute(sqlLoop1) dim sqlLoop2, rsLoop2 sqlLoop2 = "SELECT " sqlLoop2 = sqlLoop2 & "B.bloggID, " sqlLoop2 = sqlLoop2 & "B.bloggTitle, " sqlLoop2 = sqlLoop2 & "B.blogg, " sqlLoop2 = sqlLoop2 & "B.countComments, " sqlLoop2 = sqlLoop2 & "U.userID, " sqlLoop2 = sqlLoop2 & "U.userAlias, " sqlLoop2 = sqlLoop2 & "U.userProfileImage, " sqlLoop2 = sqlLoop2 & "U.userHasProfileImage " sqlLoop2 = sqlLoop2 & "FROM tbl_blogg B " sqlLoop2 = sqlLoop2 & "LEFT OUTER JOIN tbl_user U ON B.userID = U.userID " sqlLoop2 = sqlLoop2 & "WHERE B.hasBeenDeleted = 0 " sqlLoop2 = sqlLoop2 & "ORDER BY B.bloggID DESC LIMIT 6" set rsLoop2 = conn.execute(sqlLoop2) dim intBloggID_1, strBloggTitle_1, strBlogg_1, intCountComments_1, intUserID_1 dim strUserAlias_1, strUserProfileImage_1, intUserHasProfileImage_1 dim intBloggID_2, strBloggTitle_2, strBlogg_2, intCountComments_2, intUserID_2 dim strUserAlias_2, strUserProfileImage_2, intUserHasProfileImage_2 dim intBloggID_3, strBloggTitle_3, strBlogg_3, intCountComments_3, intUserID_3 dim strUserAlias_3, strUserProfileImage_3, intUserHasProfileImage_3 dim intBloggID_4, strBloggTitle_4, strBlogg_4, intCountComments_4, intUserID_4 dim strUserAlias_4, strUserProfileImage_4, intUserHasProfileImage_4 dim intBloggID_5, strBloggTitle_5, strBlogg_5, intCountComments_5, intUserID_5 dim strUserAlias_5, strUserProfileImage_5, intUserHasProfileImage_5 dim intBloggID_6, strBloggTitle_6, strBlogg_6, intCountComments_6, intUserID_6 dim strUserAlias_6, strUserProfileImage_6, intUserHasProfileImage_6 dim intBloggID_loop2, strBloggTitle_loop2 dim strBlogg_loop2, intCountComments_loop2 dim strUserProfileImage_loop2, intUserHasProfileImage_loop2 dim intUserID_loop2, strUserAlias_loop2 dim countArr : countArr = 1 do until rsLoop2.EOF intBloggID_loop2 = int(rsLoop2("bloggID")) strBloggTitle_loop2 = trim(rsLoop2("bloggTitle")) strBloggTitle_loop2 = replace(strBloggTitle_loop2,"/","/ ") strBloggTitle_loop2 = replace(strBloggTitle_loop2,"=","= ") strBlogg_loop2 = left(rsLoop2("blogg"),25) intCountComments_loop2 = int(rsLoop2("countComments")) intUserID_loop2 = int(rsLoop2("userID")) strUserAlias_loop2 = trim(rsLoop2("userAlias")) strUserProfileImage_loop2 = trim(rsLoop2("userProfileImage")) intUserHasProfileImage_loop2 = int(rsLoop2("userHasProfileImage")) select case countArr case 1 intBloggID_1 = intBloggID_loop2 strBloggTitle_1 = strBloggTitle_loop2 if len(strBloggTitle_1) = 0 then strBloggTitle_1 = "INGEN RUBRIK" end if strBlogg_1 = strBlogg_loop2 intCountComments_1 = intCountComments_loop2 intUserID_1 = intUserID_loop2 strUserAlias_1 = strUserAlias_loop2 strUserProfileImage_1 = strUserProfileImage_loop2 intUserHasProfileImage_1 = intUserHasProfileImage_loop2 case 2 intBloggID_2 = intBloggID_loop2 strBloggTitle_2 = strBloggTitle_loop2 if len(strBloggTitle_2) = 0 then strBloggTitle_2 = "INGEN RUBRIK" end if strBlogg_2 = strBlogg_loop2 intCountComments_2 = intCountComments_loop2 intUserID_2 = intUserID_loop2 strUserAlias_2 = strUserAlias_loop2 strUserProfileImage_2 = strUserProfileImage_loop2 intUserHasProfileImage_2 = intUserHasProfileImage_loop2 case 3 intBloggID_3 = intBloggID_loop2 strBloggTitle_3 = strBloggTitle_loop2 if len(strBloggTitle_3) = 0 then strBloggTitle_3 = "INGEN RUBRIK" end if strBlogg_3 = strBlogg_loop2 intCountComments_3 = intCountComments_loop2 intUserID_3 = intUserID_loop2 strUserAlias_3 = strUserAlias_loop2 strUserProfileImage_3 = strUserProfileImage_loop2 intUserHasProfileImage_3 = intUserHasProfileImage_loop2 case 4 intBloggID_4 = intBloggID_loop2 strBloggTitle_4 = strBloggTitle_loop2 if len(strBloggTitle_4) = 0 then strBloggTitle_4 = "INGEN RUBRIK" end if strBlogg_4 = strBlogg_loop2 intCountComments_4 = intCountComments_loop2 intUserID_4 = intUserID_loop2 strUserAlias_4 = strUserAlias_loop2 strUserProfileImage_4 = strUserProfileImage_loop2 intUserHasProfileImage_4 = intUserHasProfileImage_loop2 case 5 intBloggID_5 = intBloggID_loop2 strBloggTitle_5 = strBloggTitle_loop2 if len(strBloggTitle_5) = 0 then strBloggTitle_5 = "INGEN RUBRIK" end if strBlogg_5 = strBlogg_loop2 intCountComments_5 = intCountComments_loop2 intUserID_5 = intUserID_loop2 strUserAlias_5 = strUserAlias_loop2 strUserProfileImage_5 = strUserProfileImage_loop2 intUserHasProfileImage_5 = intUserHasProfileImage_loop2 case 6 intBloggID_6 = intBloggID_loop2 strBloggTitle_6 = strBloggTitle_loop2 if len(strBloggTitle_6) = 0 then strBloggTitle_6 = "INGEN RUBRIK" end if strBlogg_6 = strBlogg_loop2 intCountComments_6 = intCountComments_loop2 intUserID_6 = intUserID_loop2 strUserAlias_6 = strUserAlias_loop2 strUserProfileImage_6 = strUserProfileImage_loop2 intUserHasProfileImage_6 = intUserHasProfileImage_loop2 end select countArr = countArr + 1 rsLoop2.MoveNext loop dim sqlLoop3, rsLoop3 sqlLoop3 = "SELECT " sqlLoop3 = sqlLoop3 & "T.tjattraHasCommentID, " sqlLoop3 = sqlLoop3 & "T.commentText, " sqlLoop3 = sqlLoop3 & "U.userID, " sqlLoop3 = sqlLoop3 & "U.userAlias, " sqlLoop3 = sqlLoop3 & "U.userProfileImage, " sqlLoop3 = sqlLoop3 & "U.userHasProfileImage " sqlLoop3 = sqlLoop3 & "FROM tbl_tjattraHasComment T " sqlLoop3 = sqlLoop3 & "LEFT OUTER JOIN tbl_user U ON T.userID = U.userID " sqlLoop3 = sqlLoop3 & "WHERE " sqlLoop3 = sqlLoop3 & "hasBeenDeleted = 0 " sqlLoop3 = sqlLoop3 & "ORDER BY T.tjattraHasCommentID DESC LIMIT 5" set rsLoop3 = conn.execute(sqlLoop3) dim intTjattraHasCommentID_loop3, strCommentText_loop3 dim intUserID_loop3, strUserAlias_loop3 dim strUserProfileImage_loop3, intUserHasProfileImage_loop3 dim sqlLoop4, rsLoop4 sqlLoop4 = "SELECT " sqlLoop4 = sqlLoop4 & "B.bloggHasCommentID, " sqlLoop4 = sqlLoop4 & "B.bloggID, " sqlLoop4 = sqlLoop4 & "B.commentText, " sqlLoop4 = sqlLoop4 & "B.userID, " sqlLoop4 = sqlLoop4 & "B.datumDate, " sqlLoop4 = sqlLoop4 & "B.datumNow, " sqlLoop4 = sqlLoop4 & "U.userAlias, " sqlLoop4 = sqlLoop4 & "U.userProfileImage, " sqlLoop4 = sqlLoop4 & "U.userHasProfileImage " sqlLoop4 = sqlLoop4 & "FROM tbl_bloggHasComment B " sqlLoop4 = sqlLoop4 & "INNER JOIN tbl_user U ON B.userID = U.userID " sqlLoop4 = sqlLoop4 & "WHERE " sqlLoop4 = sqlLoop4 & "B.hasBeenDeleted = 0 " sqlLoop4 = sqlLoop4 & "ORDER BY B.bloggHasCommentID DESC LIMIT 3;" set rsLoop4 = conn.execute(sqlLoop4) dim intBloggHasCommentID_loop4, intBloggID_loop4, strCommentText_loop4, intUserID_loop4 dim dtmDatumDate_loop4, dtmDatumNow_loop4, dtmLastCommentDateNow_loop4 dim strUserAlias_loop4, strUserProfileImage_loop4, intUserHasProfileImage_loop4 dim sqlLoop5, rsLoop5 sqlLoop5 = "SELECT " sqlLoop5 = sqlLoop5 & "P.planketHasCommentID, " sqlLoop5 = sqlLoop5 & "P.commentText, " sqlLoop5 = sqlLoop5 & "P.userID, " sqlLoop5 = sqlLoop5 & "P.datumDate, " sqlLoop5 = sqlLoop5 & "P.datumNow, " sqlLoop5 = sqlLoop5 & "U.userAlias, " sqlLoop5 = sqlLoop5 & "P.updatedDate, " sqlLoop5 = sqlLoop5 & "P.updatedNow, " sqlLoop5 = sqlLoop5 & "P.hasBeenUpdated, " sqlLoop5 = sqlLoop5 & "U.userProfileImage, " sqlLoop5 = sqlLoop5 & "U.userHasProfileImage " sqlLoop5 = sqlLoop5 & "FROM tbl_planketHasComments P " sqlLoop5 = sqlLoop5 & "INNER JOIN tbl_user U ON P.userID = U.userID " sqlLoop5 = sqlLoop5 & "WHERE " sqlLoop5 = sqlLoop5 & "P.hasBeenDeleted = 0 " sqlLoop5 = sqlLoop5 & "AND " sqlLoop5 = sqlLoop5 & "P.planketID = 4 " sqlLoop5 = sqlLoop5 & "ORDER BY P.datumNow DESC LIMIT 3" set rsLoop5 = conn.execute(sqlLoop5) dim intPlanketHasCommentID_loop5, strCommentText_loop5, intUserID_loop5 dim dtmDatumDate_loop5, dtmDatumNow_loop5 dim strUserAlias_loop5, intHasBeenUpdated_loop5 dim dtmUpdatedDate_loop5, dtmUpdatedNow_loop5 dim strUserProfileImage_loop5, intUserHasProfileImage_loop5 'dim sqlLoop6, rsLoop6 'sqlLoop6 = "SELECT " 'sqlLoop6 = sqlLoop6 & "ST.spelTipsHasCommentID, " 'sqlLoop6 = sqlLoop6 & "ST.commentText, " 'sqlLoop6 = sqlLoop6 & "ST.datumDate, " 'sqlLoop6 = sqlLoop6 & "ST.datumNow, " 'sqlLoop6 = sqlLoop6 & "U.userID, " 'sqlLoop6 = sqlLoop6 & "U.userAlias, " 'sqlLoop6 = sqlLoop6 & "U.userProfileImage, " 'sqlLoop6 = sqlLoop6 & "U.userHasProfileImage " 'sqlLoop6 = sqlLoop6 & "FROM tbl_spelTipsHasComments ST " 'sqlLoop6 = sqlLoop6 & "INNER JOIN tbl_user U ON ST.userID = U.userID " 'sqlLoop6 = sqlLoop6 & "WHERE " 'sqlLoop6 = sqlLoop6 & "ST.hasBeenDeleted = 0 " 'sqlLoop6 = sqlLoop6 & "ORDER BY ST.datumNow DESC LIMIT 3" 'set rsLoop6 = conn.execute(sqlLoop6) dim intSpelTipsHasCommentID_loop6, strCommentText_loop6 dim intUserID_loop6, strUserAlias_loop6 dim strUserProfileImage_loop6, intUserHasProfileImage_loop6 dim dtmDatumDate_loop6, dtmDatumNow_loop6 Randomize dim intRandom intRandom = int(100*Rnd()) 'response.write "intRandom = " &intRandom& "
" dim intRandomStart intRandomStart = int(100*Rnd()) 'response.write "intRandomStart = " &intRandomStart& "
" dim intRequestSlumpTal intRequestSlumpTal = int(request("modeValue")) if isNULL(intRequestSlumpTal) then intRequestSlumpTal = int(50) end if if len(intRequestSlumpTal) = 0 then intRequestSlumpTal = int(50) end if if intRequestSlumpTal = 0 then intRequestSlumpTal = int(50) end if 'response.write "intRequestSlumpTal = " &intRequestSlumpTal& "
" dim intMaxValue intMaxValue = 100-intRequestSlumpTal 'response.write "intMaxValue = " &intMaxValue& "
" dim intSlumpStart intSlumpStart = int(intMaxValue*(intRandomStart/100)) 'response.write "intSlumpStart = " &intSlumpStart& "
" dim intSlumpStartMinusEtt intSlumpStartMinusEtt = int(intSlumpStart-1) 'response.write "intSlumpStartMinusEtt = " &intSlumpStartMinusEtt& "
" dim intSlumpSlut intSlumpSlut = int((intSlumpStart+intRequestSlumpTal)-1) 'response.write "intSlumpSlut = " &intSlumpSlut& "
" dim intSlumpSlutPlusEtt intSlumpSlutPlusEtt = int(intSlumpSlut+1) 'response.write "intSlumpSlutPlusEtt = " &intSlumpSlutPlusEtt& "
" dim intRequestDoSlumpTal intRequestDoSlumpTal = int(request("doSlumpTal")) if isNULL(intRequestDoSlumpTal) then intRequestDoSlumpTal = int(0) end if if len(intRequestDoSlumpTal) = 0 then intRequestDoSlumpTal = int(0) end if if intRequestDoSlumpTal = 0 then intRequestDoSlumpTal = int(0) end if 'response.write "intRequestDoSlumpTal = " &intRequestDoSlumpTal& "
" dim showThisOutput if intRequestDoSlumpTal = 1 then if intRandom > intSlumpStartMinusEtt and intRandom < intSlumpSlutPlusEtt then showThisOutput = 2 else showThisOutput = 3 end if dim intSlumpUserID intSlumpUserID = intActualSessionUserID dim dtmSlumpDateDate dtmSlumpDateDate = date() dtmSlumpDateDate = replace(dtmSlumpDateDate,"/","-") dim dtmSlumpDateNow dtmSlumpDateNow = now() dtmSlumpDateNow = replace(dtmSlumpDateNow,"/","-") dim intSlumpIsLoggedIn if intSlumpUserID > 0 then intSlumpIsLoggedIn = 1 else intSlumpIsLoggedIn = 0 end if dim intSlumpVinst if showThisOutput = 2 then intSlumpVinst = 1 else intSlumpVinst = 0 end if dim sql, rs sql = "INSERT INTO tbl_slumpTal " sql = sql & "(" sql = sql & "userID, " sql = sql & "datumDate, " sql = sql & "datumNow, " sql = sql & "isLoggedIn, " sql = sql & "procentKoll, " sql = sql & "startKoll, " sql = sql & "slutKoll, " sql = sql & "utfall, " sql = sql & "vinst" sql = sql & ") VALUES (" sql = sql & ""&intSlumpUserID&", " sql = sql & "'"&dtmSlumpDateDate&"', " sql = sql & "'"&dtmSlumpDateNow&"', " sql = sql & ""&intSlumpIsLoggedIn&", " sql = sql & ""&intRequestSlumpTal&", " sql = sql & ""&intSlumpStart&", " sql = sql & ""&intSlumpSlut&", " sql = sql & ""&intRandom&", " sql = sql & ""&intSlumpVinst&"" sql = sql & ")" set rs = conn.execute(sql) else showThisOutput = 1 end if 'response.write "showThisOutput = " &showThisOutput& "
" dim intStartValue intStartValue = int(intRequestSlumpTal) if isNULL(intStartValue) then intStartValue = int(50) end if if len(intStartValue) = 0 then intStartValue = int(50) end if if intStartValue = 0 then intStartValue = int(50) end if 'response.write "intStartValue = " &intStartValue& "
" dim intPixelWidthTotal intPixelWidthTotal = 174 'response.write "intPixelWidthTotal = " &intPixelWidthTotal& "
" dim intPixelWidthLeft, intPixelWidthRight intPixelWidthLeft = int(174*(intStartValue/100)) intPixelWidthRight = int(174-intPixelWidthLeft) dim intProcentWidthLeft, intProcentWidthRight intProcentWidthLeft = int(184*(intStartValue/100)) intProcentWidthRight = int(184-intProcentWidthLeft) %> www.donRollo.se www.donRollo.se - Poker Community - Online Forum - nätpoker - bloggar - nyheter - pokertips
<% call showLogin() %>
<% call showHeader() %>
<% call showMenu() %>
<% call mainPage() %>
<% call showBottom() %>
<% sub mainPage() %>
<% dim countT : countT = 1 dim lenCheck do until rsloop3.EOF intTjattraHasCommentID_loop3 = int(rsLoop3("tjattraHasCommentID")) strCommentText_loop3 = trim(rsLoop3("commentText")) lenCheck = len(strCommentText_loop3) if lenCheck > 35 then strCommentText_loop3 = left(strCommentText_loop3,35) & "..." else strCommentText_loop3 = left(strCommentText_loop3,35) end if intUserID_loop3 = int(rsLoop3("userID")) strUserAlias_loop3 = trim(rsLoop3("userAlias")) strUserProfileImage_loop3 = trim(rsLoop3("userProfileImage")) intUserHasProfileImage_loop3 = int(rsLoop3("userHasProfileImage")) %> <% countT = countT + 1 rsLoop3.MoveNext loop %>
<% select case intUserHasProfileImage_loop3 case 1 %> <% case 2 %> <% case else %> <% end select %>
<%=strUserAlias_loop3%><%=strUserAlias_loop3%><%=strUserAlias_loop3%><%=replace(strCommentText_loop3,"/","/ ")%>
Läs mer tjatter --> 
Läs om hur tipssystemen fungerar -->
DEMO av funktionen "skapa tipssystem" -->
Läs om "Kolla slumpen"! -->
Läs detta om du har glömt ditt lösenord? -->
Morsning dude! Undrar du över något, mejla info@donRollo.se. Ka-ching :)

TJOHO! Veckans helghälsning laddar du hem här --> [helgHalsning_v15.pdf]
<% dim intUserID, strUserProfileImage, intUserHasProfileImage dim strUserAlias_loop1 do until rsLoop1.EOF intUserID = int(rsLoop1("userID")) strUserProfileImage = trim(rsLoop1("userProfileImage")) intUserHasProfileImage = int(rsLoop1("userHasProfileImage")) strUserAlias_loop1 = trim(rsLoop1("userAlias")) %> <% select case intUserHasProfileImage case 1 %> <% case 2 %> <% case else %> <% end select %> <% rsLoop1.MoveNext loop %>
<%=strUserAlias_loop1%><%=strUserAlias_loop1%><%=strUserAlias_loop1%>
<% select case intUserHasProfileImage_1 case 1 %> <% case 2 %> <% case else %> <% end select %> <% select case intUserHasProfileImage_2 case 1 %> <% case 2 %> <% case else %> <% end select %> <% select case intUserHasProfileImage_3 case 1 %> <% case 2 %> <% case else %> <% end select %> <% select case intUserHasProfileImage_4 case 1 %> <% case 2 %> <% case else %> <% end select %> <% select case intUserHasProfileImage_5 case 1 %> <% case 2 %> <% case else %> <% end select %>
<%=strUserAlias_1%>
<%=strBloggTitle_1%> (<%=intCountComments_1%>)
<%=strUserAlias_2%>
<%=strBloggTitle_2%> (<%=intCountComments_2%>)
<%=strUserAlias_3%>
<%=strBloggTitle_3%> (<%=intCountComments_3%>)
<%=strUserAlias_4%>
<%=strBloggTitle_4%> (<%=intCountComments_4%>)
<%=strUserAlias_5%>
<%=strBloggTitle_5%> (<%=intCountComments_5%>)
Visa de 20 senaste bloggarna -->    
<% dim countT4 : countT4 = 1 dim lenCheck4 do until rsLoop4.EOF dim intBloggHasCommentID_loop4, intBloggID_loop4, strCommentText_loop4, intUserID_loop4 dim dtmDatumDate_loop4, dtmDatumNow_loop4, dtmLastCommentDateNow_loop4 dim strUserAlias_loop4, strUserProfileImage_loop4, intUserHasProfileImage_loop4 intBloggHasCommentID_loop4 = int(rsLoop4("bloggHasCommentID")) intBloggID_loop4 = int(rsLoop4("bloggID")) strCommentText_loop4 = trim(rsLoop4("commentText")) strCommentText_loop4 = replace(strCommentText_loop4,"/","/ ") strCommentText_loop4 = replace(strCommentText_loop4,".",". ") lenCheck4 = len(strCommentText_loop4) if lenCheck4 > 50 then strCommentText_loop4 = left(strCommentText_loop4,50) & "..." else strCommentText_loop4 = left(strCommentText_loop4,50) end if intUserID_loop4 = int(rsLoop4("userID")) dtmDatumDate_loop4 = rsLoop4("datumDate") dtmDatumNow_loop4 = rsLoop4("datumNow") strUserAlias_loop4 = trim(rsLoop4("userAlias")) strUserProfileImage_loop4 = trim(rsLoop4("userProfileImage")) intUserHasProfileImage_loop4 = int(rsLoop4("userHasProfileImage")) %> <% countT4 = countT4 + 1 rsLoop4.MoveNext loop %>
<% select case intUserHasProfileImage_loop4 case 1 %> <% case 2 %> <% case else %> <% end select %>
<%=strUserAlias_loop4%><%=strUserAlias_loop4%><%=strUserAlias_loop4%><%=strCommentText_loop4%> -->
height=1 id="procentLeft"> height=1 id="procentRight">
<%=intStartValue%>
%
<% select case showThisOutput case 1 %> <% case 2 %> <% case 3 %> <% case else %> <% end select %>
  När du har valt procent. Klicka på "bullen" eller "ikonen" för att se resultatet.
  <%=intRequestSlumpTal%>% gav intervallet <%=intSlumpStart%>-<%=intSlumpSlut%>.
Slumpen valde siffran <%=intRandom%>.
Grattis! Positivt resultat!
  <%=intRequestSlumpTal%>% gav intervallet <%=intSlumpStart%>-<%=intSlumpSlut%>.
Slumpen valde siffran <%=intRandom%>.
Tyvärr! Negativt resultat!
  När du har valt procent. Klicka på "bullen" eller "ikonen" för att se resultatet.
<% end sub %>