<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps in adding a member
'For any help with modification to
'this file contact support@scriptmate.com
'=========================================%>

<script language="JAVASCRIPT">

	var errfound = false;

		function ValidLength(item, len) {
		   return (item.length >= len);
		}

		function error(elem, text) {
		   if (errfound) return;
		   window.alert(text);
		   elem.select();
		   elem.focus();
		   elem.style.backgroundColor=errorcolor;
		   errfound = true;
		}
		function Validate() {
		   errfound = false;
		   d=document.addmember
		   if (!ValidLength(d.members_username.value,1))error(d.members_username,"User Name should not be blank.");
		   if (!ValidLength(d.members_password.value,1))error(d.members_password,"Password should not be blank.");
		   return !errfound;
		}

</script>

<%Sub Addmember()

	dim todo, action, members_accesslevel, addmemberform, MyString, adderror, members_admin,members_active,members_group,accesslevel

	smumadminheader("Add a Member Record")

	if not Application("smumdebugmode") then on error resume next
	
	action = request("action")
	todo = Request.Form("todo")
	
	if todo = "" then
	
		smumFormAction "<form action="""&smumadminpage&"?action=addmember"" method=post name=addmember language=""JAVASCRIPT"" onsubmit=""return Validate();"">"
		smumFormHiddenField "todo","addmember"
		smumFormOpenTable
		smumFormHeader "Add a Member"
		smumFormFields "First Name","<input class=fieldbox type=text size=30 name=members_firstname>"
		smumFormFields "Last Name","<input class=fieldbox type=text size=30 name=members_lastname>"
		smumFormFields "User Name ( Required )","<input class=fieldbox type=text size=30 name=members_username>"
		smumFormFields "Password ( Required )","<input class=fieldbox type=text size=30 name=members_password>"
		smumFormFields "Address","<input class=fieldbox type=text size=30 name=members_address>"
		smumFormFields "City","<input class=fieldbox type=text size=30 name=members_city>"
		smumFormFields "State","<input class=fieldbox type=text size=30 name=members_state>"
		smumFormFields "Country","<input class=fieldbox type=text size=30 name=members_country>"
		smumFormFields "Email","<input class=fieldbox type=text size=30 name=members_email>"
		smumFormFields "Phone","<input class=fieldbox type=text size=30 name=members_phone>"
		smumFormFields "Zip","<input class=fieldbox type=text size=30 name=members_zip>"
		smumFormFields "Expiry Date","<input class=fieldbox type=text size=30 name=members_expirydate> <br><font class=textsize8>Please leave it blank for unlimited access or use 'mm/dd/yy' format</font>"
		smumFormFields "Access Level",getaccesslevel(accesslevel)
		smumFormFields "Groups",getgroups(0)
		smumFormFields "Active","<input type=checkbox name=members_active checked><br><font class=textsize8>&nbsp;Should be checked to activate a member.</font>"
		smumFormFields "Admin","<input type=checkbox name=members_admin><br><font class=textsize8>&nbsp;Should be checked only if this user is a admin.</font>"
		smumFormFields "Notes or Remarks","<textarea class=fieldbox cols=35 rows=5 name=members_notes></textarea>"
		smumFormFields smumgetfieldname(1),"<input class=fieldbox type=text size=30 name=members_field1>"
		smumFormFields smumgetfieldname(2),"<input class=fieldbox type=text size=30 name=members_field2>"
		smumFormFields smumgetfieldname(3),"<input class=fieldbox type=text size=30 name=members_field3>"
		smumFormFields smumgetfieldname(4),"<input class=fieldbox type=text size=30 name=members_field4>"
		smumFormFields smumgetfieldname(5),"<input class=fieldbox type=text size=30 name=members_field5>"
		smumFormFields smumgetfieldname(6),"<input class=fieldbox type=text size=30 name=members_field6>"
		smumFormFields smumgetfieldname(7),"<input class=fieldbox type=text size=30 name=members_field7>"
		smumFormFields smumgetfieldname(8),"<input class=fieldbox type=text size=30 name=members_field8>"
		smumFormFields smumgetfieldname(9),"<input class=fieldbox type=text size=30 name=members_field9>"
		smumFormFields smumgetfieldname(10),"<input class=fieldbox type=text size=30 name=members_field10>"
		smumFormButtons "<input class=fieldbox type=submit value=""Add Member"" name=submit>"
		smumFormCloseTable
		smumFormClose		

	elseif todo = "addmember" then

		For each addmemberform in Request.form
			MyString = addmemberform&"=smFixer(request.form("""&addmemberform&"""))"
			execute(mystring)
		Next

		if members_email <> "" then
		
			if Application("smumcheckduplicateemailids") then
				
				smumquery = "select members_email from smum_memberstbl where members_email = '" & members_email & "'"
				smumOpenrs smumquery,"smumrs",action
				
					if smumrs.eof and smumrs.bof then
					else
						adderror = "error occured"
						smJSalert("A Member with "& members_email &" is already registered with us. Please enter another email id.")
					end if

				smumClosers(smumrs)
				
			end if

			if Application("smumcheckblockedemailids")then

				smumquery = "select bei_email from smum_blockedemailidstbl where bei_email = '" & members_email & "'"
				smumOpenrs smumquery,"smumrs",action
				
					if smumrs.eof and smumrs.bof then
					else
						adderror = "error occured"
						smJSalert(""& members_email &" has been blocked from registering with us.")
					end if
			
				smumClosers(smumrs)
			
			end if
		
		end if

		smumquery = "select members_username from smum_memberstbl where members_username = '" & members_username & "'"
		smumOpenrs smumquery,"smumrs",action
		
			if smumrs.eof then
			else
				adderror = "error occured"
				smJSalert("The User Name - "& members_username &" is being used for an existing members. Please choose another username.")
			end if

		smumClosers(smumrs)
		
		if adderror = "" then

			if members_active = "on" then
				members_active = smumtrue
			else
				members_active = smumfalse
			end if

			if members_admin = "on" then
				members_admin = smumtrue
			else
				members_admin = smumfalse
			end if

			if members_expirydate = "" then members_expirydate = datevalue("1/1/9000")
			
			smumquery = "insert into smum_memberstbl (members_firstname, members_lastname, members_username, [members_password], members_expirydate,members_accesslevel, members_notes, members_active, members_admin, members_address, members_city, members_state, members_country, members_email, members_phone, members_zip, members_field1, members_field2, members_field3, members_field4, members_field5, members_field6, members_field7, members_field8, members_field9, members_field10) values ('"&members_firstname&"','"&members_lastname&"','"&members_username&"','"&members_password&"',"&smumdatechar&members_expirydate&smumdatechar&","&members_accesslevel&",'"&members_notes&"',"&members_active&","&members_admin&",'"&members_address&"','"&members_city&"', '"&members_state&"', '"&members_country&"', '"&members_email&"','"&members_phone&"','"&members_zip&"','"&members_field1&"','"&members_field2&"','"&members_field3&"','"&members_field4&"','"&members_field5&"','"&members_field6&"','"&members_field7&"','"&members_field8&"','"&members_field9&"','"&members_field10&"')"
			smumexecutequery smumquery,action
			
			Call smumregroup(members_group,members_username)

			smumFormOpenTable
			smumFormHeader "Add a Member"
			smumFormResponse members_username&"'s information has been added successfully."
			smumFormCloseTable
		
		end if
		
	end if

End Sub%>