<% call SK_Kopf("Altakademiker, Fortgeschrittene",2)%> <% cstrPageTitle = "Usi-Basketball aktive Spielerliste" Response.Write "" & cstrPageTitle & "" & vbCrLf %>

<% = cstrPageTitle %>

<% Dim LogVal LogVal = Session("LogVal") %> <% call menu("spielerseite")%>

<% call JW() %> <% Dim conn, strConn, strSQL, rs, objRS, Feld, WertNam, moja, qry strConn = session("sDBPfad") 'response.write (strConn) %> <% moja= Session("moja") WertNam = ("aktive Spieler: " & moja) 'Response.write(moja) 'On error resume next strSQL = "SELECT tblAdressen.lfdNr, tblAdressen.Vorname, tblAdressen.Nachname, Semester.Foto into tbl_temp" strSQl = strSQL & " FROM tblAdressen INNER JOIN Semester ON tblAdressen.lfdNr = Semester.lfdNr" strSQl = strSQL & " WHERE (((Semester.Status)=-1) AND ((Semester.Semester)Like """ & moja & """))" strSQl = strSQL & " ORDER BY tblAdressen.lfdNr;" 'Response.write(strSQL) Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(strConn) set qry= conn.execute("Drop table tbl_temp") set qry = conn.execute(strSQL) set qry = nothing conn.close set conn = nothing strSQL = "SELECT tbl_temp.Foto, ((Select Count (*) FROM [tbl_temp] as Temp WHERE (([Temp].[lfdNr] < [tbl_temp].[lfdNr])))+1) & ' - ' & [Vorname] & ' ' & [Nachname] AS Feld" strSQl = strSQL & " FROM tbl_temp;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, strConn, 0, 1 if rs.eof then Response.write("

Es wurden noch keine Spieler für das gewählten Semester " & moja & " erfasst

") %>

<% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop rs.Close strConn.close Set rs = Nothing Set strConn = Nothing %>

Foto	<% response.write(WertNam)%>
<% if len(rs.Fields("Foto").Value)>0 then %> <% end if %>	<%=Server.HTMLEncode(rs.Fields("Feld").Value)%>