<%@ Language=VBScript %>
<%
Dim fid
fid = Replace(Request("f"), " ", "")
If fid = "" Then fid = "-1"
%>
<%= strBasTitel %>
<%
Dim sfid, strSort, strType
strSort = Request("sort")
strType = Request("type")
For Each sfid In Split(fid, ",")
Response.Write getRegistrationList(sfid, strSort, strType)
Next
%>