<%@ 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]=false) order by kodno asc", Conn, 1,3 %>
PARÇA ALIŞ FiYATLARIMIZ

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

<% do while not rs.EOF header= rs("kodno")- (int(rs("kodno")/1000) *1000) if header=0 then %> <%else%> <%end if:rs.MoveNext:loop %> '
<%=rs("cinsi") %>

ALIS(TL)

Özellik

<%=rs("cinsi") %>

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

<%=rs("ozellik")&" "%>
K3 Bilgisayar

www.ikincielonline.com

Adres: Rıhtım cad. Başçavuş sok. Emintaş işhanı No: 9/612 Kadıköy/İstanbul
Tel: 216-4184028 - 4185803    Fax: 216-4184029   e-mail: ikinciel@ikincielonline.com