Dance

Webshops in Freizeit & Unterhaltung zu Dance

ix-records.de
Der ix-records Online Shop.

80sfunk
Bei 80sfunk findet ihr coole Dance Sounds aus den 80ern, sei es nun Funk & Soul - meine Leib- und Magen-Medizin. Oder auch Italo, Eurotrash, Pop, Wave etc. Im Grunde freut man sich doch über jede Erinnerung an die guten 80er.

www.muzi.de

Shift Music & Media
Hier findet ihr unsere einzelnen Labels und natürlich die jeweiligen Künstler. Die Shift-Gruppe umfaßt das Black Music Label K-TOWN RECORDS (Down Low), im Bereich House/Trance übernimmt SUNNYSIDE UP RECORDS, der Spezialist für Hip Hop ist MO BEATZ RECORDS und ROCK IT macht sich für das Genre Rock'n'Pop stark.

www.shiftmusic.de

Humpty.de
Seit 1998 ist unter der Adresse ein Internet Shop zu finden, der sich auf CD’s und Vinyl aus dem elektronischen Musikbereich spezialisiert hat. Hat einige der renomiertesten Labels aus den Bereichen Techno, Trance, House, Techhouse bis hin zu Lounge im Angebot und hat sich verpflichtet durch schnellen Service und gute Preise dem Kunden ein Einkaufserlebnis zu geben.

www.humpty.de

BSA-Records Schallplatten Vinyl Record Shop Mailorder
Hier gibt es tausende Tontraeger. Vor allem Liebhaber der alten Singles kommen hier auf ihre Kosten Wöchentliche Neuzugänge. Rock, Pop, Soul, Reggae, Metal, Oldies, Vinyl.

www.bsa-records.de

CD-Raritäten-Shop
Bei uns finden sie CD-Raritäten und Import-CDs mit seltenen Maxi, Extended & Remix Versionen der 80er Jahre. Ein Großteil dieser Importe ist in Deutschland nicht mehr lieferbar oder wird in anderen Shops zu weitaus höheren Preisen angeboten. Nur durch aufwendige Recherchen ist es uns gelungen noch Kleinstmengen dieser CDs im original verpackten Zustand zu organisieren. Daher ist die Anzahl der einzelnen CDs auf 2-10 Stück begrenzt.

www.rare-80er.de

Rauterecords - Schallplatten Vinyls Records Store
Schallplatten, CD und Zubehör zum kleinen Preis. 2 Millionen Vinyls/CDs/DVDs lieferbar. Wir kaufen auch Singles, LPs, 12" Maxis und CDs an. Der Zustand der Vinyls sollte mindestens "VERY GOOD" sein.

www.rauterecords.de

Flight13 Records, Vinyl/CD Mailorder Katalog
Musikmailorder für Punk/Hardcore, Gitarre/Alternative, Electro/Dance, Ska/Reggae, Hiphop. Viel Vinyl !

flight13.de

DVD-O-thek - Die DVD Online Videothek: schnell und günstig
Ihre schnelle und günstige Alternative zur Videothek in der Stadt.Der bequemste Weg, Hollywood Filme und andere DVD's online zu leihen.

www.dvdothek.com

soundmedia.ch - Onlineshop für Musik, Film, Bücher und Zubehör
Die Nummer 1 im Schweizer Musik und Film Versandhandel

www.bhsoundmedia.ch

weitere Webshops zu Dance

Fehler -2146697211 in Symbios-Script
Die angegebene Ressource konnte nicht gefunden werden.
Zeile: 293 Zeichen: 1

