%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\data\db.mdb"))
set rs = server.createobject("adodb.recordset")
rssql="select sayi from sayac"
rs.open rssql, conn, 1, 3
rs("sayi")=rs("sayi")+1
rs.update
rs.close
conn.close
%>
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\data\db.mdb"))
set rs = server.createobject("adodb.recordset")
%>
<%
p=trim(request("p"))
if p="" then p="main" 'sayfa
%>
<
MULTİ EĞİTPAN
MULTİ EĞİTPAN
<%
if request("p")="urun" then
p="urun"
%>
<%
rssql="select * from kategori order by kimlik"
rs.open rssql, conn, 1, 3
while not rs.eof
k=rs("kimlik")
%>
|
|
<%
rs.movenext
wend
rs.close
%>
<%
end if
%>
|
|
|
| |
|
<%
rssql="select sayi from sayac"
rs.open rssql, conn, 1, 3
x=rs("sayi")
rs.close
%>
| Bu siteye toplam
<%=x%> kere giriş yapılmıştır. |
Copyright 2007
©Multi
Eğitpan |
|
<%
conn.close
%>