<% Session("strMsg") = "" Set cn = Server.CreateObject("ADODB.Connection") %> <% if Len(request.form)>0 Then UserID = Request.Form("ft_UserID") Password = Request.Form("ft_Password") HasedPassword = b64_sha256(Password) Set rs = cn.execute("EXEC uspGetFootyTippingLogin '" & SafeSQLValue(UserID) & "','" & SafeSQLValue(HasedPassword) & "'") If rs.EOF Then Session("strMsg") = "Incorrect Login. Please try again." else If rs.Fields("colPasswordChangeRequired") = 1 Then Session("FootyTippingPasswordChangeRequired") = 1 Session("FootyTippingPasswordChangeRequiredUserID") = rs.Fields("colFootyTippingID") Session("FootyTippingPasswordChangeRequiredUserLogin") = rs.Fields("colFootyTippingUserID") response.redirect "FootyTippingPasswordUpdate.asp" End If Session("FootyTippingID") = rs.Fields("colFootyTippingID") 'Get Round from most recent switched ON round If rs.Fields("colFootyTippingState") = "VIC" Then GameType = "AFL" Else GameType = "NRL" End If sql = "SELECT colFootyTippingRound FROM tblFootyTippingRoundSwitch WHERE colFootyTippingGameType='" & GameType & "'" sql = sql & " AND colFootyTippingRoundSwitch = 1 ORDER BY colFootyTippingRound" Set rsRound = cn.execute(sql) If not rsRound.EOF Then Session("Round") = rsRound.Fields("colFootyTippingRound") Else Session("Round") = 1 End If rsRound.close Set rsRound = nothing rs.close Set rs = nothing cn.close Set cn = nothing response.redirect "FootyTippingResults.asp" end if Else Session("strMsg") = "" End If %>

AMM Footy Tipping

Login - Simply fill out your Footy Tipping User ID and Password to login.

<% If Session("strMsg") <> "" Then %>
0 Then %>success<% Else %>notification<% End If %>" style="text-align: left;"> <%=Session("strMsg")%> <% Session("strMsg") = "" %>
<% End If %>

<% cn.close Set cn = nothing %>