Ad Group Members Area

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim mEmail 'As String Dim mPW 'As String Dim bLocal bLocal = False '------------------------- ' Sub Main ' ' All processing in the page starts here '------------------------- Sub Main() Dim strAction 'As String if Request.Cookies("MemberID") <> "" then Response.Redirect("http://www.nowyouaretalking.com/members/index.htm") end if strAction = Request("action") if strAction = ACTION_VALIDATE then Validate else Display "" end if End Sub '--------------------------- ' Sub Display ' ' If this isn't the validation run and the user isn't logged in ' then display the form and get/set the login info '--------------------------- Sub Display(strError) %> Ad Group Members Area

Members Only Area

This area of the website is reserved for our Team Members. Team Members looking for tips, tricks, help, recipes, mentoring or whitepapers, you have come to the right place. We understand no woman (or man) is an island, so here, we all stand together. We have assembled a lot of information on marketing, promoting, selling, and other activities designed to help you be as successful as possible.
<% if strError <> "" then %> <%= strError %> <% end if %>

Member Login

To gain access to the member's only section, you must login. Enter your email address and password below and click Let Me In!

<% End Sub '---------------------------- ' Sub Validate ' ' This routine determines of the user name exists in the database and if so, ' creates a cookie to indicate that the user has logged in. The cookie is temporary ' and will disappear when the browser shuts down. If the user is not valid ' the browser goes to the "profile" page so the user can create a new profile. '---------------------------- Sub Validate() Dim adoCon 'As ADOConnection Dim cmdQuery 'As ADOCommand Dim rsMember 'As ADORecordSet txtEmail = Request.Form("txtEmail") txtPassword = Request.Form("txtPassword") On Error Resume Next Set adoCon = OpenDB(bLocal) Set cmdQuery = Server.CreateObject("ADODB.Command") Set cmdQuery.ActiveConnection = adoCon cmdQuery.CommandText = "SELECT * FROM Members WHERE Email = '" & txtEmail & "' ORDER BY Name" Set rsMember = cmdQuery.Execute() '[ Get Member info if (rsMember.bof) and (rsMember.eof) then Response.Write("NO Records Returned!") end if if Err.Number <> 0 then CloseDB adoCon Display "Member Login Email Address Not Found. Please Try Again" elseif rsMember("Password") <> txtPassword then CloseDB adoCon Display "Password is incorrect. Please Try Again" else CreateMemberCookie(rsMember) Response.Redirect("http://www.nowyouaretalking.com/members/index.htm") end if End Sub '----------------------------- ' Sub Main ' ' This routine starts page processing '----------------------------- Call Main %>