Solved

Object variable or With block variable not set

Posted on 2008-06-26
5
534 Views
Last Modified: 2010-04-21
Hello Experts,
I am getting an error when I try to use one of the function of the Com Component I have registered on win 2003 server.
<%=myAccessClient.UserTree(CBool(blnGrpAdd))  --> line 221
It was working fine earlier but I dont know for some reason it has stopped working ...

Error Description:-
ehausAccessClient3 error '800a005b'
Object variable or With block variable not set
/osx/oecd/usermaint.asp, line 221

please can someone advice how to go about resolving this?

many thanks for your help

thanks
sam
0
Comment
Question by:newbie27
  • 2
  • 2
5 Comments
 
LVL 7

Expert Comment

by:Dauhee
ID: 21877991
what is the componnent (if not custom). Also need the full code as a property may need to be set beforehand
0
 
LVL 8

Author Comment

by:newbie27
ID: 21878453
hello dauhee,
thanks for picking this up for me

is was getting error at this line
<TD style="background-color:#C0C0C0;width:150px;" ><%=myAccessClient.UserTree(CBool(blnGrpAdd))%>

someone advice me to register it with MTS and so I did, reset the IIS and now i am getting this error

Server object error 'ASP 0178 : 80070005'

Server.CreateObject Access Error

/v_include/osorder_mandatory_header_order_system_onlyV2.asp, line 53

The call to Server.CreateObject failed while checking permissions. Access is denied to this object.


---------
set myAccessClient = Server.CreateObject("ehausAccessClient3.AccessClient")  --> this error
      with myAccessClient
            .ServerURL = "http://" & os_secure_server & "/osx/pan_system_server_filebased.asp?ord=" & os_ord

            set .LoginClient = myLoginClient
            set .Server = Server
            set .Response = Response
            set .Request = Request
            .execute
      end with
------------------------
<%response.buffer=true
 

' version 1.0.3

' LJG 30/04/2004 version 1.0.0

' LJG 27/05/2004 version 1.0.1

' altered field name display (_PermittedDownloads) displayed as "Purchased Products (DI)"

' added stylesheet class accInputMemoReadOnly to display correct size and background colour of ReadOnly memo box.

' altered ReadOnly Permissions for OECD users.

' LJG 25/06/2004 version 1.0.2

' altered display of groups for ehausAdmin - to hide group fund unless it is Admin node.

'

' LJG 24/01/2006 version 1.0.4

' added deposit function and history

' LJG 22/02/2006 version 1.0.5 

' added contact details to group.
 

LANG = request("LANG") : PLANG = request("PLANG")
 

if trim(LANG & " ") = "" then

	LANG = "en"

end if

'-- #### START OF SPECIAL PATCH TO COVER LANGUAGE SELECTION NOT SUPPORTED BY LOGIN DLL's ###

if request("lang") <> "" then

	session("lang") = request("lang")

end if

if session("lang") <> "" then

	lang = session("lang")

end if

'-- #### END OF SPECIAL PATCH TO COVER LANGUAGE SELECTION NOT SUPPORTED BY LOGIN DLL's ###

'-- add a webroot variable to give compatibility on links within outer page

dim WebRoot

WebRoot = os_http & os_insecure_server

'--- Play with remote server value to synchronise web and order systems

LoginRoot = lg_https & lg_secure_server

OrderRoot = os_https & os_secure_server '-- link to ordering pages and usermaint

RemoteServer = os_http & os_insecure_server '-- link to front-end help url
 

dim LabelDoc

set LabelDoc = createObject("MSXML2.DOMDocument")

LoadLabels(LabelDoc) 

%>

<!--#include file="includeWithCare/osorderIncAppSpecificV2.asp" -->

<!--#include virtual="v_include/osorder_mandatory_header_protectedV2.asp" -->

<!-- #include virtual="xinclude/oecd_specials.asp" -->

<!-- #include virtual="v_include/acm_remote_links.asp"-->

<%
 

	

	If Instr(LCase(myAccessClient.Group("GroupName")), "admin") = 0 Then ' redirect

		Response.Write "you are not authorised to access this page." 

		'Response.End

	End If 

	PAGEHEADER = os_ord & " - Home Page"

	Dim blnGrpAdd, strSuperGroups

	strSuperGroups = "ehausadmin " & os_ord & "admin" ' add groups that allowed to add new groups here.
 

	blnGrpAdd = Instr(strSuperGroups, LCase(MyAccessClient.User("GroupName"))) > 0

	intGroupLevel = 4

	'need to set LevelsUp and LevelsDown properties to enable DOM search

	myAccessClient.LevelsUp = 2

	myAccessClient.LevelsDown = 2
 

%>

<!DOCTYPE html public "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<STYLE>*			{font-size:9pt;font-family:Arial,Verdana,Helvetica,sans-serif;color:black;text-decoration:none;font-style:normal;font-weight:normal;}

FORM				{margin:0px;}

EM					{font-style:italic;}

STRONG				{font-weight:bold;}

BODY				{background-color:white;}

TD					{vertical-align:top;}

/*SELECT			{width:400px;}

INPUT.text			{width:400px;}

INPUT.button		{width:100px;}

INPUT.radio			{width:auto}*/

