fiogf49gjkf0d Two ways:
1) DoSQL:
If Len(DoSQL("SELECT TECHREV FROM TABLE WHERE TABLEID='" & sID & "'", "0", "")) > 0 Then
vHTML = "Technical Review = Yes"
Else
vHTML = vHTML '** or don't even have an else....
End If
2) You can expand that, by creating a Handle, getting the value, like this:
lHandle = DBOpenSQL("SELECT TECHREV FROM TABLE WHERE TABLEID = '" & sID & "'", True)
DBMoveTo lHandle, "FIRST"
sTechRev = DBGetValue(lHandle, "TECHREV")
DBClose lHandle
If Len(stechrev) > 0 Then
vHTML = "Technical Review = Yes"
Else
vHTML = vHTML
End If
I'd go with option 1....you don't have to open a handle, close it (it's handled automatically). But either one should work.
Jeff
|