Montse Cantí Pijoan: Otros Artistas enlaces y Linke a centros de interés para artistas o galerías


<% ' AquÃfÂ estÃfÂ¡ el cÃfÂ³digo necesario para hacer funcionar los enlaces ' Ponga el bloque entero de cÃfÂ³digo donde quiera poner los enlaces Dim WebsiteKey Dim ThisPage Dim PostingString Dim PassedQuery Dim ErrorString Dim ResultString WebsiteKey = "lfcfn-y5ckt" ThisPage = Request.ServerVariables("SCRIPT_NAME") PostingString = "wk=" & WebsiteKey PostingString = PostingString & "&tp=" & ThisPage ' get the og querystring PassedQuery = Request.QueryString If GetLinkPage(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If Function GetLinkPage(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim usingObj Set hObj = Nothing On Error Resume Next Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1") usingObj = "" On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5") usingObj= "" End If On Error Resume Next If hObj Is Nothing Then If UseMSXML(strQuery, strPost, strObject, strResponse, strError) Then usingObj = strObject GetLinkPage = True Else GetLinkPage = False End If Else hObj.Open "POST", "http://www.linksimpacto.com/linkpage.html?" & strQuery, False hObj.SetRequestHeader "Content-type", "application/x-www-form-urlencoded" hObj.Send strPost If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetLinkPage = False Else strResponse = hObj.responseText GetLinkPage = True End If End If strResponse = usingObj & strResponse End Function Function UseMSXML(strQuery, strPost, ByRef strObject, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing ' check if XML supported On Error Resume Next Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP") strObject = "" On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0") strObject = "" End If On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("Microsoft.XMLHTTP") strObject = "" End If On Error Resume Next If hObj Is Nothing Then strError = "Su entorno de asp no pudo conectarse a Links Impacto. Si su servidor tambiÃfÂ©n soporta PHP, pruebe ese cÃfÂ³digo en lugar del otro." UseMSXML = False Else hObj.open "POST", "http://www.linksimpacto.com/linkpage.html?" & strQuery, false hObj.setRequestHeader "Content-type", "application/x-www-form-urlencoded" hObj.Send strPost If hObj.status <> 200 Then strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" UseMSXML = False Else strResponse = hObj.responseText UseMSXML = True End If Set hObj = Nothing End If End Function %>

Pintura - Dibujo - Escultura