<%
' Role Administrator
' memberadd.asp
' Copyright (c) Microsoft Corporation 1993-1998. All rights reserved.
On Error Resume Next
Response.Expires = 0
Dim strPerformer
Dim strRole
strPerformer = Request.Querystring("PERFORMER")
strRole = Request.Querystring("ROLE")
%>
<HTML>
<HEAD>
<TITLE>Role Administrator</TITLE>
</HEAD>
<SCRIPT LANGUAGE="JavaScript">
function validate(theform) {
if (theform.UserName.value.length < 3) {
alert("The 'Member' field must contain at least 3 characters");
theform.UserName.focus();
}
else {
theform.submit();
};
};
</SCRIPT>
<BODY BACKGROUND="back.jpg" BGCOLOR="#FFFF99" TEXT="#000000" LINK="#000000" VLINK="#000000">
<FORM NAME="MemberAdd" METHOD=POST ACTION="memberadd2.asp" OnSubmit="return(false)">
<FONT FACE="Arial, Helvetica" SIZE=5><B>Add Members</B></FONT><BR><BR>
<FONT FACE="Arial, Helvetica" SIZE=2>To find a member, please enter the first three or more characters of their display name.<BR><BR>
<FONT FACE="Arial, Helvetica" SIZE=2>Member:</FONT>
<INPUT NAME="UserName" TYPE="text" SIZE=20><BR><BR>
<INPUT TYPE="button" VALUE="Find Member" OnClick="validate(this.form)"><BR>
<INPUT TYPE="hidden" NAME="PERFORMER" VALUE="<%=strPerformer%>">
<INPUT TYPE="hidden" NAME="ROLE" VALUE="<%=strRole%>">
<SCRIPT LANGUAGE="JavaScript">
document.MemberAdd.UserName.focus()
</SCRIPT>
</FORM>
</BODY>
</HTML>
