<% Set conn = CreateObject("ADODB.Connection") conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("glengo_db\glengo_db.mdb")) set dizi = Server.CreateObject("ADODB.RecordSet") dizi.open "select * from sayac" ,conn ,1 ,3 if not session("girdi")="evet" then toplam=dizi("Ziyaret")+1 dizi("Ziyaret")=toplam session("girdi")="evet" session("toplam")=toplam dizi.update else session("toplam")=dizi("Ziyaret") end if dizi.close dizi.open "select * from haber" , conn ,1 ,3 haber=dizi("Haber") %>

1996 yılından bu yana ürün kalitesi ve profesyonel çizimleri ile piyasada aranır bir marka haline gelmiş olan firmamız Etiket taleplerinize en hızlı ve en kolay çizimlerle, hizmet kalitesinden hiçbir zaman ödün vermeden profesyonel çizimler sunmaktadır.

Adres: Merkez Mah. Dou Sanayi Sitesi 12. Blok No:4 Yenibosna / STANBUL Tel: (0212) 639 30 88 - 96 / 551 01 76 / 551 04 24 Fax: (0212) 639 30 88
E-Mail: info@staretiket.com Msn: yasin@staretiket.com_Powered by A Pozitif (c)_______ Toplam Ziyareti <%=session("toplam")%>