<%@ 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.stok]=true AND [oem.bit]=false )order by kodno asc", Conn, 1,3 %> <%do while not rs.EOF header= rs("kodno")- (int(rs("kodno")/1000)*1000) if header=0 then%> <%else%> <%end if:rs.MoveNext:loop %>

             PARÇA SATIŞ

<% 'Response.Write ("Son Güncelleme
"&FileLastMod())%>              STOK LİSTESİ

<%=rs("cinsi") %>

SATIŞ($)

MARKA

AÇIKLAMA

<%=rs("cinsi")%>

<%=rs("satis")%>

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

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

K3 Bilgisayar

www.ikincielonline.com

Adres: Rıhtım cad. Başçavuş sok. Emintaş İşhanı No: 9/612 Kadıköy/İstanbul
Tel: (0216)-418 4028 - 418 5803    Fax: (0216)-418 4029   e-mail: ikinciel@ikincielonline.com
'