<% Set baglanti = Server.CreateObject("ADODB.Connection") baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/At486Las623_.mdb") set ty1 = Server.CreateObject("ADODB.RecordSet") set ty2 = Server.CreateObject("ADODB.RecordSet") %>
    <% SQL = "Select resim,metin1,metin2,link from slider where resim Order by sirano ASC" ty1.open SQL,baglanti,1,3 do while not ty1.eof %>
  • slidebg1 <% If Not IsNull(ty1(1)) Then %>
    <%=ty1(1)%>
    <%=ty1(2)%> <% If Not IsNull(ty1(3)) Then %>
    Detayı <% Else %><% End If %>
    <% Else %><% End If %>
  • <% ty1.movenext:loop ty1.close %>


GÜNCEL

Bilgilendirme