DIV.textarea		{border:2px inset;background-color:#C0C0C0;overflow:scroll;width:500px;height:200px;}

A:hover				{text-decoration:underline;}

.Tab				{border:outset 2px;border-bottom:0px;}

.TabSelected		{border:outset 2px;border-bottom:0px;font-weight:bold;}

.TabBottom			{border-top:outset 2px;}

.TabSelectedBottom	{border-left:outset 2px;border-right:outset 2px;}

.accValidationMessage	{color:#FF0000;font-weight:bold;}

A.accTreeUserLink:hover		{color:black;font-weight:normal;}

A.accTreeUserLink:link		{color:black;font-weight:normal;}

A.accTreeUserLink:active	{color:black;font-weight:normal;}

A.accTreeUserLink:visited	{color:black;font-weight:normal;}

A.accTreeShowAllUsersLink:hover		{color:black;font-weight:normal;}

A.accTreeShowAllUsersLink:link		{color:black;font-weight:normal;}

A.accTreeShowAllUsersLink:active	{color:black;font-weight:normal;}

A.accTreeShowAllUsersLink:visited	{color:black;font-weight:normal;}

A.accTreeGroupLink:hover		{color:black;font-weight:bold;}

A.accTreeGroupLink:link		{color:black;font-weight:bold;}

A.accTreeGroupLink:active	{color:black;font-weight:bold;}

A.accTreeGroupLink:visited	{color:black;font-weight:bold;}

IMG.accTreeImage			{vertical-align:middle;}

INPUT.accInputText {width:200px;}

TEXTAREA.accInputMemo {width:200px;height:100px;}

TEXTAREA.accInputMemoReadOnly {background-color:#C0C0C0;width:200px;height:100px;}

SELECT.accInputList {width:200px;}

INPUT.accInputTextReadOnly {background-color:#C0C0C0;width:200px;}

INPUT.accInputMemoReadOnly {background-color:#C0C0C0;width:200px;}

INPUT.accInputDateReadOnly {background-color:#C0C0C0;width:200px;}

INPUT.accInputListReadOnly {background-color:#C0C0C0;width:200px;}

INPUT.accInputBooleanReadOnly {background-color:#C0C0C0;width:200px;}

.accTreeOuterTable {border:inset 1px;background-color:#FFFFFF;}</STYLE>

<TITLE><%= PageHeader %></TITLE>

<link type="text/css" rel="stylesheet" href="/osx/<%=os_ord%>/styles/<%=os_ord%>_orders.css">

<LINK rel="stylesheet" href="<%=os_https & os_secure_server %>/<%=os_ord%>/styles/<%=os_ord%>.css">

<SCRIPT>

var keybNumeric = new keybEdit('01234567890.-','Numeric input only.');

function addDeposit(depBox,hisBox){
 

	if(depBox.value){

		var iDep = 0;

		iDep = eval(depBox.form.accx2x_GroupFund.value);

		

		if((iDep=='')||(iDep==null)||(isNaN(iDep))){

			iDep = 0

		}

		

		iDep = iDep + eval(depBox.value);

		depBox.form.accx2x_GroupFund.value = iDep.toFixed(2);

		hisBox.value=hisBox.value  + depBox.value +  '|<%=os_userid%>|<%=GetSafeDate(Now)%>~'

		return true;

	}

	return false;

}

function keybEdit(strValid, strMsg) {

	/*	
 

	*/
 

	//	Variables

	var reWork = new RegExp('[a-z]','gi');		//	Regular expression\
 

	//	Properties

	if(reWork.test(strValid))

		this.valid = strValid.toLowerCase() + strValid.toUpperCase();

	else

		this.valid = strValid;
 

	if((strMsg == null) || (typeof(strMsg) == 'undefined'))

		this.message = '';

	else

		this.message = strMsg;
 

	//	Methods

	this.getValid = keybEditGetValid;

	this.getMessage = keybEditGetMessage;

	

	function keybEditGetValid() {

		return this.valid.toString();

	}

	

	function keybEditGetMessage() {

		return this.message;

	}

}
 

void function editKeyBoard(objForm, objKeyb) {
 
 

	strWork = objKeyb.getValid();

	strMsg = '';						

	blnValidChar = false;					
 

	if(!blnValidChar)

		for(i=0;i < strWork.length;i++)

			if(window.event.keyCode == strWork.charCodeAt(i)) {

				blnValidChar = true;
 

				break;

			}
 

	if(!blnValidChar) {

		if(objKeyb.getMessage().toString().length != 0)

			alert('Error: ' + objKeyb.getMessage());
 

		window.event.returnValue = false;		

		objForm.focus();						

	}

}

</SCRIPT>

</HEAD>

<BODY topmargin="0" leftmargin="0" bgcolor="#003366" marginwidth="0" marginheight="0">

<A name="Top"></A>
 

<!-- #include file="include/Nav_Links_top.inc" -->

	<TABLE width="100%" border="0" cellspacing="0" cellpadding="0">

		<TR>	<!-- start spacing content area away from left nav (this may change from page to page) -->

			<TD width="146"><!-- include file="include/MainNav-Left-orders.inc" -->

			</TD>	<!-- end spacing content area away from left nav -->

			<!-- start content area -->

			<TD>

				<TABLE border="0" cellspacing="0" cellpadding="0">

					<TR>

						<TD>

							<TABLE cellpadding="0" cellspacing="5" border="0">

								<TR>

									<TD>

										<TABLE align="center" width="0" cellspacing="0" cellpadding="2" border="0" style="border:outset 2px;background-color:#C0C0C0;">

											<TR>

												<TD style="background-color:#333399;color:white;font-weight:bold;">	Group and user tree

												</TD>

											</TR>

											<TR>

												<TD style="background-color:#C0C0C0"><%=myAccessClient.FilterBox("Find")%>

												</TD>

											</TR>

											<TR>

												<TD style="background-color:#C0C0C0"><A href="usermaint.asp?tag=<%=Request.QueryString("tag")%>&accFilter=<%=Request.QueryString("accfilter")%>&accShowAllGroups=True">Show all groups</A>

| <A href="usermaint.asp?tag=<%=Request.QueryString("tag")%>">Hide everything</A>

												</TD>

											</TR><%

MYACCESSCLIENT.DISPLAYEXCLUDED = true ' graphically shows excluded members in tree LJG

myAccessClient.GroupLevel = intGroupLevel

%>

											<TR>

												<TD style="background-color:#C0C0C0;width:150px;" ><%=myAccessClient.UserTree(CBool(blnGrpAdd))%>

												</TD>

											</TR>

										</TABLE>

									</TD>

									<TD>

<%

DIM STRERRORMSG, blnNew, strHistory

IF REQUEST.QUERYSTRING("ACCUSER") <> "" Then

	

	If Request.Querystring("accUser") = "_NEW_" Then

		strUserTableHeading = "Account details for new user in " & Request.QueryString("accGroup")
 

	Else

		strUserTableHeading = "Account details for " & Request.Querystring("accUser") '& " in " & Request.QueryString("")

	End If

	Response.Write "<TABLE align=""center"" width=""0"" cellspacing=""0"" cellpadding=""3"" border=""0"" style=""border:outset 2px;background-color:#C0C0C0;"">"

	Response.Write "<TR><TD style=""background-color:#333399;color:white;font-weight:bold;"">" & strUserTableHeading & "</TD></TR>"

	Response.Write "<TR>"

	Response.Write "<TD style=""background-color:#C0C0C0"">"

	

	With myAccessClient

	

		.StartUserUpdateForm(Request.Querystring("accUser"))

		blnUserFieldIsReadOnly = (Request.Querystring("accUser") <> "_NEW_")

		if Not blnUserFieldIsReadOnly Then Response.Write "<strong>Add a new user to " & Request.QueryString("accGroup") & "</strong><br><br>"

		Response.Write "<TABLE border=""0"" cellspacing=""0"" cellpadding=""0"">"

		If .UpdateAttempted Then

			If .UpdateSuccessful Then

				Response.Write "<TR><TD>&nbsp;</TD><TD><SPAN style=""font-weight:bold;"">Your details have been updated.</SPAN></TD></TR>"

			Else

				strErrorMsg = .loginstatus

				Response.Write "<TR><TD>&nbsp;</TD><TD><SPAN class=""accValidationMessage"">Your details were not updated.<BR>Please correct the errors indicated below.</SPAN></TD></TR>"

			End If

		End If

		If myAccessClient.User("GroupName") = "ehausAdmin" Then

			

			If Request.Querystring("accUser") <> "_NEW_" Then

				Response.Write "<TR><TD>GroupName&nbsp;</TD><TD>" & ListACMGroups(myAccessClient) & "</TD></TR>"

			Else

				'Response.Write "<TR><TD>Current Group&nbsp;</TD><TD>" & .PropertyField ("GroupName", True) & "</TD></TR>"

			End If

			Response.Write "<TR><TD>UserName&nbsp;</TD><TD>" & .PropertyField ("UserName", blnUserFieldIsReadOnly) & "</TD></TR>"

			Response.Write "<TR><TD>Password&nbsp;</TD><TD><INPUT name=""accPassword"" type=""text"" class=""accInputText"">" & strerrormsg & "</TD></TR>"

			Response.Write "<TR><TD>Expiry Date&nbsp;</TD><TD>" & .PropertyField("_ExpiryDate") & "</TD></TR>"

			Response.Write "<TR><TD>AccountNo&nbsp;</TD><TD>" & .PropertyField("_AccountNo") & "</TD></TR>"

			Response.Write "<TR><TD>Address&nbsp;</TD><TD>" & .PropertyField("_AddressLine1") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>" & .PropertyField("_AddressLine2") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>" & .PropertyField("_AddressLine3") & "</TD></TR>"

			Response.Write "<TR><TD>Town&nbsp;</TD><TD>" & .PropertyField("_Town") & "</TD></TR>"

			Response.Write "<TR><TD>County&nbsp;</TD><TD>" & .PropertyField("_County") & "</TD></TR>"

			Response.Write "<TR><TD>Post Code&nbsp;</TD><TD>" & .PropertyField("_PostCode") & "</TD></TR>"

			Response.Write "<TR><TD>Country&nbsp;</TD><TD>" & .PropertyField("_Country") & "</TD></TR>"

			Response.Write "<TR><TD>Client Title&nbsp;</TD><TD>" & .PropertyField("_Title") & "</TD></TR>"

			Response.Write "<TR><TD>First Name&nbsp;</TD><TD>" & .PropertyField("_FirstName") & "</TD></TR>"

			Response.Write "<TR><TD>Surname&nbsp;</TD><TD>" & .PropertyField("_Surname") & "</TD></TR>"

			Response.Write "<TR><TD>Company Name&nbsp;</TD><TD>" & .PropertyField("_CompanyName") & "</TD></TR>"

			Response.Write "<TR><TD>Email&nbsp;</TD><TD>" & .PropertyField("_Email") & "</TD></TR>"

			If Instr(LCAse(.PropertyField("GroupName")), "value=""default") > 0 Then 

				Response.Write "<TR><TD>Purchased Products PDF (OLD) &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloads") & "</TD></TR>"

			End If

			If Instr(LCAse(.PropertyField("GroupName")), "value=""default") > 0 Then 

				Response.Write "<TR><TD>Purchased Products &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDI") & "</TD></TR>"

				Response.Write "<TR><TD>Archived Products (DI) &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDIArchive") & "</TD></TR>"

			End If

			Response.Write "<TR><TD>Exclude&nbsp;</TD><TD>" & .PropertyField("_ExcludeUser") & "</TD></TR>"

			Response.Write "</TABLE>"

			Response.Write "<TR><TD align=""right"" colspan=""2""><INPUT type=""submit"" value=""Submit""></TD></TR>"
 

	ElseIf LCASE(myAccessClient.User("GroupName")) = LCase(os_ord & "admin") Then

			

			If Request.Querystring("accUser") <> "_NEW_" Then

				Response.Write "<TR><TD>GroupName&nbsp;</TD><TD>" & ListACMGroups(myAccessClient) & "</TD></TR>"

			Else

				'Response.Write "<TR><TD>Current Group&nbsp;</TD><TD>" & .PropertyField ("GroupName", True) & "</TD></TR>"

			End If

			Response.Write "<TR><TD>UserName&nbsp;</TD><TD>" & .PropertyField ("UserName", blnUserFieldIsReadOnly) & "</TD></TR>"

			Response.Write "<TR><TD>Password&nbsp;</TD><TD><INPUT name=""accPassword"" type=""text"" class=""accInputText"">" & strerrormsg & "</TD></TR>"

			Response.Write "<TR><TD>Expiry Date&nbsp;</TD><TD>" & .PropertyField("_ExpiryDate") & "</TD></TR>"

			Response.Write "<TR><TD>AccountNo&nbsp;</TD><TD>" & .PropertyField("_AccountNo") & "</TD></TR>"

			Response.Write "<TR><TD>Address&nbsp;</TD><TD>" & .PropertyField("_AddressLine1") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>" & .PropertyField("_AddressLine2") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>" & .PropertyField("_AddressLine3") & "</TD></TR>"

			Response.Write "<TR><TD>Town&nbsp;</TD><TD>" & .PropertyField("_Town") & "</TD></TR>"

			Response.Write "<TR><TD>County&nbsp;</TD><TD>" & .PropertyField("_County") & "</TD></TR>"

			Response.Write "<TR><TD>Post Code&nbsp;</TD><TD>" & .PropertyField("_PostCode") & "</TD></TR>"

			Response.Write "<TR><TD>Country&nbsp;</TD><TD>" & .PropertyField("_Country") & "</TD></TR>"

			Response.Write "<TR><TD>Client Title&nbsp;</TD><TD>" & .PropertyField("_Title") & "</TD></TR>"

			Response.Write "<TR><TD>First Name&nbsp;</TD><TD>" & .PropertyField("_FirstName") & "</TD></TR>"

			Response.Write "<TR><TD>Surname&nbsp;</TD><TD>" & .PropertyField("_Surname") & "</TD></TR>"

			Response.Write "<TR><TD>Company Name&nbsp;</TD><TD>" & .PropertyField("_CompanyName") & "</TD></TR>"

			Response.Write "<TR><TD>Email&nbsp;</TD><TD>" & .PropertyField("_Email") & "</TD></TR>"

			If Instr(LCAse(.PropertyField("GroupName")), "value=""default") > 0 Then 

				Response.Write "<TR><TD>Purchased Products &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloads") & "</TD></TR>"

				Response.Write "<TR><TD>Archived Products (DI)&nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDIArchive") & "</TD></TR>"

			End If

			If Instr(LCAse(.PropertyField("GroupName")), "value=""default") > 0 Then 

				Response.Write "<TR><TD>Purchased Products &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDI") & "</TD></TR>"

				Response.Write "<TR><TD>Archived Products (DI) &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDIArchive") & "</TD></TR>"

			End If

			Response.Write "<TR><TD>Exclude&nbsp;</TD><TD>" & .PropertyField("_ExcludeUser") & "</TD></TR>"

			Response.Write "</TABLE>"

			Response.Write "<TR><TD align=""right"" colspan=""2""><INPUT type=""submit"" value=""Submit""></TD></TR>"
 

	

	ElseIf InStr(myAccessClient.User("GroupName"), "Admin") > 0 Then

			Response.Write "<TR><TD>UserName&nbsp;</TD><TD>" & .PropertyField ("UserName", blnUserFieldIsReadOnly) & "</TD></TR>"

			Response.Write "<TR><TD>Password&nbsp;</TD><TD><INPUT name=""accPassword"" type=""text"" class=""accInputText""></TD></TR>"

			Response.Write "<TR><TD>Expiry Date&nbsp;</TD><TD>" & .PropertyField("_ExpiryDate") & "</TD></TR>"

			Response.Write "<TR><TD>AccountNo&nbsp;</TD><TD>" & .PropertyField("_AccountNo") & "</TD></TR>"

			

			Response.Write "<TR><TD>Address&nbsp;</TD><TD>" & .PropertyField("_AddressLine1") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>" & .PropertyField("_AddressLine2") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>" & .PropertyField("_AddressLine3") & "</TD></TR>"

			Response.Write "<TR><TD>Town&nbsp;</TD><TD>" & .PropertyField("_Town") & "</TD></TR>"

			Response.Write "<TR><TD>County&nbsp;</TD><TD>" & .PropertyField("_County") & "</TD></TR>"

			Response.Write "<TR><TD>Post Code&nbsp;</TD><TD>" & .PropertyField("_PostCode") & "</TD></TR>"

			Response.Write "<TR><TD>Country&nbsp;</TD><TD>" & .PropertyField("_Country") & "</TD></TR>"

			Response.Write "<TR><TD>Client Title&nbsp;</TD><TD>" & .PropertyField("_Title") & "</TD></TR>"

			Response.Write "<TR><TD>First Name&nbsp;</TD><TD>" & .PropertyField("_FirstName") & "</TD></TR>"

			Response.Write "<TR><TD>Surname&nbsp;</TD><TD>" & .PropertyField("_Surname") & "</TD></TR>"

			Response.Write "<TR><TD>Company Name&nbsp;</TD><TD>" & .PropertyField("_CompanyName") & "</TD></TR>"

			Response.Write "<TR><TD>Email&nbsp;</TD><TD>" & .PropertyField("_Email") & "</TD></TR>"

			Response.Write "</TABLE>"

			Response.Write "<TR><TD align=""right"" colspan=""2""><INPUT type=""submit"" value=""Submit""></TD></TR>"

	End If

		.EndUserUpdateForm

	End With

	Response.Write "</TD></TR></TABLE>"

	

ElseIf Request.Querystring("accGroup") <> "" Then

	

	Response.Write "<TABLE align=""center"" width=""0"" cellspacing=""0"" cellpadding=""3"" border=""0"" style=""border:outset 2px;background-color:#C0C0C0;"">"

If Request.QueryString("accGroup") ="_NEW_" Then

	blnNew = True

	Response.Write "<TR><TD style=""background-color:#333399;color:white;font-weight:bold;"">Group details for new group </TD></TR>"

Else

	Response.Write "<TR><TD style=""background-color:#333399;color:white;font-weight:bold;"">Group details for " & Request.Querystring("accGroup") & "</TD></TR>"

End If

	Response.Write "<TR>"

	Response.Write "<TD style=""background-color:#C0C0C0"">"

	

	With myAccessClient

		If Request.QueryString("accParentGroup") = "" Then 

			.StartGroupUpdateForm Request.Querystring("accGroup"),Request("accParent")

		Else

			.StartGroupUpdateForm Request.QueryString("accGroup"),Request.QueryString("accParentGroup")

			

		End If

		

		blnUserFieldIsReadOnly = (Request.Querystring("accGroup") <> "_NEW_")

		Response.Write "<TABLE border=""0"" cellspacing=""0"" cellpadding=""0"">"

		If .UpdateAttempted Then

			If .UpdateSuccessful Then

				Response.Write "<TR><TD>&nbsp;</TD><TD><SPAN style=""font-weight:bold;"">Group details have been updated.</SPAN></TD></TR>"

			Else

				Response.Write "<TR><TD>&nbsp;</TD><TD><SPAN class=""accValidationMessage"">Group details were not updated.<BR>Please correct the errors indicated below.<br>" & .loginStatus & "</SPAN></TD></TR>"

			End If

		End If

		If myAccessClient.User("GroupName") = "ehausAdmin" Then

			Response.Write "<TR><TD>GroupName&nbsp;</TD><TD>" & .PropertyField ("GroupName") & "</TD></TR>"

			Response.Write "<TR><TD>Company Name&nbsp;</TD><TD>" & .PropertyField ("_CompanyName") & "</TD></TR>"

			Response.Write "<TR><TD>AccountNo&nbsp;</TD><TD>" & .PropertyField ("_AccountNo") & "</TD></TR>"

			

			If LCase(MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_AccountType")) = "acco" OR Left(LCase(Request.Querystring("accParentGroup")),4) = "corp" Then

				If blnNew Then

					Response.Write "<TR><TD>Account Type</TD><TD><INPUT value=""ACCO"" class=""accInputText""  name=""accx2x_AccountType"" id=""accx2x_AccountType""></TD></TR>"

				Else

					Response.Write "<TR><TD>Account Type &nbsp;</TD><TD>" & .PropertyField("_AccountType") & "</TD></TR>"

				End If

			ElseIf LCase(MyAccessClient.QueryGroup(Request.Querystring("accParentGroup"))("_AccountType")) = "acct" Or LCase(MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_AccountType")) = "acct" OR Left(LCase(Request.Querystring("accParentGroup")),4) = "trad" Then

				If blnNew Then

					Response.Write "<TR><TD>Account Type</TD><TD><INPUT value=""ACCT"" name=""accx2x_AccountType"" class=""accInputText"" id=""accx2x_AccountType""></TD></TR>"

				Else

					Response.Write "<TR><TD>Account Type&nbsp;</TD><TD>" & .PropertyField("_AccountType") & "</TD></TR>"

				End If

			Else

				Response.Write "<TR><TD>Account Type &nbsp;</TD><TD>" & .PropertyField("_AccountType") & "</TD></TR>"

			End If

			' -- add contact details fields v1.0.5 22/02/2006 LJG

			Response.Write "<TR><TD>Contact Name &nbsp;</TD><TD>" & .PropertyField("_ContactName") & "</TD></TR>"

			Response.Write "<TR><TD>Contact Phone No. &nbsp;</TD><TD>" & .PropertyField("_ContactPhone") & "</TD></TR>"

			Response.Write "<TR><TD>Contact Email &nbsp;</TD><TD>" & .PropertyField("_ContactEmail") & "</TD></TR>"

			Response.Write "<TR><TD>Address &nbsp;</TD><TD>" & .PropertyField("_AddressLine1") & "</TD></TR>"

			Response.Write "<TR><TD>Address &nbsp;</TD><TD>" & .PropertyField("_AddressLine2") & "</TD></TR>"

			Response.Write "<TR><TD>Address &nbsp;</TD><TD>" & .PropertyField("_AddressLine3") & "</TD></TR>"

			Response.Write "<TR><TD>Town&nbsp;</TD><TD>" & .PropertyField("_Town") & "</TD></TR>"

			Response.Write "<TR><TD>County&nbsp;</TD><TD>" & .PropertyField("_County") & "</TD></TR>"

			Response.Write "<TR><TD>Post Code&nbsp;</TD><TD>" & .PropertyField("_PostCode") & "</TD></TR>"

			Response.Write "<TR><TD>Country&nbsp;</TD><TD>" & .PropertyField("_Country") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>&nbsp;</TD></TR>"

			strHistory = MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_DepositHistory")

			If LCase(MyAccessClient.QueryGroup(Request.Querystring("accParentGroup"))("_AccountType")) = "acco" Or LCase(MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_AccountType")) = "acco"  Then

				If Not blnNew Then ' only allow if not new group.

					

					Response.Write "<TR><TD>Corporate Fund Balance&nbsp;</TD><TD><INPUT value=""" & MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_GroupFund") & """ class=""accInputTextReadOnly"" readonly  name=""accx2x_GroupFund"" id=""accx2x_GroupFund""></TD></TR>"

					Response.Write "<TR><TD>Corporate Fund Deposit History&nbsp;</TD><TD height=""30""><a target=""_blank"" class=""NavLink"" href=""viewDepositHistory.asp?TAG=" & myloginClient.TAG & "&accGroup=" & Request.Querystring("accGroup") & """><strong>View Deposit History</strong></a><INPUT type=""hidden"" value=""" & strHistory & """ class=""accInputTextReadOnly"" readonly  name=""accx2x_DepositHistory"" id=""accx2x_DepositHistory""></TD></TR>"

					Response.Write "<TR><TD>Enter New Deposit</TD><TD><INPUT id=""Deposit"" name=""Deposit"" onKeyPress=""JavaScript:editKeyBoard(this,keybNumeric)"" ><INPUT type=""button"" value=""Deposit"" onclick=""this.disabled=true;if(addDeposit(this.form.Deposit, this.form.accx2x_DepositHistory)){this.form.submit()}else{this.disabled=false;}""></TD></TR>"

				End If

			End If

			

			If LCase(Request.Querystring("accGroup")) <> "DEFAULTUSERS" OR LCAse(Request.Querystring("accGroup")) <> "DEFAULTADMIN" Then

				Response.Write "<TR><TD>Sub Products Discount&nbsp;</TD><TD>" & .PropertyField("_SubProductsDiscount") & "</TD></TR>"

				Response.Write "<TR><TD>Non-Sub Products Discount&nbsp;</TD><TD>" & .PropertyField("_NonSubProductsDiscount") & "</TD></TR>"

				Response.Write "<TR><TD>Source OECD Products Discount&nbsp;</TD><TD>" & .PropertyField("_OECDProductsDiscount") & "</TD></TR>"

			End If

			

			Response.Write "<TR><TD>Currency&nbsp;</TD><TD>" & .PropertyField("_Currency", (strHistory <> "")) & "</TD></TR>"

			Response.Write "<TR><TD>Purchased Products PDFs (OLD)&nbsp;</TD><TD>" & .PropertyField("_PermittedDownloads") & "</TD></TR>"

			Response.Write "<TR><TD>Purchased Products &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDI") & "</TD></TR>"

			Response.Write "<TR><TD>Archived Products (DI)&nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDIArchive") & "</TD></TR>"

			'Response.Write "<TR><TD>Permitted Downloads order numbers&nbsp;</TD><TD>" & .PropertyField("vx_order_no") & "</TD></TR>"

			

			Response.Write "<TR><TD>Admin Notes&nbsp;</TD><TD>" & .PropertyField("_AdminNotes") & "</TD></TR>"

			Response.Write "</TABLE>"

			Response.Write "<TR><TD align=""right"" colspan=""2""><INPUT type=""submit"" value=""Submit""></TD></TR>"

	ElseIf LCase(myAccessClient.User("GroupName")) = LCase(os_ord & "Admin") Then

	

			Response.Write "<TR><TD>GroupName&nbsp;</TD><TD>" & .PropertyField ("GroupName") & "</TD></TR>"

			Response.Write "<TR><TD>Company Name&nbsp;</TD><TD>" & .PropertyField ("_CompanyName") & "</TD></TR>"

			Response.Write "<TR><TD>AccountNo&nbsp;</TD><TD>" & .PropertyField ("_AccountNo") & "</TD></TR>"

			

			If LCase(MyAccessClient.QueryGroup(Request.Querystring("accParentGroup"))("_AccountType")) = "acco" Or LCase(MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_AccountType")) = "acco" OR Left(LCase(Request.Querystring("accParentGroup")),4) = "corp" Then

				If blnNew Then

					Response.Write "<TR><TD>Account Type</TD><TD><INPUT value=""ACCO"" class=""accInputTextReadOnly"" readonly  name=""accx2x_AccountType"" id=""accx2x_AccountType""></TD></TR>"

				Else

					Response.Write "<TR><TD>Account Type &nbsp;</TD><TD>" & .PropertyField("_AccountType", true) & "</TD></TR>"

				End If

			ElseIf LCase(MyAccessClient.QueryGroup(Request.Querystring("accParentGroup"))("_AccountType")) = "acct" Or LCase(MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_AccountType")) = "acct" OR Left(LCase(Request.Querystring("accParentGroup")),4) = "trad" Then

				If blnNew Then

					Response.Write "<TR><TD>Account Type</TD><TD><INPUT value=""ACCT"" name=""accx2x_AccountType"" class=""accInputTextReadOnly"" readonly id=""accx2x_AccountType""></TD></TR>"

				Else

					Response.Write "<TR><TD>Account Type &nbsp;</TD><TD>" & .PropertyField("_AccountType", true) & "</TD></TR>"

				End If

			Else

				Response.Write "<TR><TD>Account Type &nbsp;</TD><TD>" & .PropertyField("_AccountType") & "</TD></TR>"

			End If

			' -- add contact details fields v1.0.5 22/02/2006 LJG

			Response.Write "<TR><TD>Contact Name &nbsp;</TD><TD>" & .PropertyField("_ContactName") & "</TD></TR>"

			Response.Write "<TR><TD>Contact Phone No. &nbsp;</TD><TD>" & .PropertyField("_ContactPhone") & "</TD></TR>"

			Response.Write "<TR><TD>Contact Email &nbsp;</TD><TD>" & .PropertyField("_ContactEmail") & "</TD></TR>"

			Response.Write "<TR><TD>Address &nbsp;</TD><TD>" & .PropertyField("_AddressLine1") & "</TD></TR>"

			Response.Write "<TR><TD>Address &nbsp;</TD><TD>" & .PropertyField("_AddressLine2") & "</TD></TR>"

			Response.Write "<TR><TD>Address &nbsp;</TD><TD>" & .PropertyField("_AddressLine3") & "</TD></TR>"

			Response.Write "<TR><TD>Town&nbsp;</TD><TD>" & .PropertyField("_Town") & "</TD></TR>"

			Response.Write "<TR><TD>County&nbsp;</TD><TD>" & .PropertyField("_County") & "</TD></TR>"

			Response.Write "<TR><TD>Post Code&nbsp;</TD><TD>" & .PropertyField("_PostCode") & "</TD></TR>"

			Response.Write "<TR><TD>Country&nbsp;</TD><TD>" & .PropertyField("_Country") & "</TD></TR>"

			Response.Write "<TR><TD>&nbsp;</TD><TD>&nbsp;</TD></TR>"

			strHistory = MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_DepositHistory")			

			Response.Write "<TR><TD>Currency&nbsp;</TD><TD>" &  .PropertyField("_Currency", (strHistory <> "")) & "</TD></TR>"

			If LCase(MyAccessClient.QueryGroup(Request.Querystring("accParentGroup"))("_AccountType")) = "acco" Or LCase(MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_AccountType")) = "acco" Then

				If Not blnNew Then ' only allow if not new group.

					

					Response.Write "<TR><TD>Corporate Fund Balance&nbsp;</TD><TD><INPUT value=""" & MyAccessClient.QueryGroup(Request.Querystring("accGroup"))("_GroupFund") & """ class=""accInputTextReadOnly"" readonly  name=""accx2x_GroupFund"" id=""accx2x_GroupFund""></TD></TR>"

					Response.Write "<TR><TD>Corporate Fund Deposit History&nbsp;</TD><TD height=""30""><a target=""_blank"" class=""NavLink"" href=""viewDepositHistory.asp?TAG=" & myLoginClient.tag & "&accGroup=" & Request.Querystring("accGroup") & """><strong>View Deposit History</strong></a><INPUT type=""hidden"" value=""" & strHistory & """ class=""accInputTextReadOnly"" readonly  name=""accx2x_DepositHistory"" id=""accx2x_DepositHistory""></TD></TR>"

					Response.Write "<TR><TD>Enter New Deposit</TD><TD><INPUT id=""Deposit"" name=""Deposit"" onKeyPress=""JavaScript:editKeyBoard(this,keybNumeric)"" ><INPUT type=""button"" value=""Deposit"" onclick=""this.disabled=true;if(addDeposit(this.form.Deposit, this.form.accx2x_DepositHistory)){this.form.submit()}else{this.disabled=false;}""></TD></TR>"

				End If

			End If

						

			If LCase(Request.Querystring("accGroup")) <> "DEFAULTUSERS" OR LCAse(Request.Querystring("accGroup")) <> "DEFAULTADMIN" Then

				Response.Write "<TR><TD>Sub Products Discount&nbsp;</TD><TD>" & .PropertyField("_SubProductsDiscount") & "</TD></TR>"

				Response.Write "<TR><TD>Non-Sub Products Discount&nbsp;</TD><TD>" & .PropertyField("_NonSubProductsDiscount") & "</TD></TR>"

				Response.Write "<TR><TD>Source OECD Products Discount&nbsp;</TD><TD>" & .PropertyField("_OECDProductsDiscount") & "</TD></TR>"

			End If
 

		

			'Response.Write "<TR><TD>Purchased Products PDFs (OLD)&nbsp;</TD><TD>" & .PropertyField("_PermittedDownloads") & "</TD></TR>"

			Response.Write "<TR><TD>Purchased Products &nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDI") & "</TD></TR>"

			Response.Write "<TR><TD>Archived Products (DI)&nbsp;</TD><TD>" & .PropertyField("_PermittedDownloadsDIArchive") & "</TD></TR>"

			Response.Write "<TR><TD>Admin Notes&nbsp;</TD><TD>" & .PropertyField("_AdminNotes") & "</TD></TR>"

			Response.Write "</TABLE>"

			Response.Write "<TR><TD align=""right"" colspan=""2""><INPUT type=""submit"" value=""Submit""></TD></TR>"

			

	ElseIf InStr(myAccessClient.User("GroupName"), "Admin") > 0 Then

			Response.Write "<TR><TD>GroupName&nbsp;</TD><TD>" & .PropertyField ("GroupName", True) & "</TD></TR>"

			Response.Write "<TR><TD>Group Fund&nbsp;</TD><TD>" & .PropertyField("_GroupFund", True) & "</TD></TR>"

			Response.Write "<TR><TD>Currency&nbsp;</TD><TD>" & .PropertyField("_Currency", True) & "</TD></TR>"

			Response.Write "<TR><TD>Purchased Products (DI)&nbsp;</TD><TD>" & .PropertyField("_PermittedDownloads", True) & "</TD></TR>"

			Response.Write "<TR><TD>Admin Notes&nbsp;</TD><TD>" & .PropertyField("_AdminNotes") & "</TD></TR>"

			Response.Write "</TABLE>"

			Response.Write "<TR><TD align=""right"" colspan=""2""><INPUT type=""submit"" value=""Submit""></TD></TR>"

	End If

		.EndGroupUpdateForm

	End With

	Response.Write "</TD></TR></TABLE>"

	

End If
 
 

Function GetSafeDate(ByVal vDate)

	GetSafeDate = Year(vDate) & right("00" & month(vDate), 2) & right("00" & day(vDate), 2) & right("00" & hour(vDate), 2) & right("00" & minute(vDate), 2)

End Function

%>

									</TD>

								</TR>

							</TABLE>

						</TD>

					</TR>

				</TABLE>	

				</td>

			

				
 

</BODY>

<SCRIPT>// Temporary yukky kludge to stop white-on-white text.

var allTDs=document.getElementsByTagName('A')

for(var i=0;i<allTDs.length;i++)

{allTDs[i].style.color='black';allTDs[i].style.fontWeight='normal';}

</SCRIPT>

</HTML>

<%
 

%><!-- #include virtual="v_include/osorder_mandatory_footer_commonV2.asp" -->

Open in new window

0
 
LVL 7

Expert Comment

by:Brad Dobyns, CSM
ID: 21883798
Well this may be a shot in the dark but try changing Server.CreateObject to CreateObject.
0
 
LVL 7

Accepted Solution

by:
Brad Dobyns, CSM earned 500 total points
ID: 21883823
0
 
LVL 8

Author Closing Comment

by:newbie27
ID: 31471026
thanks
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now