De Todo Un Poco!!!: Manual práctico de la construcción de Denis Walton

<% '*************************************************************************** ' Paste this block of code on your web page where you would like text ' links to be displayed. This code will dynamically add and remove text ' links on your web page according to your mercadoenlacestexto.com settings '*************************************************************************** Dim METKey, METCurrentUrl, METNewWindow, METQueryString, METResultString, METErrorString ' The following variable defines whether links are opened in a new window or not ' (1 = Yes, 0 = No) METNewWindow = 1 METKey = "l1301mu165v" If Request.ServerVariables("HTTPS") = "on" Then METCurrentUrl = "https://" & Request.ServerVariables("HTTP_HOST") Else METCurrentUrl = "http://" & Request.ServerVariables("HTTP_HOST") End If METCurrentUrl = METCurrentUrl & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then METCurrentUrl = METCurrentUrl & "?" & Request.ServerVariables("QUERY_STRING") End If METQueryString = "LinkUrl=" & Server.URLencode(METCurrentUrl) & "&Key=" & METKey & "&OpenInMyBetaNewWindow=" & METNewWindow If GetMET(METQueryString, METResultString, METErrorString) Then Response.Write METResultString Else Response.Write METErrorString End If Function GetMET(ByVal METqs, ByRef METresp, ByRef METerr) Dim METEngine, ObjHttp METEngine = "http://mercadoenlacestexto.com/index.php/home_page/engine?" Set ObjHttp = Nothing On Error Resume Next Set ObjHttp = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If ObjHttp Is Nothing Then On Error Resume Next Set ObjHttp = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If ObjHttp Is Nothing Then Er = "It appears that handling remote HTTP requests are not supported or have been disabled. Please contact your web host for more information." GetMET = False Else ObjHttp.Open "GET", METEngine & METqs, False ObjHttp.Send If ObjHttp.status <> 200 Then METerr = "Error processing request" GetMET = False Else METresp = ObjHttp.responseText GetMET = True End If Set ObjHttp = Nothing End If Else ObjHttp.Open "GET", METEngine & METqs, False ObjHttp.Send If ObjHttp.Status <> 200 Then METerr = "Error processing request" GetMET = False Else METresp = ObjHttp.responseText GetMET = True End If End If End Function %>

De Todo Un Poco!!!

martes, 17 de mayo de 2011

Manual práctico de la construcción de Denis Walton

2 comentarios:

Datos personales