I am getting the follwoing error, and I am not sure why.  If someone 
could help me, I would very much appreciated. Thanks. 

Microsoft VBScript runtime error '800a01be' 

Object doesn't support named arguments: 'Filter' 

/450/ggebre/addusers2.asp, line 20 

Hi

Could you show us your code around the area where you are getting the error?

Cheers
Darrell

-----Original Message-----
From: ggebre@h... [mailto:ggebre@h...]
Sent: 20 June 2002 21:55
To: Access ASP
Subject: [access_asp] ASP Error


I am getting the follwoing error, and I am not sure why.  If someone
could help me, I would very much appreciated. Thanks.

Microsoft VBScript runtime error '800a01be'

Object doesn't support named arguments: 'Filter'

/450/ggebre/addusers2.asp, line 20

Thanks for the reply. The following is the code for the program.


 <% @Language=VBScript%>
 <% Option Explicit %>  
 <!--Include File="connect.asp"-->
 <!--Include File="adovbs.inc"-->  
 <!--Include File="Error.asp"-->

 
   
   <%
   
   
	Dim strUsers, objConn 
	
	 Set strUsers = Server.CreateObject("ADODB.Connection")
	 'objConn.Open Server.CreateObject("ADODB.RecordSet")
	 'rsUsers.Open Application("ADODB.ConnectionString")


	If Session("CustomerID") <> " " Then
		strUsers.Filter = "CutomerID = ' " & Session("CustomerID") 
& " ' "
	Else
		strUsers.Filter = "EmailAddress = '"  & Request.Form
("Email") & " '" & _
		                "AND Password = '" & Request.Form
("Password") & " ' "
   If strUsers.EOF Then
   		strUsers.AddNew
 	End If
 End If
 
   Response.Write "DEBUG> Form = " & request.Form & "<BR>"
   
   'Collect cusotmer's detail information and pass on to the database
   '
    strUsers("Lname") = Request.Form("Lname")
	strUsers("Fname") = Request.Form("Fname")
 	strUsers("Staddress1") = Request.Form("StAddress1")
	strUsers("StAddress2") = Request.Form("StAddress2")
	strUsers("City") = Request.Form("City")
	strUsers("State") = Request.Form("State")
	strUsers("ZipCode") = Request.Form("ZipCode")
	strUsers("Country") = Request.Form("Country")
	strUsers("Email") = Request.Form("Email")
	strUsers("Phone") = Request.Form("Phone")
	strUsers("Active") = True
	strUsers("LastLogin") = Now
	strUsers.Update                                      'Update 
database

	Dim strName, strValue
	 For each strField in rsUsers.Field
 		strName = strField.Name
 		strValue = strField.value
 		Request(strName) = strValue
 	Next
	Request("blnValidUser") = True          'verfiy that current user 
is valid user of the system.
 	Response.Redirect "Welcome.asp"      'Takes registered users to 
display item menu automatically.

   
	
	%>


> Hi

Could you show us your code around the area where you are getting the 
error?

Cheers
Darrell

-----Original Message-----
From: ggebre@h... [mailto:ggebre@h...]
Sent: 20 June 2002 21:55
To: Access ASP
Subject: [access_asp] ASP Error


I am getting the follwoing error, and I am not sure why.  If someone
could help me, I would very much appreciated. Thanks.

Microsoft VBScript runtime error '800a01be'

Object doesn't support named arguments: 'Filter'

/450/ggebre/addusers2.asp, line 20

strUsers is an ADO Connection object
: Set strUsers = Server.CreateObject("ADODB.Connection")

an ADO Connection object is a connection to a database - it does not enable
you to "filter" anything, yet you are trying to call the .Filter method:

: strUsers.Filter = "CutomerID = ' " & Session("CustomerID") & " ' "

Cheers
Ken

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: <ggebre@h...>
Subject: [access_asp] RE: ASP Error


: Thanks for the reply. The following is the code for the program.
:
:
:  <% @Language=VBScript%>
:  <% Option Explicit %>
:  <!--Include File="connect.asp"-->
:  <!--Include File="adovbs.inc"-->
:  <!--Include File="Error.asp"-->
:
:
:
:    <%
:
:
: Dim strUsers, objConn
:
: Set strUsers = Server.CreateObject("ADODB.Connection")
: 'objConn.Open Server.CreateObject("ADODB.RecordSet")
: 'rsUsers.Open Application("ADODB.ConnectionString")
:
:
: If Session("CustomerID") <> " " Then
: strUsers.Filter = "CutomerID = ' " & Session("CustomerID")
: & " ' "
: Else
: strUsers.Filter = "EmailAddress = '"  & Request.Form
: ("Email") & " '" & _
:                 "AND Password = '" & Request.Form
: ("Password") & " ' "
:    If strUsers.EOF Then
:    strUsers.AddNew
:   End If
:  End If