Response.Write("")
If ( len(Request.QueryString("keywordId")) = 0 ) Then
	
	sql = "SELECT DISTINCT TOP 80 dbo.Kewords.Keword, dbo.VIEW_countKewordFromKat.NR, dbo.Kewords.KeywordId   " &_
	"FROM dbo.UrlToKeyword INNER JOIN " &_
	" dbo.Kewords ON dbo.UrlToKeyword.kewordId = dbo.Kewords.KeywordId INNER JOIN " &_
	" dbo.urls ON dbo.UrlToKeyword.UrlId = dbo.urls.UrlId INNER JOIN " &_
	" dbo.VIEW_countKewordFromKat ON dbo.Kewords.KeywordId = dbo.VIEW_countKewordFromKat.kewordId " &_
	"WHERE (dbo.VIEW_countKewordFromKat.katId = " & Symbiosis.lngNavigationID & ")AND(dbo.VIEW_countKewordFromKat.NR > 1) " &_
	"ORDER BY dbo.VIEW_countKewordFromKat.NR DESC, dbo.Kewords.Keword"
	'Response.Write(sql)
		Set objRs1 = server.createObject("adodb.recordset")
		Set objRs1 = Symbiosis.objConnection.execute(sql)
		
		Response.Write("<h2>" & Symbiosis.objRSNavigation("Titel") & "</h2>")
		Dim i, intLastNr
		i=0
		intLastNr = 2
		if Not(objRs1.EOF) Then
			Response.Write("<ul class=""fls"">")
			do until( objRs1.EOF )
				If(i=20)OR(i=40)OR(i=60)Then
					Response.Write("</ul><ul class=""fls"">")
				End If
				strKWort = Ucase(Mid(objRs1("Keword").value,1,1)) & Mid(objRs1("Keword").value,2,Len(objRs1("Keword").value)-1)
				Response.Write("<li><a href=""" &Symbiosis.SSYS_PATH_WEB & Symbiosis.SSYS_PATH_Application & Symbiosis.lngNavigationID & "/" & objRs1("KeywordId").value & "/" & Request.QueryString("q") & "/" & setName(objRs1("Keword").value) & """ title=""" & objRs1("Nr").value & """>" & strKWort & "</a></li>" )
				intLastNr = objRs1("Nr").value
				objRs1.MoveNext
				i=i+1
			loop
			Response.Write("</ul><br style=""clear:both"" />")
		End If
		
		objRs1.close
		Set objRs1 = nothing
	
Response.Write("" & Chr(13) & Chr(10) &_
"	<hr />" & Chr(13) & Chr(10) &_
"<script type=""text/javascript""><!--" & Chr(13) & Chr(10) &_
"google_ad_client = ""pub-7508635994237981"";" & Chr(13) & Chr(10) &_
"google_ad_width = 468;" & Chr(13) & Chr(10) &_
"google_ad_height = 60;" & Chr(13) & Chr(10) &_
"google_ad_format = ""468x60_as"";" & Chr(13) & Chr(10) &_
"google_ad_type = ""text_image"";" & Chr(13) & Chr(10) &_
"google_ad_channel ="""";" & Chr(13) & Chr(10) &_
"google_color_border = ""FFFFFF"";" & Chr(13) & Chr(10) &_
"google_color_bg = ""FFFFFF"";" & Chr(13) & Chr(10) &_
"google_color_link = ""000000"";" & Chr(13) & Chr(10) &_
"google_color_url = ""666666"";" & Chr(13) & Chr(10) &_
"google_color_text = ""333333"";" & Chr(13) & Chr(10) &_
"//--></script>" & Chr(13) & Chr(10) &_
"<script type=""text/javascript""" & Chr(13) & Chr(10) &_
"  src=""http://pagead2.googlesyndication.com/pagead/show_ads.js"">" & Chr(13) & Chr(10) &_
"</script>" & Chr(13) & Chr(10) &_
"	")

