[ - İ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]