<% Function CheckLogin() s_userID = left(request.form("user_name"),15) s_pass = request.form("user_pass") Set objCmd = Server.CreateObject("ADODB.Command") objCmd.CommandType = adCmdStoredProc objCmd.CommandText = "usp_LoginTeam" objcmd.Parameters.append objcmd.createparameter("@Name",advarchar,adParamInput,15,s_UserID) objcmd.Parameters.append objcmd.createparameter("@Pwd",advarchar,adParamInput,15,s_pass) objCmd.ActiveConnection = stConn set rs = objCmd.Execute Set objCmd = Nothing if err <> 0 or (rs.EOF and rs.BOF) then CheckLogin = -1 else session("userID") = rs("TeamID") session("userName") = rs("Username") CheckLogin = 0 end if stConn.close set stConn = nothing End Function %>

You must be a member of the team in order to bid in an SOS-SRF auction. If you are not and only want to see what's on offer you can click on the Browse link on the left.

<% strAction = request.form("action") if strAction = "login" then strUserName = left(request.form("user_name"),15) response.write "

Username: " & strUserName & "

" strPwd = request.form("user_pass") if strUserName = "" or strPwd = "" then response.write "Please enter both Username and Password." else %> <% if CheckLogin = 0 then session("Token") = "SOSNQAuth" response.redirect "Auction.asp" else response.write "Incorrect login, please try again." end if end if end if %>

Already on the team? Please enter your UserName and Password:

Username:
Password:    

Forgot your password?

Not a member of the team? You'll need to join if you want to participate in the SOS-SRF auctions.


Problems? Contact Maureen at leaddog@sos-srf.org

Login