<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT SITE.* FROM SITE WHERE SITE_KEY = " & CID & " AND SITE_UKEY = " & CUID
rs.Open sql, conn,1,1
'rs.movefirst
'rs.movelast
'response.write(rs.recordcount)
'response.write(sql)
if rs.recordcount = 0 then
rs.close
sql= "SELECT SITE.* FROM SITE WHERE SITE_KEY = " & "0"
'response.write(sql)
rs.Open sql, conn
end if
umlaute(rs.fields("SITE_TEXT"))
CBOX = rs.fields("SITE_BOX")
response.write("")
%>
<%
if isnull(rs.fields("SITE_TEXT")) then
if CID = 50 and CUID = 0 then
%>
<%
end if
if CID = 40 then
%>
<%
end if
if CID = 60 and CUID = 0 then
%>
<%
end if
if CID = 60 and CUID = 1 then
%>
<%
end if
end if
rs.close
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT BOX.* FROM BOX WHERE BOX_KEY = " & CBOX & " ORDER BY BOX_SORT"
rs.Open sql, conn,1,1
if rs.recordcount = 0 then
rs.Close
sql= "SELECT BOX.* FROM BOX WHERE BOX_KEY = " & "10" & " ORDER BY BOX_SORT"
rs.Open sql, conn
end if
if rs.recordcount <> 0 then
%>
<%
rs.movefirst
do while not rs.eof
%>
<%
end if
rs.close
%>
<%response.write(rs.fields("BOX_TITLE"))%>
<%umlaute(rs.fields("BOX_TEXT"))%>
<%
rs.movenext
i = i + 1
if i > 100 then exit do
loop
%>