% 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 %>
|
<% 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. |