<%@ Language="VBScript" %>
<%
Session.Timeout=80
%>
<%
Dim objConn
Dim objRS
if NOT isempty(Request.Form("Submit")) then
set objconn = server.createobject ("adodb.connection")
objConn.ConnectionString = "DSN=WebReviews"
objConn.Open
set objRS = objconn.Execute("SELECT webtblReviewers.Reviewer_ID, webtblReviewers.Last_Name, webtblReviewers.EMail_Address, webtblReviewers.StudySection, tblReviewerExtension.Permissions, tblReviewerExtension.Password, tblReviewerExtension.Role1, tblReviewerExtension.Role2 FROM tblReviewerExtension RIGHT JOIN webtblReviewers ON tblReviewerExtension.ReviewerID = webtblReviewers.Reviewer_ID where Email_Address = '" & Request.form("Email") & "' and Password = '" & Request.Form("Password") & "'")
if objRS.EOF then
TheMessage = "Invalid email address or password."
else
Session("Reviewer_ID") = objRS("Reviewer_ID")
Session("Permissions") = objRS("Permissions")
Session("Last_Name") = objRS("Last_Name")
Session("StudySection") = objRS("StudySection")
If objRS("Permissions") = "Reviewer" then
Response.Redirect "Reviews/GetReviewForm.asp"
else if objRS("Permissions") = "Staff" then
Response.Redirect "./Staff.asp"
else if objRS("Permissions") = "SRA" then
Response.Redirect "SRA/SRA.asp"
else if objRS("Permissions") = "Admin" then
Response.Redirect "Admin/Administration.asp"
else objRS("Permissions") = "Management"
Response.Redirect "Admin/Administration.asp"
End if
End if
end if
End if
End If
objRS.Close
Set objRS = Nothing
objConn.close
Set objConn = Nothing
else
TheMessage = "Please enter email address and password."
end if
%>
<%
Dim strServerName, strPathInfoName
strServerName = Request.ServerVariables("SERVER_NAME")
strPathInfoName = Request.ServerVariables("PATH_INFO")
%>
California Cancer Research Program - Cycle I
California Cancer Research Program
Reviewers Module
Reviewers Module
This module is presently inactive
California Cancer
Research Program
(916) 449-5550 E-mail crp@dhs.ca.gov
.gif){kind=small}