sql ="SELECT DISTINCT TOP 80 dbo.Kewords.Keword, dbo.VIEW_countKeywords.NR, dbo.Kewords.KeywordId " &_
	"FROM dbo.VIEW_countKeywords INNER JOIN " &_
	" dbo.Kewords ON dbo.VIEW_countKeywords.kewordId = dbo.Kewords.KeywordId INNER JOIN " &_
	" dbo.UrlToKeyword ON dbo.Kewords.KeywordId = dbo.UrlToKeyword.kewordId INNER JOIN " &_
	" dbo.urls ON dbo.UrlToKeyword.UrlId = dbo.urls.UrlId " &_
	"WHERE (dbo.VIEW_countKeywords.NR < " & intLastNr & ") AND (dbo.urls.katId = " & Symbiosis.lngNavigationID & ") " &_
	"ORDER BY dbo.VIEW_countKeywords.NR DESC, dbo.Kewords.Keword"
	
		Set objRs2 = server.createObject("adodb.recordset")
		Set objRs2 = Symbiosis.objConnection.execute(sql)
		i=0
		if Not(objRs2.EOF) Then
			Response.Write("<p class=""kw"">")
			do until( objRs2.EOF )
				Response.Write("<span title=""" & objRs2("Nr").value & """>" & objRs2("Keword").value & "</span> " )
				objRs2.MoveNext
				i=i+1
			loop
			Response.Write("</p>")
		End If
		objRs2.close
		Set objRs2 = nothing
Else

	Dim intKeyword : intKeyword = 0
	If(Request.QueryString("keywordId")<>"")Then
		If( IsNumeric(Request.QueryString("keywordId")) )Then intKeyword = Clng(Request.QueryString("keywordId"))
	End If
	
	Set objRs = server.createObject("adodb.recordset")
	
	Response.Write("<h2>")
	strTitleStart = "Webshops"
	If(Symbiosis.lngNavigationID = 513)Then strTitleStart = "Webtipps"
	
'	sql = "SELECT COUNT(DISTINCT dbo.urls.UrlId) AS NR FROM dbo.urls INNER JOIN " &_
'	" dbo.UrlToKeyword ON dbo.urls.UrlId = dbo.UrlToKeyword.UrlId " &_
'	"WHERE (dbo.UrlToKeyword.kewordId = " & intKeyword & ") AND (dbo.urls.katId = " & Symbiosis.lngNavigationID & ")"
'	Set objRs = Symbiosis.objConnection.execute(sql)
'	If Not(objRs.EOF) Then 
'		Response.Write(objRs("NR").value & " " & strTitleStart & " in ")
'	End If


	Response.Write(strTitleStart & " in ")
	
	
	Response.Write("<a href=""")
	Symbiosis.xEval("href(" & Symbiosis.lngNavigationID & ")")
	Response.Write(""">" & Symbiosis.objRSNavigation("Titel") & "</a>")
	'Response.Write("<a href=">" & Symbiosis.objRSNavigation("Titel") & "</a>")
	sql = "SELECT TOP 1 k.[Keword] FROM [Kewords]k WHERE k.[KeywordId] =" & intKeyword
	Set objRs = Symbiosis.objConnection.execute(sql)
	Dim strcurrentKeyword : strcurrentKeyword = ""
	If not(objRs.eof) OR not(objRs.bof)Then strcurrentKeyword = objRs("Keword").value
	If(Len(strcurrentKeyword)>2)Then
		strKeywordToShow = Ucase(Mid(strcurrentKeyword,1,1)) & Mid(strcurrentKeyword,2,Len(strcurrentKeyword)-1)
	Else
		strKeywordToShow = Ucase(strcurrentKeyword)
	End If
	if Not(objRs.EOF) Then Response.Write(" zu <span class=""tkw"">" & strKeywordToShow & "</span>") 
	Response.Write("</h2>")
If(1=2)Then
	
Response.Write("<script type=""text/javascript""><!--" & Chr(13) & Chr(10) &_
"google_ad_client = ""pub-7508635994237981"";" & Chr(13) & Chr(10) &_
"google_ad_width = 468;" & Chr(13) & Chr(10) &_
"google_ad_height = 15;" & Chr(13) & Chr(10) &_
"google_ad_format = ""468x15_0ads_al_s"";" & Chr(13) & Chr(10) &_
"google_ad_channel ="""";" & Chr(13) & Chr(10) &_
"google_color_border = ""FFFFFF"";" & Chr(13) & Chr(10) &_
"google_color_bg = ""FFFFFF"";" & Chr(13) & Chr(10) &_
"google_color_link = ""000000"";" & Chr(13) & Chr(10) &_
"google_color_url = ""666666"";" & Chr(13) & Chr(10) &_
"google_color_text = ""333333""; " & Chr(13) & Chr(10) &_
"//--></script> " & Chr(13) & Chr(10) &_
"<script type=""text/javascript"" src=""http://pagead2.googlesyndication.com/pagead/show_ads.js""></script>")

