Member Management Console

">Messages

<%=Application("LinkXMemberMessage")%>

" align="center">">Statistics

">Summary

">Daily Stats

">Period (User-defined)

" align="center">">Account Info

">Upload Banner

">Edit Banners

">Obtain Ad Code

">User/Site Information

<% If Application("prfViewTop10Banners")=True Then %> <% End If %> <% If Application("prfAllowCreditTransfer")=True Then %> <% End If %> <% If Application("prfSetPreferences")<>False Then %> <% End If %>

" align="center">">Exchange Information

">Top 10 Banners of all Members

">List of All Exchange Members

" align="center">">Other Options

">Transfer Credits to another site

">Preferences

">Logout

">">Email Administrator

">Help

<% If Session("LinkXUserName")="" Or Session("LinkXPassword")="" Or Session("MemberID")="" Then %> <% If Request("memUserName")<>"" And Request("memPassword")<> "" Then %> <% strSQL="Select MemberID,memUserName,memPassword From tblLinkXMembers Where memUserName='" & Replace(Request("memUserName"),"'","''") & "' AND memPassword='" & Replace(Request("memPassword"),"'","''") & "'" Set rsUser=connLinkXPro.Execute(strSQL) If not rsUser.EOF Then Session("LinkXUserName")=rsUser("memUserName") Session("LinkXPassword")=rsUser("memPassword") Session("MemberID")=rsUser("MemberID") Set rsUser=Nothing Response.Redirect "usermanagement.asp?Task=Home" Else %> <% If Request("Task")="Forgot" Then %> <%Else %> <% End If %> <% End If Set rsUser=Nothing Else %> <% If Request("Task")="Forgot" Then %> <%Else %> <% End If %> <% End If%> <% Else %> <% Select Case Request("Task")%> <% Case "","Home" %> <% Case "AdCode" %> <% Case "Banners" %> <% Case "BannersUpload" %> <% Case "BannersUpload1" %> <% Case "BannersUploadURL" %> <% Case "DailyStats" %> <% Case "PeriodStats" %> <% Case "Forgot" %> <% Case "Preferences" %> <% Case "TopTen" %> <% Case "UserInformation" %> <% Case "UpdateUserInformation" %> <% Case "ExchangeList" %> <% Case "Logout" %> <% Case "TransferCredits" %> <% End Select %> <% End If%>