07-08-2008, 07:49 PM
(This post was last modified: 07-08-2008, 07:52 PM by Tim.Schmidt.)
that was just an example.
Actually its
if CheckStat(AppID) = "1" then
(for AppID insert number from 1-12, it is used in the query later)
Full Code for the Function:
Actually its
if CheckStat(AppID) = "1" then
(for AppID insert number from 1-12, it is used in the query later)
Full Code for the Function:
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&"')"
CheckStat = objDB.Execute(strupdate)
objDB.close
End Function