<% Dim RsMail Dim strSQL Set MyDBA = Server.CreateObject("ADODB.Connection") Set rsMail = Server.CreateObject("ADODB.Recordset") MyDBA.Open Application("Letsmatchit") strSQL = "SELECT * FROM Hotlist WHERE Ownername='"&Session("Username")&"'" RsMail.Open strSQL, MyDBA,3,3 IF rsMail.EOF THEN 'Response.Write("Slut") ELSE WHILE NOT rsMail.EOF %> <% RsMail.MoveNext IF NOT rsMail.EOF THEN %> <% END IF IF NOT rsMail.EOF THEN RsMail.MoveNext END IF Wend END IF RsMail.Close %> Handle Title Added Mail Sent Send Mail Remove " id=no><%=rsMail("Username")%> <%=rsMail("Title")%> <%=rsMail("AddDate")%> <%=rsMail("SentMail")%> &Url=Hotlist.asp" id="no">[Send mail] " id=no>[Remove] " id="no"><%=rsMail("Username")%> <%=rsMail("Title")%> <%=rsMail("AddDate")%> <%=rsMail("SentMail")%> "&Url=Hotlist.asp" id="no">[Send mail] " id="no">[Remove]

---

Copyright © 2001 LetsMatchIT.Com All rights reserved.