Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Object variable or With block variable not set

Posted on 2008-06-26
5
Medium Priority
?
563 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 2000 total points
ID: 21883823
0
 
LVL 8

Author Closing Comment

by:newbie27
ID: 31471026
thanks
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

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

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
This course is ideal for IT System Administrators working with VMware vSphere and its associated products in their company infrastructure. This course teaches you how to install and maintain this virtualization technology to store data, prevent vuln…
Loops Section Overview
Suggested Courses

916 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