End If
	sql = "SELECT DISTINCT urls.* ,(SELECT AnzahlKeywords FROM VIEW_Anzahl_Keywords_pro_Url WHERE (VIEW_Anzahl_Keywords_pro_Url.UrlId = urls.UrlId))AS Nr " &_
		"FROM urls INNER JOIN " &_
		"UrlToKeyword ON urls.UrlId = UrlToKeyword.UrlId WHERE UrlToKeyword.kewordId =" & intKeyword & " AND (dbo.urls.katId = " & Symbiosis.lngNavigationID & ")" &_
		" ORDER BY NR asc "
		'Response.Write(sql)
		Set objRs = Symbiosis.objConnection.execute(sql)
		if Not(objRs.EOF) Then
			i = 0
			'Response.Write("<ol>")
			intSite = 0
			If( isNumeric(Request.QueryString("site")) )Then intSite = Clng(Request.QueryString("site"))
			
			do until( objRs.EOF )
				If(intSite = 0)AND(i < 10)Then
					If(i=1)OR(i=3)OR(i=5)Then
						Call GoogleSyndication2()
					End If
					Response.Write("<div><p title=""" & objRs("countKw").value & """><a target=""_blank"" href=""http://" & objRs("Url").value & """ title=""" & objRs("title").value & """>" & objRs("title").value & "</a><br />" )
					Response.Write("" & objRs("description").value & "</p>")
					Response.Write("<a target=""_blank"" class=""small"" href=""http://" & objRs("Url").value & """ title=""" & objRs("title").value & """>" & objRs("Url").value & "</a></div>")
				Elseif(intSite > 0)AND(i > 9)Then
					If(i=11)OR(i=13)OR(i=15)Then 
						Call GoogleSyndication2()
					End If
					Response.Write("<div><p title=""" & objRs("countKw").value & """><a target=""_blank"" href=""http://" & objRs("Url").value & """ title=""" & objRs("title").value & """>" & objRs("title").value & "</a><br />" )
					Response.Write("" & objRs("description").value & "</p>")
					Response.Write("<a target=""_blank"" class=""small"" href=""http://" & objRs("Url").value & """ title=""" & objRs("title").value & """>" & objRs("Url").value & "</a></div>")
				Else
					
				End If 
				objRs.MoveNext
				i=i+1
			loop
			showSideGoogle = false
			If(i < 5)Then 
				showSideGoogle = true 
			end If
			If(intSite > 0)AND(i > 15)Then
				showSideGoogle = true 
			end If
'			If(intSite = 0)AND(i > 9)Then
'				Response.Write("Webshops <a href=""" & Symbiosis.SSYS_PATH_WEB & Symbiosis.SSYS_PATH_Application & Symbiosis.lngNavigationID & ".1/" & intKeyword & "/" & Request.QueryString("q") & "/" & setName(strcurrentKeyword) & """>" &_ 
'								"11 - " & i & "</a> zu " & strKeywordToShow & "")
'			ElseIf(intSite > 0)Then
'				Response.Write("Webshops <a href=""" & Symbiosis.SSYS_PATH_WEB & Symbiosis.SSYS_PATH_Application & Symbiosis.lngNavigationID & "/" & intKeyword & "/" & Request.QueryString("q") & "/" & setName(strcurrentKeyword) & """>" &_ 
'								"1 - 10</a> zu " & strKeywordToShow & "")
'			End If
			If(intSite = 0)AND(i > 9)Then
				
				Response.Write("weitere <a rel=""nofollow"" href=""" & Symbiosis.SSYS_PATH_WEB & Symbiosis.SSYS_PATH_Application & Symbiosis.lngNavigationID & ".1/" & intKeyword & "/" & Request.QueryString("q") & "/" & setName(strcurrentKeyword) & """>" &_ 
								"Webshops  zu " & strKeywordToShow & "</a>")
'				Response.Write("Top Webshops zu <a href=""" & Symbiosis.SSYS_PATH_WEB & Symbiosis.SSYS_PATH_Application & Symbiosis.lngNavigationID & ".1/" & intKeyword & "/" & Request.QueryString("q") & "/" & setName(strcurrentKeyword) & """>" &_ 
'								" " & strKeywordToShow & "</a>")
			ElseIf(intSite > 0)Then
				Response.Write("Webshops <a href=""" & Symbiosis.SSYS_PATH_WEB & Symbiosis.SSYS_PATH_Application & Symbiosis.lngNavigationID & "/" & intKeyword & "/" & Request.QueryString("q") & "/" & setName(strcurrentKeyword) & """>" &_ 
								"1 - 10</a> zu " & strKeywordToShow & "")
			End If

			'Response.Write("</ol>")
		End If
		
		'Response.Write("<hr />")
		
	Call showRelatetKeywords(intKeyword)

		'Response.Write("<hr />")
'	If(intSite = 0)Then
'		sql ="SELECT DISTINCT TOP 100 dbo.Kewords.KeywordId, dbo.Kewords.Keword, dbo.VIEW_countKewordFromKat.NR " &_
'		"FROM dbo.UrlToKeyword INNER JOIN " &_
'		" dbo.urls ur ON dbo.UrlToKeyword.UrlId = ur.UrlId INNER JOIN " &_
'		" dbo.Kewords ON dbo.UrlToKeyword.kewordId = dbo.Kewords.KeywordId INNER JOIN " &_
'		" (SELECT DISTINCT TOP 100 dbo.urls.UrlId " &_
'		" FROM dbo.UrlToKeyword INNER JOIN " &_
'		" dbo.urls ON dbo.UrlToKeyword.UrlId = dbo.urls.UrlId " &_
'		" WHERE (dbo.UrlToKeyword.kewordId = " & intKeyword & ") AND (dbo.urls.katId = " & Symbiosis.lngNavigationID & ")) DERIVEDTBL ON DERIVEDTBL.UrlId = ur.UrlId INNER JOIN " &_
'		" dbo.VIEW_countKewordFromKat ON dbo.UrlToKeyword.kewordId = dbo.VIEW_countKewordFromKat.kewordId " &_
'		"ORDER BY dbo.VIEW_countKewordFromKat.NR DESC"
'				Set objRs2 = server.createObject("adodb.recordset")
'				Set objRs2 = Symbiosis.objConnection.execute(sql)
'				'objRs2.Filter = "NR < " & intLastNr +1
'				Dim d
'				Set d=Server.CreateObject("Scripting.Dictionary")
'				if Not(objRs2.EOF) Then
'					do until( objRs2.EOF )
'						If( d.Exists(objRs2("Keword").value)= false )Then
'							d.Add objRs2("Keword").value,objRs2("NR").value
'						end if
'						objRs2.MoveNext
'					loop
'				End If
'				objRs2.close
'				Set objRs2 = nothing
'				objRs.close
'				Set objRs = nothing
'				a=d.Keys
'				
'				
'				Response.Write("<p class=""kw"">")
'				for i = 0 To d.Count -1
'					Response.Write("<span title=""" & d.item(a(i)) & """>" & a(i) & "</span> ")
'				next
'				Response.Write("</p>")
'		End If
	
	Call showRelatedExternalLink("http://www.fundort.ch/sendRelatedLinksXml.asp",strcurrentKeyword)
	
End If
'------------------------------------------------------------------------------------------------------------------------





Sub showRelatetKeywords(intKeyword)
	sql = "SELECT DISTINCT TOP 60 VIEW_countKewordFromKat.NR, Kewords.Keword, Kewords.KeywordId " &_
		"FROM urls INNER JOIN " &_
		" UrlToKeyword ON urls.UrlId = UrlToKeyword.UrlId INNER JOIN " &_
		" VIEW_countKewordFromKat ON UrlToKeyword.kewordId = VIEW_countKewordFromKat.kewordId INNER JOIN " &_
		" VIEW_getUrlId_from_Kewords ON urls.UrlId = VIEW_getUrlId_from_Kewords.UrlId INNER JOIN " &_
		" Kewords ON UrlToKeyword.kewordId = Kewords.KeywordId " &_
		"WHERE (VIEW_countKewordFromKat.katId = " & Symbiosis.lngNavigationID & ") AND (VIEW_getUrlId_from_Kewords.KeywordId = " & intKeyword & ") AND (Kewords.KeywordId <> " & intKeyword & ") AND " &_
		" (VIEW_countKewordFromKat.NR > 2) AND (VIEW_countKewordFromKat.NR < 100) " &_
		"ORDER BY VIEW_countKewordFromKat.NR DESC, Kewords.Keword"
'	Response.Write(sql)
'	Response.flush()
	Set objRsRK = Symbiosis.objConnection.execute(sql)
	i=0
	if Not(objRsRK.EOF) Then
		Response.Write("<hr />")
		Response.Write("<ul class=""fls"">")
		do until( objRsRK.EOF )
			If(i=15)OR(i=30)OR(i=45)Then
				Response.Write("</ul><ul class=""fls"">")
			End If
			If( len(objRsRK("Keword").value) > 2 )Then
				strKWort = Ucase(Mid(objRsRK("Keword").value,1,1)) & Mid(objRsRK("Keword").value,2,Len(objRsRK("Keword").value)-1)
			Else
				strKWort = Ucase(objRsRK("Keword").value)
			End If
			Response.Write("<li><a href=""" &Symbiosis.SSYS_PATH_WEB & Symbiosis.SSYS_PATH_Application & Symbiosis.lngNavigationID & "/" & objRsRK("KeywordId").value & "/" & Request.QueryString("q") & "/" & setName(objRsRK("Keword").value) & """ title=""" & objRsRK("Nr").value & """>" & strKWort & "</a></li>" )
			intLastNr = objRsRK("Nr").value
			objRsRK.MoveNext
			i=i+1
		loop
		Response.Write("</ul><br style=""clear:both"" />")
		Response.Write("<hr />")
	End If
End Sub
'------------------------------------------------------------------------------------------------------------------------
Function showRelatedExternalLink(URL,KeyWord)
	
	URLToLinkList = URL & "?KeyWord=" & KeyWord
	' max number of displayed items
	MaxNumberOfItems = 3
	
	Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
	xmlHttp.Open "Get", URLToLinkList, false
	xmlHttp.Send()
	If(xmlHttp.Status = 200)Then
		RSSXML = xmlHttp.ResponseText
		Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
		xmlDOM.async = false
		xmlDOM.LoadXml(RSSXML)
		
		Set xmlHttp = Nothing ' clear HTTP object
		
		Set Links = xmlDOM.getElementsByTagName("link")' collect all "Link" from downloaded Linklist
		Set xmlDOM = Nothing ' clear XML
		
		LinksCount = Links.Length-1
		' writing Header
		If( LinksCount > 0 )Then 
			Response.Write ("<table style=""widt:100%;border:none""><tr>")
			j = -1
			For i = 0 To LinksCount
			 	Set Link = Links.Item(i)
				For Each child in Link.childNodes
					Select case lcase(child.nodeName)
			    		 case "linktext"
			      		     LinkText = child.text
			   		 	 case "url"
			   		        LinkUrl = child.text
			    		 case "text"
			     		      Text = child.text
							  If( len(Text) > 70 )Then
							  	Text = left(Text,60) & " ..."
							  End If
			  		 End Select
			  	next
			  j = J+1
				if ( J < MaxNumberOfItems) Then
					Response.Write ("<td style=""vertical-align:top;widt:33%;padding:5px""><a href=""" & LinkUrl & """ target=""_blank"">" & LinkText&"" & "</a><br />" & Text&"" & "</td>")
				End if
			Next
			Response.Write "</tr></table>"
		End If
	End If
End Function

'------------------------------------------------------------------------------------------------------------------------
Function setName(str)
'------------------------------------------------------------------------------------------------------------------------
	Dim re
	Set re = new RegExp
	re.Global = True

	str = Trim(str) & ""
	str = Replace(str,"&","+-")
	str = Server.URLEncode(str)
	
	re.Pattern = "%C([0-35]{1})" 'ÀÁÂÃÅ
	str = re.Replace(str, "A")
	re.Pattern = "%C4" 'Ä
	str = re.Replace(str, "Ae")
	re.Pattern = "%C7" 'Ç
	str = re.Replace(str, "C")
	re.Pattern = "%C([8-9a-bA-B]{1})" 'ÈÉÊË
	str = re.Replace(str, "E")
	re.Pattern = "%C([c-fC-F]{1})" 'ÌÍÎÏ
	str = re.Replace(str, "I")
	re.Pattern = "%D1" 'Ñ
	str = re.Replace(str, "N")
	re.Pattern = "%D([2-5]{1})" 'ÒÓÔÕ
	str = re.Replace(str, "O")
	re.Pattern = "%D6" 'Ö
	str = re.Replace(str, "Oe")
	re.Pattern = "%D([9a-bA-B]{1})" 'ÙÚÛ
	str = re.Replace(str, "U")
	re.Pattern = "%DC" 'Ü
	str = re.Replace(str, "Ue")
	re.Pattern = "%DF" 'ß
	str = re.Replace(str, "ss")
	re.Pattern = "%E([0-35]{1})" 'àáâãE
	str = re.Replace(str, "a")
	re.Pattern = "%E4" 'E
	str = re.Replace(str, "ae")
	re.Pattern = "%E7" 'E
	str = re.Replace(str, "c")
	re.Pattern = "%E([8-9a-bA-B]{1})" 'èéE
	str = re.Replace(str, "e")
	re.Pattern = "%E([c-fC-F]{1})" 'Eú@
	str = re.Replace(str, "i")
	re.Pattern = "%F1" 'E
	str = re.Replace(str, "n")
	re.Pattern = "%F([2-5]{1})" 'òóôõ
	str = re.Replace(str, "o")
	re.Pattern = "%F6" 'E
	str = re.Replace(str, "oe")
	re.Pattern = "%F([9a-bA-B]{1})" 'ùúE
	str = re.Replace(str, "u")
	re.Pattern = "%FC" 'E
	str = re.Replace(str, "ue")
	re.Pattern = "%80" '€
	str = re.Replace(str, "EUR")
	re.Pattern = "%24" '$
	str = re.Replace(str, "Dollar")
	re.Pattern = "%A2" '¢
	str = re.Replace(str, "Cent")
	re.Pattern = "%A3" '£
	str = re.Replace(str, "GBP")
	re.Pattern = "%A5" '¥
	str = re.Replace(str, "YEN")
	re.Pattern = "%26" '&
	str = re.Replace(str, "+")
	re.Pattern = "%FD|%FF" 'ý
	str = re.Replace(str, "y")
	re.Pattern = "%9A" 'E
	str = re.Replace(str, "s")
	re.Pattern = "%9C" 'E
	str = re.Replace(str, "oe")
	re.Pattern = "%9E" 'E
	str = re.Replace(str, "z")
	re.Pattern = "%9F%DD" 'E
	str = re.Replace(str, "Y")
	re.Pattern = "%E6" 'E
	str = re.Replace(str, "ae")
	re.Pattern = "%C6" 'Æ
	str = re.Replace(str, "AE")
	re.Pattern = "%8E" 'E
	str = re.Replace(str, "Z")
	re.Pattern = "%8C" 'E
	str = re.Replace(str, "OE")
	re.Pattern = "%8A" 'E
	str = re.Replace(str, "S")
	re.Pattern = "%83" 'E
	str = re.Replace(str, "f")
	re.Pattern = "%40" '@
	str = re.Replace(str, "-at-")
	re.Pattern = "%7E|%5F|\+" '~ _ space
	str = re.Replace(str, "-")
	re.Pattern = "%2E" '.
	str = re.Replace(str, ".")
	re.Pattern = "%2F" '/
	str = re.Replace(str, ".")
	'Clear Rest...
	re.Pattern = "%([0-9a-fA-F]{2})"
	str = re.Replace(str, "")
	re.Pattern = "--" '--
	str = re.Replace(str, "-")
	
	setName = re.Replace(str, "")
	
End Function ' PermaLinkUrl(str)

sub GoogleSyndication2()

Response.Write("<script type=""text/javascript""><!--" & Chr(13) & Chr(10) &_
"google_ad_client = ""pub-7508635994237981"";" & Chr(13) & Chr(10) &_
"google_ad_width = 468;" & Chr(13) & Chr(10) &_
"google_ad_height = 60;" & Chr(13) & Chr(10) &_
"google_ad_format = ""468x60_as"";" & Chr(13) & Chr(10) &_
"google_ad_type = ""text_image"";" & Chr(13) & Chr(10) &_
"google_ad_channel ="""";" & Chr(13) & Chr(10) &_
"google_color_border = ""FFFFFF"";" & Chr(13) & Chr(10) &_
"google_color_bg = ""FFFFFF"";" & Chr(13) & Chr(10) &_
"google_color_link = [""009900"",""0000ff""]; //""009900"";" & Chr(13) & Chr(10) &_
"google_color_url = [""009900"",""0000ff""]; //""009900"";" & Chr(13) & Chr(10) &_
"google_color_text = ""333333"";" & Chr(13) & Chr(10) &_
"//--></script>" & Chr(13) & Chr(10) &_
"<script type=""text/javascript"" src=""http://pagead2.googlesyndication.com/pagead/show_ads.js""></script>")

End Sub

Response.Write("")

Dance kaufen im Internet

Webshops in Freizeit & Unterhaltung zu Dance

SUCHE:

mehr Shops zu
Dance in:

Dance kaufen im Internet

Webshops in Freizeit & Unterhaltung zu Dance

SUCHE:

mehr Shops zu Dance in:

mehr Shops zu
Dance in: