where do my return values go? (SQL-Query)

[ashokghali]

I think this should work...

Code:

Function CheckStat (AppID)
Dim objDB, strupdate
Set objDB = CreateObject("ADODB.Connection")
objDB.ConnectionString = "..."
objDB.Open
strupdate = "select mailstat from systemstatus where systemid='"&AppID&"' and testtime=(select max(TESTTIME) from systemstatus where systemid='"&AppID&"')"
Set objrs = objDB.Execute(strupdate)
CheckStat = objrs(0)
objDB.close
End Function

Thanks,
-Ashok

[Tim.Schmidt]

Thanks alot Ashok!

I was thinking about testing that, so it needs an object to read from a database, even if I only read 1 value.

Thanks again its working properly now.