% 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 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"))
%>
<% select case intUserHasProfileImage_loop3
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
<%=replace(strCommentText_loop3,"/","/ ")%>
<% countT = countT + 1
rsLoop3.MoveNext
loop
%>
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
%>
<% select case intUserHasProfileImage_1
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
<%=strUserAlias_1%>
<%=strBloggTitle_1%> (<%=intCountComments_1%>)
<% select case intUserHasProfileImage_2
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
<%=strUserAlias_2%>
<%=strBloggTitle_2%> (<%=intCountComments_2%>)
<% select case intUserHasProfileImage_3
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
<%=strUserAlias_3%>
<%=strBloggTitle_3%> (<%=intCountComments_3%>)
<% select case intUserHasProfileImage_4
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
<%=strUserAlias_4%>
<%=strBloggTitle_4%> (<%=intCountComments_4%>)
<% select case intUserHasProfileImage_5
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
<%=strUserAlias_5%>
<%=strBloggTitle_5%> (<%=intCountComments_5%>)
<% 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"))
%>
<% select case intUserHasProfileImage_loop4
case 1
%>
<% case 2 %>
<% case else %>
<% end select %>
<%=strCommentText_loop4%>
<% countT4 = countT4 + 1
rsLoop4.MoveNext
loop
%>
<% end sub %>