<% ' Uncomment the following for the Deluxe Version Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & VbCrlf & _ "" & VbCrlf & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & VbCrlf & _ "" & VbCrlf & _ " Private Messages " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & VbCrlf & _ "" & VbCrlf & _ " " & vbNewLine '*************************************************************************************** 'Response.Write "" & VbCrlf & _ ' "" & VbCrlf & _ ' "" & VbCrlf & _ ' "" & VbCrlf & _ ' " " if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then Dim strSql ' Get Private Message count for display on Default.asp if strDBType = "access" then strSqL = "SELECT count(M_TO) as [pmcount] " else strSqL = "SELECT count(M_TO) as pmcount " end if strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO " strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 " Dim rsPM Set rsPM = my_Conn.Execute(strSql) pmcount = rsPM("pmcount") rsPM.Close set rsPM = Nothing if strDBNTUserName = "" Then Response.Write "" else if pmcount = 0 then Response.Write "" end if end if if strAuthType="nt" then Response.Write strDBNTUserName & " (" & strDBNTUserName & ")" else if pmcount >=1 then Response.Write "" else 'got mail image end if end if end if 'Response.Write " " & vbCrlf 'Uncomment the rest for Deluxe Version. Response.Write " " & vbCrlf & _ " " & vbCrlf & _ "

" & vbCrlf %>