<% Vt_Pth=Server.Mappath("icb/ziyaretci_defteri/ziyaretci.mdb") set cumle=server.createobject("ADODB.Connection") cumle.open "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}" Set setoku=Server.CreateObject("Adodb.Recordset") setoku.open "ziyaretci",cumle,3,3 %> <% while not setoku.eof %> <% setoku.movenext wend %>

<% response.write setoku("mesaj") %>

<% setoku.close set setoku=nothing cumle.close set cumle=nothing %>