Sayfanın Kodları
<!-- #include file="Ayarlar.asp" -->
<!-- #include file="Baglanti.asp" -->
<!-- #include file="Inc/Inc.asp" -->
<%
' #################################
' # KODLAMA: Cem Gündüzoglu #
' # Tüm Haklari Saklidir. 2007 #
' # cmg.web@gmail.com #
' #################################
'Baglantimizi açiyoruz
'Recordseti tanimliyoruz
Set tagRs = server.CreateObject("ADODB.Recordset")
'etiket tablosu içerisinden ayni isimde olan Etiket leri tek bir kayit olarak listeletiyoruz(DISTINCT)
SQL = "SELECT DISTINCT Etiket FROM etiket ORDER BY Etiket ASC"
tagRs.Open SQL, baglanti, 3, 3
'Toplam Etiket sayisini bulmak için ayri bir Recordset tanimliyoruz
Set toplamtagRs = server.CreateObject("ADODB.Recordset")
SQL = "SELECT Etiket FROM etiket"
toplamtagRs.Open SQL, baglanti, 3, 3
toplamhit=toplamtagRs.Recordcount
do while not tagRs.EOF
if tagRs.EOF then exit do
Set tag2Rs = server.CreateObject("ADODB.Recordset")
'etiket tablosu içerisideki her bir etiketin kaç tane oldugunu saydiriyoruz ve TagHit degiskeninde elde ediyoruz
SQL = "SELECT Count(Etiket) as TagHit FROM etiket WHERE Etiket='" & tagRs("Etiket") & "'"
tag2Rs.Open SQL, baglanti, 3, 3
hit=tag2Rs("TagHit")
'hit degerine göre font büyüklügünü vs. ayarliyoruz
fsize=cint(100*hit/toplamhit)+3
%>
<nobr><a href="fotograf/arama.ASP?etiket=<%=server.URLEncode(tagRs("Etiket"))%>"><span title="(<%=hit & "/" & toplamhit & " - " & fsize%>)" style="font-family:Tahoma; font-size:<%=fsize%>"><%=tagRs("Etiket")%></span></a></nobr>
<%
tagRs.MoveNext
loop
%>Aldığım Hata
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Sürücüsü] Tabloda yapılmasını istediğiniz değişiklikler, dizinde, birincil anahtarda veya ilişkilerde yinelenen değerler oluşturdukjları için başarısız oldu. Yinelenen verileri içeren alan veya alanlardaki verileri değiştirin, dizini kaldırın veya dizini, yinelenen girdilere izin verecek şekilde yeniden tanımlayın ve yeniden deneyin.
/bulut.asp, line 36
Yardımlarınız için şimdiden teşekürler
