<%@ Language=VBScript %> <%deg=Request.QueryString("rety") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.ConnectionString = "Data Source=" & Server.MapPath ("liste.mdb") Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * from oem where([oem.bit]=true )", Conn, 1,3 %> <%do while not rs.EOF %> <%rs.MoveNext:loop%>
Bit Pazarı

<% Response.Write ("Son Güncelleme")%>

CiNSi

SATIS(TL)

MARKA

ACIKLAMA

<%=rs("cinsi") %>

<%=rs("satis")%>

<%=rs("marka")&" "%>

<%=rs("aciklama")&" "%>