<% function ListUsersForNameEmailID(ByRef pobjCon, ByVal pstrName, ByVal pstrEmail, _ ByVal pintUserID, ByVal pstrOrder, pstrOrderDirection) dim strSQL if pstrName<>"" then strSQL = "SELECT * FROM forumUsers WHERE username LIKE '%" & pstrName & "%'" if pstrEmail<>"" then strSQL = strSQL & " AND email LIKE '%" & stringForSQLLike(pstrEmail) & "%'" elseif pstrEmail<>"" then strSQL = "SELECT * FROM forumUsers WHERE email LIKE '%" & stringForSQLLike(pstrEmail) & "%'" elseif pintUserID>0 then strSQL = "SELECT * FROM forumUsers WHERE ID=" & pintUserID else strSQL = "SELECT * FROM forumUsers" end if strSQL = strSQL & " ORDER BY " & pstrOrder & " " & pstrOrderDirection set ListUsersForNameEmailID = OpenRS(pobjCon, strSQL) end function %>