|
|
|
|
|
 |
|
 |
|
|
|
 |
|
 |
|
|
|
|
|
|
|
 |
 |
25 Ocak 2008 - Bildiri son gönderme tarihi |
|
28 Mart 2008 - Değerlendirme sonucunun bildirilmesi |
|
25 Nisan 2008 - Düzenlenmiş bildirinin son kabul tarihi |
|
|
|
|
|
|
|
<%
ip = Request.ServerVariables("REMOTE_ADDR")
Set vt= Server.CreateObject("ADODB.Connection")
vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("online/sayac.mdb")
set rs= Server.CreateObject("ADODB.Recordset")
Sorgu = "select * from ipler where ip = '" & ip & "' and tarih = '" & date & "'"
rs.Open Sorgu, vt, 1, 3
If rs.BOF And RS.EOF Then
'rs.close ww
'set rs=nothing
'vt.close
'set vt=nothing
'
'Set vt= Server.CreateObject("ADODB.Connection")
'vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("online/sayac.mdb")
'
'set rs= Server.CreateObject("ADODB.Recordset")
'Sor = "Select * from ipler"
'rs.open sor,vt,1,3
'
''rs.addnew
'rs("ip")=ip
'rs("tarih")=date
'rs("saat")=time
''rs.update
'rs.close
'set rs=nothing
'vt.close
'set vt=nothing
end if
Set bgl1 = Server.CreateObject("ADODB.Connection")
bgl1.open "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=" & server.mappath("online/sayac.mdb"), "",""
Set tablo1 = Server.CreateObject("ADODB.Recordset")
tablo1.Open "SELECT * FROM ipler", bgl1, 2, 2
Do While Not tablo1.EOF
i=i+1
tablo1.movenext
Loop
tablo1.Close
Set tablo1=Nothing
%>
Toplam Ziyaretçi : <%=i%>
|
|
|
