Status

From

Subject

Recived

Remove

<% Dim RsMail Dim strSQL Set MyDBA = Server.CreateObject("ADODB.Connection") Set rsMail = Server.CreateObject("ADODB.Recordset") MyDBA.Open Application("Letsmatchit") strSQL = "SELECT * FROM Mail WHERE Mailto='"&Session("Username")&"'" RsMail.Open strSQL, MyDBA,3,3 IF rsMail.EOF THEN ' Response.Write("Slut") ELSE WHILE NOT rsMail.EOF IF RSMail("Online") THEN %><% END IF RsMail.MoveNext IF NOT RsMail.EOF THEN IF RSMail("Online") THEN %> <% END IF RsMail.MoveNext END IF Wend END IF RsMail.Close MyDBA.Close %>

<%=rsMail("Status")%>	" id="no"><%=rsMail("mailfrom")%>	" id="no"><%=rsMail("subject")%>	<%=formatdatetime(rsMail("sentdate"),2)%>	" id="no">[Remove]
<%=rsMail("status")%>	" id="no"><%=rsMail("mailfrom")%>	" id="no"><%=rsMail("subject")%>	<%=formatdatetime(rsMail("sentdate"),2)%>	" id="no">[Remove]