Expiring Today—Celebrate National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Object variable or With block variable not set

Posted on 2008-06-26
5
Medium Priority
?
552 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

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…
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…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…

718 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