Parfumuri Sex Shop Lenjerie intima ROMANTIC
Horoscop EXTENSII DE PAR NATURAL <% Dim SiteURL SiteURL = "http://www.linkshighway.net" Dim LinkID Dim SelfScript LinkID = "6830" SelfScript = Request.ServerVariables("SCRIPT_NAME") PostingString = "&LinkID=" & LinkID & "&ScriptName=" & SelfScript PassedQuery = Request.QueryString Category = Request.QueryString("cn") Function GetMyLinks(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim ComponentString Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf If hObj Is Nothing Then Set hObj = CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If If hObj Is Nothing Then If fnXMLRequest(strQuery, strPost, strResponse, strError) Then GetMyLinks = True Else GetMyLinks = False End If Else hObj.Open "GET", SiteURL & "/links/engine.php?" & strQuery & strPost, False hObj.Send If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetMyLinks = False Else strResponse = ComponentString & hObj.responseText GetMyLinks = True End If End If End Function Function fnXMLRequest(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then strError = "No support for HTTP requests found." fnXMLRequest = False Else hObj.open "GET", SiteURL & "/links/engine.php?" & strQuery & strPost, false hObj.Send If hObj.status <> 200 Then strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" fnXMLRequest = False Else strResponse = ComponentString & hObj.responseText fnXMLRequest = True End If Set hObj = Nothing End If End Function %> <% If GetMyLinks(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If %> Links

powered by cart.ro LAShoes