|
|
|
ANKET
SONUÇLARI
|
||||
|
Anket
Konusu: Siteyi
Beğendiniz mi |
||||
|
EVET
|
HAYIR
|
Ankete
Katılan Kişi Sayısı:
|
||
|
<%
set Conn = Server.CreateObject("ADODB.connection")
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("db/dbAnket1.mdb")
Conn.open dsnpath
sql="SELECT COUNT(evet) AS tplevet FROM tblAnket1 WHERE evet like '1';"
Set rs=Conn.execute(sql)
if rs.eof then
response.write("Veri Tabanı Boş!!!")
else
%> <%tplevet=rs("tplevet")%><%=rs("tplevet")%> <%
end if
%>
|
<%
set Conn = Server.CreateObject("ADODB.connection")
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("db/dbAnket1.mdb")
Conn.open dsnpath
sql="SELECT COUNT(hayir) AS tplhayir FROM tblAnket1 WHERE hayir like '1';"
Set rs=Conn.execute(sql)
if rs.eof then
response.write("Veri Tabanı Boş!!!")
else
%> <%tplhayir=rs("tplhayir")%> <%=rs("tplhayir")%> <%
end if
%>
|
<% tpl= tplevet + tplhayir%><%=tpl%>
|
||
|
|
|
|||
| EVET: | <%tpl=(tplevet+tplhayir)%><%evet=((tplevet*100)/tpl)%> <%=cint(evet)%>% |
|||
| HAYIR: | <%tpl=(tplevet+tplhayir)%><%hayir=((tplhayir*100)/tpl)%> <%=cint(hayir)%>% |
|||
|
|
||||
|
Ana
Sayfaya Dönmek
için Tıklayınız.
|
||||
