% option explicit
response.buffer = true
Session.LCID = 1041
%>
<% dim thePageTitle, thePageName, thePageNameLinks
thePageTitle = "LOGIN"
thePageName = "login_doLogin_1.asp¤"&replace(request.querystring,"&","|")
thePageNameLinks = "login_doLogin_1.asp"
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 intRequestUserID
intRequestUserID = int(request("userID"))
'response.write "intRequestUserID = " &intRequestUserID& "
"
dim sql, rs
sql = "SELECT "
sql = sql & "U.userID, "
sql = sql & "U.userCity, "
sql = sql & "U.userAlias, "
sql = sql & "U.userDescription, "
sql = sql & "U.countBloggs, "
sql = sql & "U.bloggPoints, "
sql = sql & "U.totalNumberOfComments, "
sql = sql & "U.userProfileImage, "
sql = sql & "U.userHasProfileImage "
sql = sql & "FROM tbl_user U "
sql = sql & "WHERE U.userID = "&intRequestUserID&";"
'response.write sqlLoop1
set rs = conn.execute(sql)
dim intUserID_DB, strUserCity_DB, strUserAlias_DB
dim strUserDescription_DB, intCountBloggs_DB
dim intBloggPoints_DB, intTotalNumberOfComments_DB
dim strUserProfileImage_DB, intUserHasProfileImage_DB
intUserID_DB = int(rs("userID"))
strUserCity_DB = trim(rs("userCity"))
strUserAlias_DB = trim(rs("userAlias"))
strUserDescription_DB = trim(rs("userDescription"))
intCountBloggs_DB = int(rs("countBloggs"))
intBloggPoints_DB = int(rs("bloggPoints"))
intTotalNumberOfComments_DB = int(rs("totalNumberOfComments"))
strUserProfileImage_DB = trim(rs("userProfileImage"))
intUserHasProfileImage_DB = int(rs("userHasProfileImage"))
sql = "SELECT COUNT(*) AS antal "
sql = sql & "FROM tbl_blogg "
sql = sql & "WHERE "
sql = sql & "userID = "&intRequestUserID&";"
set rs = conn.execute(sql)
dim intAntalBloggar
intAntalBloggar = cint(rs("antal"))
'response.write "intAntalBloggar = " &intAntalBloggar& "
"
if intAntalBloggar <> 0 then
sql = "SELECT "
sql = sql & "B.bloggID, "
sql = sql & "B.bloggTitle, "
sql = sql & "B.blogg, "
sql = sql & "B.countComments "
sql = sql & "FROM tbl_blogg B "
sql = sql & "WHERE "
sql = sql & "B.userID = "&intRequestUserID&" "
sql = sql & "ORDER BY B.bloggID DESC LIMIT 1"
set rs = conn.execute(sql)
dim intBloggID_blogg, strBloggTitle_blogg, strBlogg_blogg, intCountComments_blogg
dim lenBloggText
intBloggID_blogg = int(rs("bloggID"))
strBloggTitle_blogg = trim(rs("bloggTitle"))
strBloggTitle_blogg = replace(strBloggTitle_blogg,"/","/ ")
strBlogg_blogg = rs("blogg")
lenBloggText = len(strBlogg_blogg)
strBlogg_blogg = left(strBlogg_blogg,120)
strBlogg_blogg = replace(strBlogg_blogg,"¤"," ")
if lenBloggText > 120 then
strBlogg_blogg = strBlogg_blogg & "..."
end if
intCountComments_blogg = int(rs("countComments"))
end if
sql = "SELECT COUNT(*) AS antal "
sql = sql & "FROM tbl_planketHasComments "
sql = sql & "WHERE "
sql = sql & "hasBeenDeleted = 0 "
sql = sql & "AND "
sql = sql & "planketID = 4 "
sql = sql & "AND "
sql = sql & "userID = "&intRequestUserID&" "
set rs = conn.execute(sql)
dim intAntalKlonkar
intAntalKlonkar = cint(rs("antal"))
'response.write "intAntalKlonkar = " &intAntalKlonkar& "
"
if intAntalKlonkar <> 0 then
sql = "SELECT "
sql = sql & "P.planketHasCommentID, "
sql = sql & "P.commentText "
sql = sql & "FROM tbl_planketHasComments P "
sql = sql & "WHERE "
sql = sql & "P.hasBeenDeleted = 0 "
sql = sql & "AND "
sql = sql & "P.planketID = 4 "
sql = sql & "AND "
sql = sql & "P.userID = "&intRequestUserID&" "
sql = sql & "ORDER BY P.datumNow DESC "
sql = sql & "LIMIT 1 "
set rs = conn.execute(sql)
dim intPlanketHasCommentID_klonk, strCommentText_klonk
dim lenCommentText_klonk
intPlanketHasCommentID_klonk = int(rs("planketHasCommentID"))
strCommentText_klonk = trim(rs("commentText"))
strCommentText_klonk = left(strCommentText_klonk,120)
strCommentText_klonk = replace(strCommentText_klonk,"¤"," ")
if len(strCommentText_klonk) > 120 then
strCommentText_klonk = strCommentText_klonk & "..."
end if
end if
sql = "SELECT COUNT(*) AS antal "
sql = sql & "FROM tbl_planketHasComments P "
sql = sql & "WHERE "
sql = sql & "hasBeenDeleted = 0 "
sql = sql & "AND "
sql = sql & "planketID = 3 "
sql = sql & "AND "
sql = sql & "userID = "&intRequestUserID&" "
set rs = conn.execute(sql)
dim intAntalBad
intAntalBad = cint(rs("antal"))
'response.write "intAntalBad = " &intAntalBad& "
"
if intAntalBad <> 0 then
sql = "SELECT "
sql = sql & "P.planketHasCommentID, "
sql = sql & "P.commentText "
sql = sql & "FROM tbl_planketHasComments P "
sql = sql & "WHERE "
sql = sql & "P.hasBeenDeleted = 0 "
sql = sql & "AND "
sql = sql & "P.planketID = 3 "
sql = sql & "AND "
sql = sql & "P.userID = "&intRequestUserID&" "
sql = sql & "ORDER BY P.datumNow DESC "
sql = sql & "LIMIT 1 "
set rs = conn.execute(sql)
dim intPlanketHasCommentID_bad, strCommentText_bad
dim lenCommentText_bad
intPlanketHasCommentID_bad = int(rs("planketHasCommentID"))
strCommentText_bad = trim(rs("commentText"))
strCommentText_bad = left(strCommentText_bad,120)
strCommentText_bad = replace(strCommentText_bad,"¤"," ")
if len(strCommentText_bad) > 120 then
strCommentText_bad = strCommentText_bad & "..."
end if
end if
sql = "SELECT COUNT(*) AS antal "
sql = sql & "FROM tbl_tjattraHasComment "
sql = sql & "WHERE "
sql = sql & "hasBeenDeleted = 0 "
sql = sql & "AND "
sql = sql & "userID = "&intRequestUserID&" "
set rs = conn.execute(sql)
dim intAntalTjatter
intAntalTjatter = cint(rs("antal"))
'response.write "intAntalTjatter = " &intAntalTjatter& "
"
if intAntalTjatter <> 0 then
dim sqlLoop1, rsLoop1
sqlLoop1 = "SELECT "
sqlLoop1 = sqlLoop1 & "tjattraHasCommentID, "
sqlLoop1 = sqlLoop1 & "commentText "
sqlLoop1 = sqlLoop1 & "FROM tbl_tjattraHasComment "
sqlLoop1 = sqlLoop1 & "WHERE "
sqlLoop1 = sqlLoop1 & "hasBeenDeleted = 0 "
sqlLoop1 = sqlLoop1 & "AND "
sqlLoop1 = sqlLoop1 & "userID = "&intRequestUserID&" "
sqlLoop1 = sqlLoop1 & "ORDER BY tjattraHasCommentID DESC LIMIT 5"
set rsLoop1 = conn.execute(sqlLoop1)
dim intTjattraHasCommentID_loop1, strCommentText_loop1, lenCommentText_loop1
end if
' 48 = user_showProfile.asp
call countClickPage(48, strUserID_donRollo)
%>
www.donRollo.se
|
<% call showLogin() %>
|
|
|
|
|
<% call showMenu() %> |
|
<% call mainPage() %> |
|
|
<% call showBottom() %> |
<% sub mainPage() %>
|
|
|
|
|
|
|
|
|
|
|
<% select case intUserHasProfileImage_DB
case 1
%>
|
<% case 2 %>
|
<% case else %>
|
<% end select %>
|
<%=strUserDescription_DB%> |
|
Alias: |
<%=strUserAlias_DB%> |
|
Stad: |
<%=strUserCity_DB%> |
|
Antal bloggar: |
<%=intCountBloggs_DB%> st |
|
Bloggpoäng: |
<%=intBloggPoints_DB%> st |
|
Kommentarer: |
<%=intTotalNumberOfComments_DB%> st |
|
|
|
|
|
|
<% if intAntalBloggar = 0 then %>
<%=strUserAlias_DB%> har ännu inte skrivit någon blogg... |
<% else %>
<%=strBloggTitle_blogg%> |
|
<%=strBlogg_blogg%> |
|
|
<% end if %>
|
<% if 1=2 then %>
|
|
<% if intAntalKlonkar = 0 then %>
<%=strUserAlias_DB%> har ännu inte rapporterat om någon klonk... |
<% else %>
<%=strCommentText_klonk%> |
|
|
<% end if %>
|
|
|
<% if intAntalBad = 0 then %>
<%=strUserAlias_DB%> har ännu inte rapporterat någon bad beat... |
<% else %>
<%=strCommentText_bad%> |
|
|
<% end if %>
<% end if %>
<% if session("userID") = 1 then %>
[RADERA ANVÄNDARE] |
<% end if %>
|
|
|
|
|
|
<% if intAntalTjatter = 0 then %>
<%=strUserAlias_DB%> har ännu inte tjattrat någonting... |
<% else %>
<%=strUserAlias_DB%> har tjattrat <%=intAntalTjatter%> gånger... |
|
<% end if %>
<% if intAntalTjatter <> 0 then %>
<% dim countLoop1 : countLoop1 = 1
do until rsLoop1.EOF
intTjattraHasCommentID_loop1 = int(rsLoop1("tjattraHasCommentID"))
strCommentText_loop1 = trim(rsLoop1("commentText"))
lenCommentText_loop1 = len(strCommentText_loop1)
if lenCommentText_loop1 > 100 then
strCommentText_loop1 = left(strCommentText_loop1,100) & "..."
else
strCommentText_loop1 = left(strCommentText_loop1,100)
end if
strCommentText_loop1 = replace(strCommentText_loop1,"/","/ ")
strCommentText_loop1 = replace(strCommentText_loop1,"¤"," ")
%>
<% if countLoop1 <> 1 then %>
|
- - - |
|
<% end if %>
<%=strCommentText_loop1%> |
<% countLoop1 = countLoop1 + 1
rsLoop1.MoveNext
loop
%>
<% end if %>
|
|
|
|
|
|
<% end sub %>