<% function ListUsersForEmailOrName(ByRef pobjCon, ByVal pstrEmail, ByVal pstrName) dim strSQL strSQL = "SELECT ID FROM forumUsers WHERE email='" & stringForSQL(pstrEmail) & "' OR username='" & stringForSQL(pstrName) & "'" set ListUsersForEmailOrName = OpenRS(pobjCon, strSQL) end function %>