S
slonik
Date: 02/26/2004 01:00PM PST
Here is the code.
'------------------------------------------------'
'- Gets Managers details such as name & email -'
'------------------------------------------------'
Sub GetManagerDetails(id)
Dim strSQL, rs
strSQL = "SELECT tblUsers.Name, tblUsers.LastName,
tblUsers.EmailWork "&
"FROM tblUsers "& _
"WHERE (((tblUsers.ID)="& id &"));"
' I placed response.write(strsql) here and that showed me that the
strSQL was in fact ok.
Set rs = conn.Execute(strSQL) '--> this is LINE 202
If not rs.bof and not rs.eof Then
strManagerName = rs("Name") & " " & rs("LastName")
strManagerEmail = rs("EmailWork")
End If
rs.Close
Set rs = Nothing
End Sub
Here is the code.
'------------------------------------------------'
'- Gets Managers details such as name & email -'
'------------------------------------------------'
Sub GetManagerDetails(id)
Dim strSQL, rs
strSQL = "SELECT tblUsers.Name, tblUsers.LastName,
tblUsers.EmailWork "&
"FROM tblUsers "& _
"WHERE (((tblUsers.ID)="& id &"));"
' I placed response.write(strsql) here and that showed me that the
strSQL was in fact ok.
Set rs = conn.Execute(strSQL) '--> this is LINE 202
If not rs.bof and not rs.eof Then
strManagerName = rs("Name") & " " & rs("LastName")
strManagerEmail = rs("EmailWork")
End If
rs.Close
Set rs = Nothing
End Sub