merhaba arkadaşlar sitemin etiket sistemine bir etiket bulutu yapmöak istiyorum ama daha önce görmediğim bir hata veriyor

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