<%@ LANGUAGE="VBSCRIPT" %> <% '#################################### '## Application: Blue-Collar Productions '## File Name: login.asp '## File Version: 3.0 '## Copyright: This code is copyrighted and has limited warranties. Please see http://www.b-cp.com for details. '#################################### %> <% Dim redirecturl redirecturl = Request.Querystring("redirecturl") strtestun = "

" strtestpw = "

" If Request("field") = "both" Then strerrortext = "The User Name and Password fields are empty!" strtestun = "

" strtestpw = "

" ElseIf Request("field") = "name" Then strerrortext = "The Username field was left empty!" strtestun = "

" strtestpw = "

" ElseIf Request("field") = "password" Then strerrortext = "The Password field was left empty!" strtestun = "

" strtestpw = "

" ElseIf Request("field") = "nof" Then strerrortext = "Sign In Information is not on file!" strtestun = "

" strtestpw = "

" ElseIf Request("field") = "exp" Then strerrortext = "Account Expired! Contact Site Administrator." strtestun = "

" strtestpw = "

" ElseIf Session("userLevel") Then strerrortext = "Not Authorized To View Selected Content!" strtestun = "

" strtestpw = "

" ElseIf Request("field") = "na" Then strerrortext = "Authorization Required!" strtestun = "

" strtestpw = "

" End If fn = Request.Cookies("rememberuser")("username") ln = Request.Cookies("rememberuser")("password") rm = Request.Cookies("rememberuser")("yesno") response.cookies("forgot").Expires=Date-1 %>

<% opsys = Request.ServerVariables("HTTP_USER_AGENT") If Instr(opsys, "NT 5.1") then usersys = true %>

User Name:

<%= strtestun %>

Password:

<%= strtestpw %>

Remember Me:

Password Reminder || Register

Philanthropy

Inspiration

Two Tigers In Service volunteers prepare a meal at the soup kitchen.

Tell us how you are making a difference in your community and how we as a family can help. Whether it be from donating money to circulating literature to starting programs. Click Here>