Úvod
Reklama verze Business na WebSnadno.cz
Vítáme Vás na stránkách našeho kovošrotu
:
Domovské stránky:
http://www.kovosrot-zeman.webgarden.cz
http://www.kovosrot-zeman.firemni-web.cz
http://www.kovosrot-zeman.webnode.cz
http://www.kovosrot-zeman.iprostor.cz
http://www.vykup-zeleza-barevnych-kovu.websnadno.cz
http://www.pagerank.cz/optimalizace.php?kod=vykup.zeleza.a.barevnych.kovu
JakNaWeb.com
<%
Dim BLKey
Dim BLPref
Dim BLOdd
Dim PString
Dim ErrorString
Dim ResultString
Dim Url
' ******************************************************************************
' * Prosíme, neměňte niže uvedený kód, může dojít k chybnému zobrazování seo *
' * lišty a následnému vyloučení ze systému výměny odkazů *
' * *
' * www.zpetne-odkazy.com *
' ******************************************************************************
' text před odkazy
BLPref = ""
' oddělovač odkazů
BLOdd = "::"
' ID stránky vykup-zeleza-barevnych-kovu.websnadno.cz viz. administrace
BLKey = "1147"
If Request.ServerVariables("HTTPS") = "on" Then Url="https://" Else Url="http://" End If
If Request.ServerVariables("REQUEST_URI") Then
Url = Url & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI")
Else
Url = Url & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
If Request.ServerVariables("QUERY_STRING") <> "" Then
Url = Url & "?" & Request.ServerVariables("QUERY_STRING")
End If
End If
Url = server.URLencode(Url)
PString = "Pref=" & server.URLencode(BLPref)
PString = PString & "&Odd=" & server.URLencode(BLOdd)
PString = PString & "&Key=" & server.URLencode(BLKey)
PString = PString & "&Agent=" & server.URLencode(Request.ServerVariables("HTTP_USER_AGENT"))
PString = PString & "&Url=" & Url
Function GetBackLinksData(Ht, ByRef Resp, ByRef Er)
Dim Obj
Set Obj = Nothing
On Error Resume Next
Set Obj = CreateObject("WinHttp.WinHttpRequest.5.1")
On Error Resume Next
If Obj Is Nothing Then
Set Obj = CreateObject("WinHttp.WinHttpRequest.5")
End If
On Error Resume Next
If Obj Is Nothing Then
On Error Resume Next
Set Obj = CreateObject("Msxml2.ServerXMLHTTP")
On Error Resume Next
If Obj Is Nothing Then
Set Obj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
End If
On Error Resume Next
If Obj Is Nothing Then
Set Obj = CreateObject("Microsoft.XMLHTTP")
End If
On Error Resume Next
If Obj Is Nothing Then
Er = "Seo lištu nelze zobrazit."
GetBackLinksData = False
Else
Obj.open "GET", "http://www.zpetne-odkazy.com/seo-lista.php?" & Ht, False
Obj.Send
If Obj.status <> 200 Then
Er = "Error: " & Obj.status & " " & Obj.ResponseText
GetBackLinksData = False
Else
Resp = Obj.ResponseText
GetBackLinksData = True
End If
Set Obj = Nothing
End If
Else
Obj.Open "GET", "http://www.zpetne-odkazy.com/seo-lista.php?" & Ht, False
Obj.Send
If Obj.Status <> 200 Then
Er = "Error: " & Obj.Status & " " & Obj.ResponseText
GetBackLinksData = False
Else
Resp = Obj.ResponseText
GetBackLinksData = True
End If
End If
End Function
If GetBackLinksData(PString, ResultString, ErrorString) Then
Response.Write ResultString
Else
Response.Write ErrorString
End If%> 
Katalog 1x.cz
HyperkatalogZbozi a sluzby pro kontaktni centraSlevy - Slevy a akce
Loveme.cz
Mapa stránek