<% call esasUst() %> <% set objcon_ilet = server.CreateObject("ADODB.Connection") objCon_ilet.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &Server.MapPath("data/mucahit.mdb") ) id= Request("id") Set objyazi = Server.CreateObject("ADODB.Recordset") StrSql ="Select * from mesaj where id = " &id& "" Objyazi.Open StrSql,Objcon_ilet,1,3 do while not objyazi.eof %>
ad <%=Objyazi("ad")%>
soyad <%=Objyazi("soyad")%>
telefon <%=Objyazi("telefon")%>
adres <%=Objyazi("adres")%>
konu <%=Objyazi("konu")%>
mesaj <%=Objyazi("mesaj")%>
<% objyazi.Movenext loop %>