<% Response.Buffer = True Set Bag = Server.CreateObject("ADODB.Connection") Bag.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/site.mdb")) set kg = server.createobject("adodb.recordset") kg.open "ziyaret",bag,1,3 ' If Session("ziyaretok") = False then kg.addnew kg("tarih") = date() If request.Cookies("ziyaretciadi") = "" or request.Cookies("ziyaretciadi") = " " then kg("zhost") = Request.ServerVariables("REMOTE_ADDR") else kg("zhost") = request.Cookies("ziyaretciadi") end if kg("zbrowse") = Request.ServerVariables("HTTP_USER_AGENT") kg("zrefer") = Request.ServerVariables("HTTP_REFERER") kg("zname") = Request.Cookies("isim") kg("zsaat") = time() kg.update Session("ziyaretok") = True ' end if kg.close bag.close set kg = Nothing set bag = Nothing ' If session("istatistik") = False then Session("sonziyarettarih") = Request.Cookies("sonziyarettarihi") Session("sonziyaretsaat") = Request.Cookies("sonziyaretsaati") Session("sonip") = Request.Cookies("remoteip") Response.Cookies("sonziyarettarihi") = date() Response.Cookies("sonziyarettarihi").Expires = now() + 365 Response.Cookies("sonziyaretsaati") = time() Response.Cookies("sonziyaretsaati").Expires = now() + 365 Response.Cookies("remoteip") = Request.ServerVariables ("REMOTE_ADDR") Response.Cookies("remoteip").Expires = now() + 365 Session("istatistik") = true ' end if Response.Cookies("sonziyarettarih") = now() Response.Flush bcatid = 0 %> SELKARSAN KOMPRESOR SANAYI VE TICARET LTD.STI www.tekstilportal.com www.turkeyregister.com <% If request.Cookies("ziyaretciadi") = "" or request.Cookies("ziyaretciadi") = " " then %> <% else %> <% End if %>
<% if request.Cookies("ziyaretciadi") <> "" then %> Sayin <%=request.Cookies("ziyaretciadi")%>, <% else %> Sayin Ziyaretcimiz, <% end if %> Bugün <% var1 = date Response.Write Day(var1) Response.Write " " ' Aylarý sayalým if Month(var1) = 1 then response.Write "Ocak" end if if Month(var1) = 2 then response.Write "Þubat" end if if Month(var1) = 3 then response.Write "Mart" end if if Month(var1) = 4 then response.Write "Nisan" end if if Month(var1) = 5 then response.Write "Mayýs" end if if Month(var1) = 6 then response.Write "Haziran" end if if Month(var1) = 7 then response.Write "Temmuz" end if if Month(var1) = 8 then response.Write "Aðustos" end if if Month(var1) = 9 then response.Write "Eylül" end if if Month(var1) = 10 then response.Write "Ekim" end if if Month(var1) = 11 then response.Write "Kasým" end if if Month(var1) = 12 then response.Write "Aralýk" end if 'Aylarý sayma bitti. Response.Write " " Response.Write Year(var1) Response.Write " " 'Günleri sayalým if WeekDay(var1, 1) = 1 then Response.Write "Pazar" end if if WeekDay(var1, 1) = 2 then Response.Write "Pazartesi" end if if WeekDay(var1, 1) = 3 then Response.Write "Salý" end if if WeekDay(var1, 1) = 4 then Response.Write "Çarþamba" end if if WeekDay(var1, 1) = 5 then Response.Write "Perþembe" end if if WeekDay(var1, 1) = 6 then Response.Write "Cuma" end if if WeekDay(var1, 1) = 7 then Response.Write "Cumartesi" end if Response.Write " " Response.Write Time %>  Son ziyaret zamaniniz: <%=Session("sonziyarettarih")%> Saat: <%=Session("sonziyaretsaat")%> olarak gorunmektedir.


Dogu Sanayi Sitesi 10.Blok No.:14 Yenibosna / ISTANBUL
Tel: +90 212 639 62 81 - 639 79 82 - 551 40 12 Fax: +90 212 551 80 94
info@selkarsan.com