1
2username=session("username")
3if username<>"" then
4
5Set conn=server.createobject("adodb.connection")
6Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
7DBPath = "Data Source=" & Server.MapPath( "webuser.mdb" )
8
9conn.Open Provider & DBPath
10
11sql="select toname,isread,adddate from talks where toname='"& username &"'and isread=0 order by adddate"
12set rs=conn.execute(sql)
13if not rs.eof then
14response.write "
<script>window.open('showmessage.asp','','width=580,height=400,scrollbars=yes')</script>
1"
2end if
3rs.close
4set rs=nothing
5conn.close
6set conn=nothing
7
8end if
9