Getting Runtime error '800a01c2'

gmoney060 · July 14th, 2004, 11:29 PM

Hello All!
I have been trying to get this script to work, but I keep getting the runtime error '800a01c2'. Any help would be great! This is my code!

Code:

<%
    'Declares Variables
    Dim dbName
    Dim ObjConn
    Dim AdminArea
    Dim    User_Name

    'Open DSNless connection to the banner database
    dbName = "/fpdb/topsites.mdb"
    ObjConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(dbName)
    User_Name = Session("UserID")

    'Determines Who is the user, And collects data from database
    Set AdminArea = Server.CreateObject("ADODB.RecordSet")
    AdminArea.Open "Select * From Users Where Client_Username=' & User_Name'",ObjConn,1,2
%>

Code:

<% AdminArea("Client_Username") %>

The whole point of this script is, I am making a memeber area for my site. So the user logs in, and with a session variable I am givin the username with then looks in the database and pulls all records of that user, and i want to display some of the fields.

happygv · July 15th, 2004, 05:55 AM

Hi there,

Which line throws that error and what is there in that line?

With a bird eye, I could see you not using "=" there. Not sure if that line throws the error.

Code:

<% =AdminArea("Client_Username") %>

Originally this error means
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'FUNCTION/SUB NAME'
/error.asp, line 20

Cause: You are trying to call a function or sub with incorrect number of arguments.
Solution: Make sure you have all the arguments for the function/sub, separated by commas.

Cheers!

_________________________
- Vijay G
Strive for Perfection

rajanikrishna · July 15th, 2004, 09:44 PM

Yes,
Vijay is correct. And one more thing, i think u typed wrong.
U check the query in

adminarea.open "select ...'" & username & "'",conn

happygv · July 17th, 2004, 10:34 PM

Yes rajanikrishna, You are right. I missed that from my view.

gmoney060, you are also missing a " there.

Code:

AdminArea.Open "Select * From Users Where Client_Username='" & User_Name & "'",ObjConn,1,2

Cheers!

_________________________
- Vijay G
Strive for Perfection