<%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request.Form("LoginName"))<>"") then if (cStr(Request.Form("RememberMe"))<>"") then Response.Cookies("UserName") = cStr(Request("LoginName")) else Response.Cookies("UserName") = "" end if today = DateAdd("d",30, Date()) Response.Cookies("UserName").Expires = today end if %> <% Dim For_Login Dim For_Login_numRows Set For_Login = Server.CreateObject("ADODB.Recordset") For_Login.ActiveConnection = MM_connection2_STRING For_Login.Source = "SELECT CustomerID, LoginName, Password FROM Customers" For_Login.CursorType = 0 For_Login.CursorLocation = 2 For_Login.LockType = 1 For_Login.Open() For_Login_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("LoginName")) If MM_valUsername <> "" Then MM_fldUserAuthorization="CustomerID" MM_redirectLoginSuccess="../learn.htm" MM_redirectLoginFailed="../index.asp?failed=true" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conn2_STRING MM_rsUser.Source = "SELECT CustomerID, LoginName" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM Customers WHERE CustomerID='" & Replace(MM_valUsername,"'","''") &"' AND LoginName='" & Replace(Request.Form("Password"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And true Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Angler University - Fly Fishing Made Easy
       
 
 
Shop 'till you drop? We don't think so...
Fish 'till you drop? Now you're talking!
Part of making it easy to learn fly-fishing, is making it easy
to shop. Just point and click, and you'll be on the water in
no time.


Freshwater Open&Fish™ Outfits
You have your choice of two complete
outfits covering all freshwater locations.
From river and stream to lake and pond,
you'll be out on the water enjoying yourself
in no time!
Big Game/Salt Water Open&Fish™ Outfit
Our all-purpose saltwater outfits will get you
fly-fishing in any ocean, bay or estuary or
try your hand at Salmon/Steelhead! Go
for any gamefish from salmon, stripers to
bonefish! Purchase your outfit, log onto
lessons, go out and fish!
 
Fly-fishing Essentials

Clothing

AU Merchandise

Gift Certificates
 
Open&Fish Outfits
from $179.99


Accessories
from $1.99

 
 
Travel Cases
from $29.99
   
 
<<Back    Fly Fishing Articles     Gift Certificates     Contact Us     About Us     Forward>>
© Copyright 2003 Angler University, Inc.
<% For_Login.Close() Set For_Login = Nothing %>