function passing ms-sql data

[paulbarron]

I using this fuction to process some sql code but I get the following error

Microsoft VBScript runtime error '800a01a8'

Object required: 'user'

/scripts/frontend.asp, line 32

How can I get the data out of the database

Public Function open_user_username()
response.write myuserid
set user=Server.CreateObject("ADODB.RecordSet")
user.Open "SELECT * FROM users WHERE username='" & myuserid & "'", conn
If Not user.eof Then
user.MoveFirst
response.write user.Fields("firstname")
end if
end function

myuserid = Request.Form("UserID")
fieldname = "UserID"
form_validate = IsAlphaNumeric(myuserid)
mypassword = Trim(Request.Form("Password"))
open_user_username()
If Not user.eof Then
user.MoveFirst
response.write user.Fields("firstname")
end if

[Easy_Coder]

Can you point out line 32 for us?

[paulbarron]

If Not user.eof Then

[Easy_Coder]

Paul -

Why don't you give this a whirl...

Public Function getUserInfo(in_User)  
 If in_User <> "" Or Not IsNull(in_User) Then 
 set user=Server.CreateObject("ADODB.RecordSet")  
 With user 
  .Open "SELECT TOP 1 firstname, email FROM users WHERE username='" & in_User & "'", conn 
  If Not .eof Then  
  aUser = .GetRows()  
  ELse 
  aUser = Null 
  end if  
  .Close 
 End With 
 Set user = Nothing 
 Else 
 aUser = Null 
 End If 
 getUserInfo = aUser 
end function  
myuserid = Request.Form("UserID") 
fieldname = "UserID"  
form_validate = IsAlphaNumeric(myuserid)  
mypassword = Trim(Request.Form("Password"))  
mUserArr = getUserInfo(myuserid)  
If Not IsNull(mUserArr) Then 
 Response.Write "Firstname: " & mUserArr(0,0) & "<Br>" 
 Response.Write "Email: " & mUserArr(1,0) & "<Br>" 
End If 

[paulbarron]

That works well thanks very much for that