Maldito dBASE!

[majesus]

Estimados amigos:

Estoy desesperado! Hago una lectura de mi base de datos (dBASE IV) -el servidor trabaja en Unix y emplea Chilisoft- y me devuelve los registros almacenados con la maldita particularidad de que las tildes y Ñs los convierte en un código extraño.

http://www.canalpublicidad.com/paginar.asp

Si alguien puede ayudarme, se lo agradecería ...

Un abrazo,

Majesus

<a href="http://www.canalpublicidad.com"><img border="0" src="http://www.canalpublicidad.com/images/banner_crystal_g.gif" width="468" height="60"></a>

[OMiCRoM]

Supongo que se deberá a la conversión...

Lo que puedes hacer es mirar a qué caracteres corresponden las vocales acentuadas y crearte una función similar a la siguiente:

Function acentos(byval texto)
texto=replace(texto,&quot;¢&quot;,&quot;ó&quot;)'E n caso de la ó
texto=replace(texto,&quot;·&quot;,&quot;á&quot;)'E n caso de la ó
'etc con todas las vocales
acentos=texto
End Function

[majesus]

Soy novato; ¿me podrías decir dónde colocar esa función?

&lt;% Option Explicit

'Declaracion de variables
Dim Obj_Conn
Dim Obj_RS
Dim Pagina
Dim Cont
Dim strSQL

'Fin declaracion de variables

%&gt;

&lt;html&gt;
&lt;head&gt;
&lt;/head&gt;
&lt;body&gt;

&lt;%

Set Obj_Conn = CreateObject(&quot;ADODB.Connection&quot;)
Set Obj_RS = CreateObject(&quot;ADODB.Recordset&quot;)

Obj_Conn.Open(&quot;DefaultDir=&quot; &amp; Server.MapPath(&quot;/datos&quot;) &amp; &quot;;Driver={Microsoft dBASE Driver(misdatos.DBF)};&quot;)

strSQL = &quot;SELECT Password, Username, Nombre, Email, Web, Direccion, Pais, Telefono, Comentario FROM misdatos.DBF&quot;



Obj_RS.Open strSQL, Obj_Conn,3,3


IF Obj_RS.EOF THEN

Response.Write &quot;&lt;center&gt;&lt;h1&gt;no existen registros&lt;/h1&gt;&lt;/center&gt;&quot;

ELSE

Obj_RS.PageSize = 5
Pagina = Request.QueryString (&quot;Pagina&quot;)
IF Pagina = &quot;&quot; THEN Pagina = 1 ELSE Pagina = CInt(Pagina)

%&gt;

&lt;table border=&quot;1&quot; align=&quot;center&quot;&gt;

&lt;tr&gt;
&lt;td align=&quot;center&quot;&gt;

&lt;%

IF Pagina &gt; 1 THEN

%&gt;

&lt;a href=&quot;paginar.asp?Pagina=&lt;%=Pagina - 1%&gt;&quot;&gt;

&amp;lt;%lt; Anterior

&lt;/a&gt;

&lt;%
END IF
%&gt;

&lt;/td&gt;
&lt;td align=&quot;center&quot;&gt;

Pagina &lt;%= Pagina %&gt; de &lt;%= Obj_RS.PageCount %&gt;

&lt;/td&gt;
&lt;td align=&quot;center&quot;&gt;

&lt;%
IF Pagina&lt;Obj_RS.PageCount THEN
%&gt;

&lt;a href=&quot;paginar.asp?Pagina=&lt;%=Pagina + 1%&gt;&quot;&gt;

Siguiente &amp;gt;&amp;gt;

&lt;/a&gt;

&lt;%
END IF
%&gt;

&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;

&lt;th&gt;Nombre&lt;/th&gt;
&lt;th&gt;Direccion&lt;/th&gt;
&lt;th&gt;Email&lt;/th&gt;

&lt;/tr&gt;
&lt;%
Obj_RS.AbsolutePage = Pagina
Cont = 0
DO WHILE NOT Obj_RS.Eof
COnt = Cont + 1
IF Cont &gt; Obj_RS.PageSize THEN Exit DO
%&gt;

&lt;tr&gt;
&lt;td&gt;&lt;%= Obj_RS (&quot;Nombre&quot;) %&gt;&lt;/td&gt;
&lt;td&gt;&lt;%= Obj_RS (&quot;Direccion&quot;) %&gt;&lt;/td&gt;
&lt;td&gt;&lt;%= Obj_RS (&quot;Email&quot;) %&gt;&lt;/td&gt;

&lt;/tr&gt;
&lt;%

Obj_RS.MoveNext
LOOP

%&gt;
&lt;/table&gt;
&lt;%
END IF
Obj_RS.Close
Obj_Conn.Close
SET Obj_RS = Nothing
SET Obj_Conn = Nothing
%&gt;

&lt;/body&gt;
&lt;/html&gt;



GRACIAS,

Majesus

<a href="http://www.canalpublicidad.com"><img border="0" src="http://www.canalpublicidad.com/images/banner_crystal_g.gif" width="468" height="60"></a>

[OMiCRoM]

La puedes colocar donde quieras :)

[dagui]

Si esa función la quieres utilizar en varias páginas, la puedes colocar en un archivo llamado funciones.inc o como mejor te provoque. Colocando las funciones que quieras tener (como la que te dió OMiCRoM), entre &lt;% %&gt;. Así:

&lt;%
Function acentos(byval texto)
texto=replace(texto,&quot;¢&quot;,&quot;ó&quot;)'E n caso de la ó
texto=replace(texto,&quot;·&quot;,&quot;á&quot;)'E n caso de la ó
'etc con todas las vocales
acentos=texto
End Function
%&gt;


Y en cualquier página que desees utilizarla, debe colocar:
&lt;!--#INCLUDE FILE=&quot;funciones.inc&quot;--&gt;

Antes del TAG &lt;HTML&gt; o antes del código ASP.

Y haces la llamada a la función en cualquier parte del código.

Suerte.