[ - İletişim Mesajları - ]



<% Set ObjCon_ilet = Server.CreateObject("ADODB.Connection") ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ilet.mdb") Set ObjRs = Server.CreateObject("ADODB.Recordset") StrSql = "Select * from mesajlar" ObjRs.Open StrSql, ObjCon_ilet, 1, 4 Do while not ObjRs.eof %>
<%=ObjRs("tarih")%>  <%=ObjRs("isim")%> <%=ObjRs("mail")%>  <%=ObjRs("tel")%>   [ ">Mesajı Oku ] [ "> X ]
<% ObjRs.MoveNext Loop %>
[X] ANA SAYFA [X]