<%@ language=vbscript %> <% dim bn SQL = "SELECT * FROM erfolge WHERE Vorname='" & ID1 & "' and Nachname='" & ID2 & "' ORDER BY Jahr DESC;" DBCON.OPEN DBSTR1 RS.OPEN SQL, DBCON %> Erfolge von <%=ID1 & " " & ID2%> <% DIM FileEX, FileSource SET FileEX = Server.CreateObject("Scripting.FileSystemObject") %>
Erfolge von:
<%=ID1 & " " & ID2%>		 <% FileSource = Server.MapPath("images/mitglieder/" & ID3 & ".jpg") if FileEx.FileExists( FileSource ) then response.write("") else response.write("") end if%>
<%IF RS.EOF THEN%> <%RS.CLOSE DBCON.CLOSE SQL = "" ELSE DO WHILE NOT RS.EOF%> <%RS.MOVENEXT LOOP%>
Zurzeit keine Erfolge registriert
<%=RS("Jahr")%> <%=RS("Rang")%> <%=RS("Ueberschrift")%> <%=RS("Kategorie")%> <%=RS("Disziplin")%>
<% RS.CLOSE DBCON.CLOSE SQL = "" END IF %>