<% 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 showHeader() %>
<% call showMenu() %>
<% call mainPage() %>
<% call showBottom() %>
<% sub mainPage() %>
<% select case intUserHasProfileImage_DB case 1 %> <% case 2 %> <% case else %> <% end select %>
<%=strUserAlias_DB%><%=strUserAlias_DB%><%=strUserAlias_DB%>
<%=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 %> <% else %> <% end if %> <% if 1=2 then %> <% if intAntalKlonkar = 0 then %> <% else %> <% end if %> <% if intAntalBad = 0 then %> <% else %> <% end if %> <% end if %> <% if session("userID") = 1 then %> <% end if %>
<%=strUserAlias_DB%> har ännu inte skrivit någon blogg...
<%=strBloggTitle_blogg%>
<%=strBlogg_blogg%>
Se alla bloggar -->
<%=strUserAlias_DB%> har ännu inte rapporterat om någon klonk...
<%=strCommentText_klonk%>
Gå till klonk-sidan -->
<%=strUserAlias_DB%> har ännu inte rapporterat någon bad beat...
<%=strCommentText_bad%>
Gå till bad beats-sidan -->
[RADERA ANVÄNDARE]
<% if intAntalTjatter = 0 then %> <% else %> <% 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 %> <% countLoop1 = countLoop1 + 1 rsLoop1.MoveNext loop %> <% end if %>
<%=strUserAlias_DB%> har ännu inte tjattrat någonting...
<%=strUserAlias_DB%> har tjattrat <%=intAntalTjatter%> gånger...
- - -
<%=strCommentText_loop1%>
<% end sub %>