Solved

Object variable or With block variable not set

Posted on 2008-06-26
5
538 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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

830 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