<%@ Language=VBScript %> <% rem check for page refresh IF Session("Valid") = "YES" THEN Response.Redirect("ClubsSelectSwitch.asp") ELSE If Session("LanguageNo") <> "" Then %> Sign On <% TheLanguageNo = Session("LanguageNo") %>

<%If Session("CurrentError") <> "" Then Response.Write Session("CurrentError") Response.Write "
" Response.Write "
" Session("CurrentError") = "" Else End If %> <%=LngStr(2,62)%>

<%=LngStr(2,15)%><%'Account%> : " name=Account>
<%=LngStr(2,16)%><%'User%> : " name=User>
<%=LngStr(2,35)%><%'Password%> :
      " name=LatestLanguage> " name=Activity> "name=Logo>

Clubs V1.01   <%=LngStr(2,19)%>   2006-06-01

<% Dim ImageFileObject, ImageFile, ImageFileSize Set ImageFileObject = Server.CreateObject("Scripting.FileSystemObject") Image = Session("Account") & "_sponsor1.jpg" ImageLocation = "images/" & Image IF ImageFileObject.FileExists(ImageLocation) THEN Session("Sponsor1Image") = Image ELSE Session("Sponsor1Image") = "" END IF Image = Session("Account") & "_sponsor2.jpg" ImageLocation = "images/" & Image IF ImageFileObject.FileExists(ImageLocation) THEN Session("Sponsor2Image") = Image ELSE Session("Sponsor2Image") = "" END IF Image = Session("Account") & "_sponsor3.jpg" ImageLocation = "images/" & Image IF ImageFileObject.FileExists(ImageLocation) THEN Session("Sponsor3Image") = Image ELSE Session("Sponsor3Image") = "" END IF Image = Session("Account") & "_sponsor4.jpg" ImageLocation = "images/" & Image IF ImageFileObject.FileExists(ImageLocation) THEN Session("Sponsor4Image") = Image ELSE Session("Sponsor4Image") = "" END IF %>
<%If Session("Sponsor1Image") <> "" Then%> " width="250" height="100"> <%Else%>   <%End If%> <%If Session("Sponsor2Image") <> "" Then%> " width="250" height="100"> <%Else%>   <%End If%> <%If Session("Sponsor3Image") <> "" Then%> " width="250" height="100"> <%Else%>   <%End If%> <%If Session("Sponsor4Image") <> "" Then%> " width="250" height="100"> <%Else%>   <%End If%>
<% Else 'Invalid Session or time out %> <% End If END IF %>