<% option Explicit 'include: Use the file keyword to indicate a relative path %>

<% If bNewAccount Then %> <% ElseIf ThisRequest = "Teilnehmer" then If bLogin then %> <% Else %><% End If Response.Write " " Response.Write GetUserAnmeldungen %> <% ElseIf ThisRequest = "Gewinner" then If bLogin then %> <% Else %><% End If Response.Write " " Response.Write GetGewinner %> <% ElseIf ThisRequest = "Pension" then If bLogin then %> <% Else %><% End If Response.Write " " %><% %> <% ElseIf ThisRequest = "Touren" then If bLogin then %> <% Else %><% End If Response.Write " " %> <% ElseIf ThisRequest = "Sponsoren" then If bLogin then %> <% Else %><% End If Response.Write " " %> <% ElseIf bSendPwd then %> <% Elseif ThisRequest = "infos" then %> <% ElseIf bLogin = False then %> <% Elseif ThisRequest = "NoTable" Then %> <% Elseif ThisRequest = "haftung" Then %> <% ElseIf ThisRequest = "Save" and bSave then%> <% Response.Write AnmeldungKostenString %> <% ElseIf ThisRequest = "Konto" then%> <% Response.Write AnmeldungKostenString %> <% Elseif ThisRequest = "tshirt" then %> <%else%> <%End If%>

© nairolF

<% 'Daten aufräumen set rs = nothing cn.Close set cn = Nothing %>