Precisamente ahora mismo estaba haciendo una simbiosis
entre el código publicado aquí y el mio para eliminar los continuos replace que yo hacía. Pero no consigo que me funcione imprimiendo los resultados obtenidos en las cajas de texto pero sí me funciona si imprimo los resultados por pantalla con un simple response.write
El caso es que os dejo vuestro código de forma que funciona lo de los acentos pero los resultados los imprimo por pantalla del tirón sin ser tan gonito como lo hicieron por aqui
Código PHP:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
Function EncuentraCad(cCad, cDesde, cHasta)
Dim cAct, cOri, nIni, nFin
cAct = Replace(cCad, " ", " ")
cOri = Replace(cAct, Chr(34), "'")
cAct = LCase(Replace(cAct, Chr(34), "'"))
nIni = InStr(1, cAct, cDesde)
If nIni = 0 Then Exit Function
nIni = InStr(1, cAct, cDesde) + Len(cDesde)
nFin = InStr(nIni, cAct, cHasta) - nIni
EncuentraCad = SinFull(Mid(cOri, nIni, nFin))
End Function
Function SinFull(cCad)
Dim i, aCon
aCon = Array("/", "\", "'")
For i = 0 To 2
cCad = Replace(cCad, aCon(i), "")
Next
SinFull = Trim(cCad)
End Function
Sub obtenerInformacion(Url)
Dim HTTP
On Error Resume Next
Set HTTP=Server.CreateObject("Microsoft.XMLHTTP")
HTTP.Open "GET", Url , False
HTTP.setRequestHeader "Accept-Language", "sp"
HTTP.setRequestHeader "Pragma", "no-cache"
HTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
HTTP.Send
If Err.Number<>0 Then
Response.Write "Ha sido imposible encontrar el sitio.<br>"
Response.Write "<a href=javascript:history.back()>Volver</a>"
Else
If HTTP.statusText="OK" then
body8209 = HTTP.responseBody
sOut = ""
For i = 0 To UBound(body8209)
sOut = sOut & chrw(ascw(chr(ascb(midb(body8209,i+1,1)))))
Next
strFileContents=sOut
Else
Response.write "Error obteniendo Página " & HTTP.statustext & " [<a href='javascript:history.back()'>Volver</a>]"
End If
End If
set HTTP = nothing
cTit = EncuentraCad(strFileContents, "<title>", "</title>")
cDescrip = EncuentraCad(strFileContents, "meta name='description' content='", ">")
ckey = EncuentraCad(strFileContents, "meta name='keywords' content='", ">")
' Response.Write("<strong>pagina Indexable</strong><br><br>")
Response.write("<b>Título:</b><br> ")
Response.Write("<textarea class=fBlan name=titulo cols=99 rows=5>" & cTit & "</textarea>")
Response.write("<br><br><b>Keywords:</b><br>")
Response.Write("<textarea class=fBlan cols=99 rows=5 name=keywords>" & ckey & "</textarea>")
Response.write("<br><br><b>Descripción:</b><br>")
Response.Write("<textarea class=fBlan cols=99 rows=5 name=descripcion>" & cDescrip & "</textarea>")
End Sub
%>
<style type="text/css">
body { font-size: 11px; font-family: Verdana }
.fPeq { font-size: 11px; font-family: Verdana }
.fBlan { font-size: 11px; font-family: Verdana; background-color: #FFFFFF; border: 1px solid #A5ACB2 }
.fCafe { font-size: 11px; font-family: Verdana; background-color: #F5E8D8; border: 1px solid #BD7B42 }
</style>
</head>
<body>
<%
If Request.Form("Url") <> "" Then
obtenerInformacion(Request.Form("Url"))
End If
%>
<br>
<br><table width="450" border="0">
<tr><td>
<form name="form1" method="post" action="caracteresEspecialesFdW.asp">
<input class="fBlan" type="text" name="Url" value="<%=Request.Form("Url")%>" size="45" onfocus="this.className='fCafe'" onblur="this.className='fBlan'">
<input class="fPeq" type="submit" name="Submit" value="Indexar">
</form>
</td></tr>
</table>
</body>
</html>
Un beso
P.D.: Donde sa metio el smile
???
