<%@ LANGUAGE=VBScript %> <% OPTION EXPLICIT %> <% 'Response.Buffer = true ' Response.CacheControl="no-cache" ' Response.AddHeader "Pragma","no-cache" ' Response.Expires=0 Dim StrDBPath,NewUser,vis,VSQL,StartField Dim FirstName,LastName,Email,Org,Zip,UID,DBUID,Pwd,UName,ULevel,Phone,CellPhone,EditMode Dim Title,Street,City,State,Confirm,GoToPage Const quot="""" %> <% If Request.QueryString("Reg")<>"" OR Request.QueryString("UID")<>"" Then StartField = "Login.First" Else StartField = "RegLogin.UserID" End If %>

Get Access

<% NewUser = vbTrue EditMode = vbFalse Confirm = vbFalse If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Process login StrDBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/video/db/mbvideo.mdb") set vis=Server.CreateObject("adodb.Recordset") If Request("ButReg") <> "" Then If Len(Trim(Request("Email"))) > 2 Then VSQL = "SELECT * FROM Users WHERE Email ='" & Trim(Request("Email")) & "'" vis.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText If NOT vis.EOF Then 'Email Name already registered NewUser = vbFalse %>

Email <%=vis("Email")%> is already registered. <% End If vis.Close End If VSQL = "SELECT * FROM Users WHERE UserID ='" & Trim(Request("UserID")) & "'" vis.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText If NOT vis.EOF Then 'User ID already registered NewUser = vbFalse %>

User ID <%=vis("UserID")%> is already registered. <% End If vis.Close If NewUser Then VSQL = "SELECT * FROM Users WHERE 0=1" vis.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText Response.Write VSQL vis.AddNew vis("UserID") = Trim(Request("UserID")) vis("Pwd") = Trim(Request("Pwd")) vis("UserLevel") = 10 vis("FirstName") = Trim(Request("First")) vis("LastName") = Trim(Request("Last")) vis("Title") = Trim(Request("Title")) vis("Street") = Trim(Request("Street")) vis("City") = Trim(Request("City")) vis("State") = Trim(Request("State")) vis("Zip") = Trim(Request("Zip")) vis("Email") = Trim(Request("Email")) vis("Org") = Trim(Request("Org")) vis("LastLogin") = Now() vis.Update UID = vis("UserID") Pwd = vis("Pwd") Email = vis("Email") Session("UserID")= vis("UserID") Session("DBUserID")= vis("DBUserID") Session("UserLevel")= vis("UserLevel") Session("UserFirst") = vis("FirstName") Session("UserLast") = vis("LastName") vis.close Confirm=vbTrue End If set vis=nothing ElseIf Request("ButUpd") <> "" Then 'Updating user info VSQL="SELECT * FROM Users WHERE DBUserID=" & Request("DBUID") vis.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText If Session("UserLevel") <> 1 Then vis("UserID") = Session("UserID") Else vis("UserID") = Trim(Request("UserID")) vis("Pwd") = Trim(Request("Pwd")) If IsNumeric(Trim(Request("UserLevel"))) Then vis("UserLevel") = CInt(Request("UserLevel")) vis("FirstName") = Trim(Request("First")) vis("LastName") = Trim(Request("Last")) vis("Title") = Trim(Request("Title")) vis("Street") = Trim(Request("Street")) vis("City") = Trim(Request("City")) vis("State") = Trim(Request("State")) vis("Zip") = Trim(Request("Zip")) vis("Email") = Trim(Request("Email")) vis("Org") = Trim(Request("Org")) vis("WorkPhone") = Request("Phone") vis("CellPhone") = Request("CellPhone") vis.Update Confirm = vbTrue 'Response.Write "Confirm: " & Confirm & " " & NewUser FirstName = vis("FirstName") LastName = vis("LastName") Email = vis("Email") Org = vis("Org") Title = vis("Title") Street = vis("Street") City = vis("City") State = vis("State") Zip = vis("Zip") UID = vis("UserID") DBUID = vis("DBUserID") Pwd = vis("Pwd") ULevel = vis("UserLevel") Phone = vis("WorkPhone") CellPhone = vis("CellPhone") vis.Close End If 'Registering If NOT Confirm Then 'Existing user logging in 'Response.Write vis.State VSQL="SELECT * FROM UserInfo WHERE UserID='" & Request("UserID") & "' ORDER BY GroupLevel" vis.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText 'Response.write "
You: " & request("userid") & " " & request("password") & " -- " & "DB: " & vis("userid") & " " & vis("pwd") If NOT vis.EOF Then 'User found If vis("Pwd") = Request("password") then Session("UserID") = vis("UserID") Session("DBUserID") = vis("DBUserID") Session("UserLevel") = vis("UserLevel") Session("UserFirst") = vis("FirstName") Session("UserLast") = vis("LastName") Session("Group") = vis("GroupName") Session("GroupLevel") = vis("GroupLevel") If vis("UserLevel") <= 3 Then Session.Timeout = 60 If vis("UserLevel") <= 3 Then Server.ScriptTimeout = 1200 vis("LastLogin") = Now() 'Response.write "Level: " & session("userlevel") vis.Update vis.Close 'Response.Write vis.State 'Response.Write "Last: " & Session("LastPage") set vis=nothing LogIt("Login") If Session("UserLevel") <= 3 Then Response.Redirect("http://www.ManhattanBureau.com/desklog.asp") ElseIf Len(Session("LastPage")) <= 3 Then Response.Redirect("http://www.ManhattanBureau.com/video/screening.asp") Else 'Response.Write "Last Page: " & (Session("LastPage")) Response.Redirect(Session("LastPage")) 'GoToPage = "http://manhat.intranets.com/" & Session("LastPage")' & " target=" & quot & "in_body" & quot %> <% End If Else %>

Incorrect password for User ID: <%=Request("UserID")%>
Remember, your password is case sensitive.
If you forgot your password, &Name=<%=vis("FirstName")%>">click here.

<% End If Else Response.Write "

UserId: " & Request("UserID") & " not found

" End If vis.close set vis=nothing End If FirstName = Request("First") LastName = Request("Last") Email = Request("Email") Org = Request("Org") Zip = Request("Zip") UID = Request("UserID") Pwd = Request("Pwd") UName = Request("UserName") Phone = Request("Phone") CellPhone = Request("CellPhone") ElseIf Request.QueryString("UID") > 0 Then 'Editing user info EditMode = vbTrue NewUser = vbFalse StrDBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/video/db/mbvideo.mdb") set vis=Server.CreateObject("adodb.Recordset") VSQL="SELECT * FROM UserInfo WHERE DBUserID=" & Request.QueryString("UID") vis.Open VSQL,strDBPath,adOpenKeyset, adLockPessimistic, adCmdText If NOT vis.EOF AND (Session("DBUserID") = vis("DBUserID") OR Session("UserLevel") = 1) Then FirstName = vis("FirstName") LastName = vis("LastName") Title = vis("Title") Street = vis("Street") City = vis("City") State = vis("State") Zip = vis("Zip") Email = vis("Email") Org = vis("Org") UID = vis("UserID") Pwd = vis("Pwd") ULevel = vis("UserLevel") Phone = vis("WorkPhone") CellPhone = vis("CellPhone") End If vis.Close End If 'Processing form %> <% If Request.QueryString("Reg") = 1 OR Confirm OR Request.QueryString("UID") > 0 OR NOT NewUser Then %> <% 'Response.Write "
Session: " & Session("DBUserID") & " Lev: " & Session("UserLevel") If Session("UserLevel")=Admins OR (Request.QueryString("UID") = CStr(Session("DBUserID"))) Then %>

Registration Info For <%=Session("UserID")%>

<% ElseIf Confirm Then %>

You are now logged in as <%=Session("UserID")%>

<% Else %>

New User Registration

<% End If %> <% If Confirm Then 'Confirm record update %>

Name:	<%=FirstName & " " & LastName%>
UserID:	<%=UID%>
Pwd:	<%=Pwd%>
Title:	<%=Title%>
Company:	<%=Org%>
Address:	<%=Street & " " & City & ", " & State & " " & Zip%>
Email:	<%=Email%>
Phone:	<%=Phone%>
Cell:	<%=CellPhone%>

<% If Session("GroupLevel") > 0 Then %>

">Edit My Info

<% End If %> <% Else 'Not confirming a record update so display form %>

Only fields with a * are required.

<% If NewUser OR Session("UserLevel") = 1 Then %> <% Else %> <% End If %>

*First Name

*Last Name

*Email Address

*Company

*Title

Street

City State Zip

*Phone

Cell Phone

*User ID

Name you will use to login to Manhattan Bureau

*Password

Case sensitive

" name="<%If EditMode Then Response.Write "ButUpd" Else Response.Write "ButReg"%>">

<% End If 'Not confirming an update %>

<% Else 'Existing user login %>


	Headline
		The Manhattan Bureau Accelerates VNR Review Process The Manhattan Bureau website now features an online review process. Clients can get secure access to their videos from any web browser.

Home

About

Contact

News Room

Screening

Portfolio