<%@ Language=VBScript %> <%OrderBy = Request.QueryString("sort")%> <%if _ OrderBy <> "forum" and _ OrderBy <> "namn" and _ OrderBy <> "email" and _ OrderBy <> "ar" and _ OrderBy <> "farg" and _ OrderBy <> "stad" and _ OrderBy <> "bilder" and _ OrderBy <> "hemsida" _ then OrderBy = "id" _ end if%> <%if OrderBy = "forum" then OrderBy = "forum, id" end if%> <%if OrderBy = "bilder" then OrderBy = "bilder desc, id" end if%> <%if OrderBy = "hemsida" then OrderBy = "hemsida desc" end if%> <%if OrderBy = "ar" then OrderBy = "ar, farg" end if%> <%if OrderBy = "farg" then OrderBy = "farg, ar" end if%> <% MyConn.Open connectme SQLText = "SELECT count(*) AS antal FROM medlem WHERE status <> '1980-01-01' " rs.Open SQLText, MyConn antal = rs.fields("antal") MyConn.Close MyConn.Open connectme SQLText = "SELECT t1.id, t1.namn, t1.email, t1.ar, t1.farg, t1.stad, t1.hemsida, t1.bilder, t2.username, IF(t1.forumid<>0,lower(t2.username),'˙') AS forum " & _ "FROM medlem AS t1 LEFT JOIN barchetta3_users AS t2 ON t1.forumid = t2.user_id " & _ "WHERE status <> '1980-01-01' " & _ "ORDER BY " & OrderBy & " LIMIT 1000 " rs.Open SQLText, MyConn %> <% farg1namn = "Gul" farg2namn = "Röd" farg3namn = "Blå" farg4namn = "Silver" farg5namn = "Grön" farg6namn = "Orange" farg7namn = "Svart" farg255namn = "?" %> Team barchetta Swedens medlemmar
<%bgcount = 0%> <%Do while not rs.EOF%> <%if rs.fields("ar") = 255 then%> <%else%> <%end if%> <%fargnamn = "?"%> <%if rs.fields("farg") = 1 then fargnamn = farg1namn end if%> <%if rs.fields("farg") = 2 then fargnamn = farg2namn end if%> <%if rs.fields("farg") = 3 then fargnamn = farg3namn end if%> <%if rs.fields("farg") = 4 then fargnamn = farg4namn end if%> <%if rs.fields("farg") = 5 then fargnamn = farg5namn end if%> <%if rs.fields("farg") = 6 then fargnamn = farg6namn end if%> <%if rs.fields("farg") = 7 then fargnamn = farg7namn end if%> <%if rs.fields("farg") = 255 then fargnamn =farg255namn end if%> <%if bgcount = 1 then bgcount = 0 else bgcount = 1 end if%> <%rs.MoveNext :Loop %>
Medlemmar (<%=antal%> st sorterade på "<%=OrderBy%>") <%=Date()%>
Id Forum Namn Årsmodell   Färg   Stad   Depå  Hemsida
"><%=rs.fields("id")%>. "><%=rs.fields("username")%> "> <%if len(rs.fields("email")) > 100 then %> " onFocus="if(this.blur)this.blur()"><%=rs.fields("namn")%> <%else%> <%=rs.fields("namn")%> <%end if%> ">"><%=1995 + rs.fields("ar")%> "><%=fargnamn%>  "><%=rs.fields("stad")%> "> <%if rs.fields("bilder") > 0 then %> " onFocus="if(this.blur)this.blur()"><%=rs.fields( bilder" border="0" height="10" src="bilder/camera.gif" width="13"> <%=rs.fields("bilder")%> <%else%> " onFocus="if(this.blur)this.blur()"><%=rs.fields( bilder" border="0" src="bilder/pil_hoger_5x9.gif"> <%end if%> ">   <%if len(rs.fields("hemsida")) > 0 then %> " target="_blank" onFocus="if(this.blur)this.blur()">hemsida <%else%>   <%end if%>
Id Forum Namn Årsmodell Färg Stad Depå  Hemsida