Schenken

Webshops in Tiere zu Schenken

cool-dog
Individuelle Hundekissen und Hundetücher mit Namensstick. Wir führen eine grosse Auswahl an Hundekissen und Hundetüchern bzw. Hundehalstüchern auf Wunsch mit Namen und Motiven.
www.cool-dog.de
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("")
Schenken kaufen im Internet

Webshops in Tiere zu Schenken

SUCHE:

mehr Shops zu
Schenken in:

Schenken kaufen im Internet

Webshops in Tiere zu Schenken

SUCHE:

mehr Shops zu Schenken in:

mehr Shops zu
Schenken in:
