Javier Mata - WEBMASTER

Obtener valor del dolar con ASP (2 metodos)

2012-01-02T22:05:00.002-06:00

Buscando en varios lugares y despues de usar la primera de las 2 soluciones que muestro a continuacion decidi a intentarlo usando un webservice como el del Banco de Mexico pero al parecer hay un error con su servicio, asi que usare los datos proporcionados via RSS por el DOF (Diario oficial de la Federacion).

Como comente, usaremos 2 metodos para que puedan utilizar el que mejor les acomode, el primero sera usando informacion de HSBC y usando un lector de codigo tomado con XMLHTTP, el segundo es usando el metodo MSXML2.DOMDocument y recorriendo un RSS con el.

Primer metodo, usando como fuente HSBC de Mexico necesitaremos crear una funcion muy simple:

Function tipo_cambio()
'    on error resume next
    Set xml = Server.CreateObject("Microsoft.XMLHTTP")
    xml.Open "GET", "http://www.hsbc.com.mx/1/2/es/personas/divisas", False
    xml.Send
        Cadena = CSTR(xml.responseText)
        PosIni1 = InStr(Cadena,"Americano")
        PosIni2 = InStr(PosIni1,Cadena,"$")
        PosFin = InStr(PosIni2, Cadena,"<")
       DolarCompra = MID(Cadena, PosIni2-2, PosFin-PosIni2)
        PosIni1 = PosFin
        PosIni2 = InStr(PosIni1,Cadena,"$")
        PosFin = InStr(PosIni2, Cadena,"<")
       DolarVenta = MID(Cadena, PosIni2-2, PosFin-PosIni2)
    Set xml = Nothing

    if instr(DolarCompra,chr(32)) then DolarCompra=replace(DolarCompra,chr(32),"")

    dolar_compra=CDbl(MID(DolarCompra,InStr(DolarCompra,">")+1,LEN(DolarCompra)))
    dolar_venta=CDbl(MID(DolarVenta,InStr(DolarVenta,">")+1,LEN(DolarVenta)))

end function

Este metodo lee todo el codigo de la pagina indicada y busca un punto de inicio y otro de final para la lectura de la informacion, aqui sacamos el tipo de compra y de venta.

Para obtener el valor simplemente lo llamamos asi: dolar=tipo_cambio()
En lo personal lo que hago es crear un archivo donde guardo todas las funciones y lo incluyo en el top de mis paginas y ya nada mas llamo a la funcion que necesito,

El segundo metodo es usando RSS (Repito que intente usar un webservice pero no encontre uno "oficial")

La funcion para este metodo es un poco mas larga pero haciendo algunos ajustes puede servirte para muchas mas cosas ;-)

Function LeeXml(responseText)
Dim xmlResponse
Dim xnodelist
Dim indicadores
Dim id, uf, usd, euro, utm, tcm, fecha

indicadores = ""
If Len(responseText) <> 0 Then
Set xmlResponse = CreateObject("MSXML2.DOMDocument")
xmlResponse.async = false
xmlResponse.loadXml responseText
Set xnodelist = xmlResponse.documentElement.selectNodes("/rss/channel/item")
Dim objItem

For Each objItem In xnodelist
   titulo = objItem.selectSingleNode("title").Text
   descripcion = objItem.selectSingleNode("description").Text
   pubDate = objItem.selectSingleNode("pubDate").Text
   if titulo="DOLAR" then dolar=descripcion
Next

indicadores = dolar
End If

LeeXml = indicadores
End Function

Function InvocarWebService (strSoap, strSOAPAction, strURL, ByRef xmlResponse)
    Dim xmlhttp
    Dim blnSuccess

Set xmlhttp = server.CreateObject("WinHttp.WinHttpRequest.5.1")
        xmlhttp.Open "POST", strURL
        xmlhttp.setRequestHeader "Man", "POST " & strURL & " HTTP/1.1"
        xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
        xmlhttp.setRequestHeader "SOAPAction", strSOAPAction
        call xmlhttp.send(strSoap)

        If xmlhttp.Status = 200 Then
            blnSuccess = True
        Else
           blnSuccess = False
        End If

xmlResponse = xmlhttp.ResponseText
        InvocarWebService = blnSuccess
        Set xmlhttp = Nothing
End Function

A este metodo falta agregarle en el archivo donde llamaras la funcion algo asi:

<%strFecha = Request.Form("fecha")
strSoap = "<?xml version='1.0' encoding='utf-8'?>"& _
"<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>"& _
"</soap:Envelope>"
strSOAPAction = "Indicadores/Indicadores"
%>

Y lo llamas asi:

<%
Dim xmlResponse
If InvocarWebService (strSoap, strSOAPAction, "http://www.dof.gob.mx/indicadores.xml", xmlResponse) Then
     'Response.Write(LeeXml(xmlResponse))
    dolar=formatcurrency(LeeXml(xmlResponse),2)
    response.write dolar
Else
    Response.Write "*** Ha ocurrido un Error ***"
End If
Set xmlResponse = Nothing
%>

En este caso, tomo el valor resultante en la variable dolar, le doy formato con 2 decimales y luego lo imprimo

Modificar campos en tabla MySQL con ASP

2011-07-27T13:07:00.001-05:00

Dependera del proyecto, habra ocaciones en las que requiramos el poder modificar los campos existentes en una tabla MySQL, ya sea agregar, eliminar, modificar.

Para eso usaremos la sentencia ALTER.
Para esto usaremos instrucciones como ADD, DROP y CHANGE, para ver mas opciones puedes checar el siguiente link: http://dev.mysql.com/doc/refman/5.0/es/alter-table.html

El proceso es simple, aqui un pequeño ejemplo:

Conectamos con la Base de datos algo asi:

Set conexion = Server.CreateObject("ADODB.Connection")
set rsupdat=server.createobject("ADODB.connection")
conexion.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;DATABASE=db; USER=user;PASSWORD=pass;OPTION=3;"

AGREGAR UN CAMPO
Llamamos a la sentencia ALTER en el SQL, con este agregaremos un campo email, a una tabla llamada test tipo VARCHAT con 60 caracteres y despues del campo id:

sql="ALTER TABLE test ADD email VARCHAR(60) AFTER id"
set rsupdat=conexion.execute(sql)

ELIMINAR UN CAMPO

Usaremos la opcion DROP para eliminar un campo, borraremos el mismo que habiamos creado:

sql="ALTER TABLE test DROP email"
set rsupdat=conexion.execute(sql)

CAMBIAR DE NOMBRE A CAMPO
Cambiaremos el nombre de email a correo y cambiaremos la longitud de 60 a 100 caracteres:

sql="ALTER TABLE test CHANGE email correo VARCHAR(100)"

Enlaces cortos con TinyUrl y ASP

2009-11-16T20:07:00.000-06:00

En algunas aplicaciones web necesitaremos crear enlaces cortos para evitar el clasico http://www.tupagina.com/tipo1=32&variable2=32532 y en cambio obtener algo como http://tinyurl.com/yk6xo6j, quizas tampoco tan facil de recordar pero menos complicado que el anterior, para eso usaremos la API de TinyURL y ASP clasico.

La funcion que usaremos es la siguiente:

function asp_short_url(strUrl)
 Dim oXml,strTinyUrl
 strTinyUrl = "http://tinyurl.com/api-create.php?url=" & strUrl
 set oXml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
 oXml.Open "GET", strTinyUrl, false
 oXml.Send null
 asp_short_url = oXml.responseText
 Set oXml = nothing
End Function

Y la forma de llamarlo es asi:

Response.Write (asp_short_url("http://www.tupagina.com/tipo1=32&variable2=32532"))

Donde la parte en negritas es lo unico que debemos cambiar, es bastante sencillo y util... o eso espero.

Comprobar usuario disponible con ASP y AJAX

2009-11-08T21:44:00.000-06:00

Cuando vamos a crear una cuenta nueva en un sitio es muy molesto el que tengamos que llenar un largo formulario, con campos innecesarios, y encima de eso enterarnos que el usuario que pusimos ya existe, esto nos dara un error en que en el mejor de los casos el sitio nos regresara con los demas datos llenos solicitando solamente ingresemos otro usuario diferente, muchas de estas veces teniendo que ingresar la clave nuevamente.

Esto se puede solucionar muy facil con AJAX, enviando una peticion a la base de datos de usuarios para que compruebe si el que ingresamos existe o no

La magia del codigo nuevamente la hace AJAX, aqui el codigo:

PAGINA ajax.asp:
<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.0 Transitional//EN”>
<HTML>
<HEAD>
<TITLE>ASP and AJAX username availability check</TITLE>
<script language=”javascript”>
function OnChangedUsername()
{
if(document.form1.newuserid.value == “”)
{
document.form1.btnCheckAvailability.disabled = true;
}
else
{
document.form1.btnCheckAvailability.disabled = false;
}
}
function createRequestObject() {
var ro;
var browser = navigator.appName;
if(browser == “Microsoft Internet Explorer”){
ro = new ActiveXObject(”Microsoft.XMLHTTP”);
}else{
ro = new XMLHttpRequest();
}
return ro;
}
var http = createRequestObject();
function sndReq() {
http.open(’get’, ‘ajax_username.asp?username=’+document.form1.newuserid.value);
http.onreadystatechange = handleResponse;
http.send(null);
}
function handleResponse() {
if(http.readyState == 4){
var response = http.responseText;
var update = new Array();
if(response.indexOf(’|’ != -1)) {
update = response.split(’|');
document.getElementById(”username_chk”).innerHTML = update[0];
}
}
}
</script>
</HEAD>
<BODY>
<form method=”post” action=”javascript:void(0);” name=”form1″>
<table>
<tr>
<td><input type=”newuserid” name=”newuserid” id=”newuserid” size=”20″ onKeyUp=”OnChangedUsername();” />
</td>
</tr>
<tr>
<td><input id=”btnCheckAvailability” type=”button”disabled=”disabled” value=”Check Availability”onClick=”sndReq();”></td>
</tr>
<tr>
<td><div ID=”username_chk”></div></td>
</tr>
<tr>
<td>Brought to you by <a href=”http://strangework.com” target=”_blank”>Brad Williams</a></td>
</tr>
</table>
</form>
</BODY>
</HTML>

PAGINA ajax_username.asp:
<%
Set username = Request.QueryString(”username”)
‘*** INICIAR TU CONEXION DNS-LESS
db_username = “username” ‘DB username
db_password = “password” ‘DB password
db_catalog = “database_name” ‘DB name
dp_datasource = “192.168.1.1″ ‘DB IP
‘*** TERMINA TU CONEXION DNS-LESS
'PUEDES CAMBIAR LO DE ARRIBA POR TUS PROPIAS LINEAS DE CONEXION

Set conn = Server.CreateObject(”ADODB.Connection”)
conn.CommandTimeout = 0
c=”Provider=SQLOLEDB.1;User ID=” & db_username & “;password=”& db_password & “;Initial Catalog=” & db_catalog &“;Data Source=” & dp_datasource & “;Use Procedure forPrepare=1;Auto Translate=True;Packet Size=4096″
conn.Open c
‘*** AJUSTA ESTE SELECT PARA QUE COMPRUEBE CON LOS NOMBRES REALES DE TU TABLA
SQL = “SELECT username FROM table WHERE username=’” & username & “‘ ”
Set chk_username = Server.CreateObject(”ADODB.Recordset”)
chk_username.Open SQL, conn, 3, 3
If chk_username.EOF = False then
response.write “USUARIO NO DISPONIBLE”
Else
response.write “USUARIO DISPONIBLE”
End if
chk_username.close
set chk_username = nothing
conn.close
set conn = nothing
%>

Modificar nuestro estado en Twitter usando ASP

2009-11-08T21:26:00.000-06:00

Bueno, a veces queremos hacer aplicaciones en las que requerimos de utilizar servicios de otros sitios, en este caso pondre un ejemplo de como actualizar nuestro estado en Twitter utilizando su API y ASP

El codigo es corto y sencillo de entender:

<%
Response.Buffer = True
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

twitter_username = "username" ‘CAMBIAR POR TU USUARIO EN TWITTER
twitter_password = "password" ‘CAMBIAR POR TU CLAVE EN TWITTER

new_status = "visita blog.creandowebs.com!" ‘CAMBIA POR EL NUEVO STATUS

xml.Open "POST", "http://" & twitter_username & ":" & twitter_password & "@twitter.com/statuses/update.xml?status=" & server.URLencode(new_status), False
xml.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
xml.Send

Response.Write xml.responseText ‘VER LA RESPUESTA DE TWITTER

Set xml = Nothing
%>

Como vez es sencillo, puedes implementarlo utilizando un FORM para enviarle la informacion al archivo con el codigo anterior

Generar RSS usando ASP y una BD

2009-10-31T11:52:00.000-06:00

Muchos hemos necesitado o deseado crear archivos RSS con el contenido de nuestros sitios, la verdad es mas facil de lo que pareciera, claro, despues de leer e investigar me di cuenta de ello, aqui pretendo compartir el como

Primero creamos el archivo RSS que puede incluso tener la extension ASP, por ejemplo rss.asp y pegamos algo asi:

 <%' ARCHIVO CON LA CONEXION A LA BD%>

<%
'DSN-Less database connection
Query="SELECT * from tabla ORDER by ID desc" 'CREAMOS EL QUERY
RS.Open Query, conexion,1,1 'ABRIMOS EL QUERY

'XML OUTPUT
'AQUI CREAMOS LA SALIDA XML NECESARIA DANDOLE EL FORMATO Y ENCABEZADO

Dim fldF
Response.ContentType = "text/xml"
Response.Write "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & vbCrlf
Response.Write "<rss version=""2.0"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:content=""http://purl.org/rss/1.0/modules/content/"">" & vbCrlf
Response.Write "<channel>" & vbCrlf
Response.Write "<title>TITULO</title>" & vbCrlf
Response.Write "<link>http://www.TUWEB.com</link>" & vbCrlf
Response.Write "<description>DESCRIPCION</description>" & vbCrlf
REsponse.Write "<language>es</language>" & vbCrlf

'A loop to collect all the articles
do while not RS.EOF and cuenta<10 'LIMITO A 10 EL DESPLIEGUE, SI USAR MYSQL PUEDES HACERLO DESDE EL QUERY CON LIMIT

'REALIZO UNOS REPLACES PARA BORRAR CONTENIDO DEL CAMPO

comentario=replace(comentario,"á","á")
comentario=replace(comentario,"é","é")
comentario=replace(comentario,"í","í")
comentario=replace(comentario,"ó","ó")
comentario=replace(comentario,"ú","ú")

cuenta=cuenta+1

Response.Write "<item>" & vbCrlf
Response.Write "<title>" & RS("title") & "</title>" & vbCrlf
Response.Write "<link>http://www.TUWEB.com/articulos.asp?id="&rs("id")&"</link>" & vbCrlf
Response.Write "<description>" & vbCrlf
Response.Write "<![CDATA[" & vbCrlf
Response.Write comentario & "]]>" & vbCrlf
Response.Write "</description>" & vbCrlf
Response.Write "<guid isPermaLink=""true"">http://www.TUWEB.com/articulos.asp?id="&rs("id")&"</guid>" & vbCrlf
Response.Write "</item>" & vbCrlf

RS.MoveNext
Loop
Response.Write "</channel>" & vbCrlf
Response.Write "</rss>" & vbCrlf

RS.Close
set RS = nothing
%>
Y listo, ese es el archivo ASP que debemos crear, no se si necesite mas explicaciones, si es asi, espero sus comentarios.

El anterior es una pequeña modificacion del original en http://www.cristovivo.com/rss.asp

Subir archivos sin componentes en ASP con Xelupload

2009-10-16T12:12:00.012-05:00

Quieres subir ficheros al servidor mediante un formulario, con uno o varios campos de tipo FILE, pero no puedes utilizar ASPUpload, no quieres pagarlo o no puedes registrar componentes. Aquí tienes una completa solución de upload de ficheros, escrita 100% en ASP y VBScript.

Introducción

Subir ficheros al servidor mediante un formulario es una opción que nos brinda HTML muy poderosa, en
cuanto que nos permite crear aplicaciones web más completas: podemos hacer nuestro propio sistema
de FTP casero, vía web, podemos dejar a nuestros colaboradores que suban sus imágenes, etc. todo
a través de una página web.
Lamentablemente, ASP no nos proporciona un mecanismo automático para procesar este tipo de envíos. Por esto,
se hace necesario extender el entorno ASP, bien con productos comerciales como ASPUpload y SA-FileUp, o bien
escribiendo nuestro propio programa.
El problema de utilizar componentes, ya sean propios o comprados (o pirateados... ¿quién ha dicho eso?) es
que en muchos planes de alojamiento no nos es posible registrar estos componentes. En estos casos, la única
solución es programarlo mediante puro código ASP, y eso es lo que he hecho.

Requerimientos

xelUpload es el nombre de una clase de VBScript que presenta propiedades y métodos para manejar
el envío de ficheros al servidor. Su único requerimiento es disponer de la versión 5 o superior del motor de script. Para ver
qué versión tienes disponible, puedes escribir:
Response.Write ScriptEngineMajorVersion
Si ves un 5, todo es correcto. Si no, puedes descargar gratis la última versión desde el sitio de Microsoft sobre script, o instalar Internet Explorer 5 o
superior, que la incluye entre sus ficheros.
Por si no lo sabíais, para que el fichero llegue correctamente al servidor, tenemos que añadir un atributo más a la marca FORM, el que especifica la codificación del formulario al enviarlo, y nos permite subir datos binarios, así:
<form action="pagina.asp" method="post" enctype="multipart/form-data">

Cómo se usa

¿Cómo funciona xelUpload? Lo primero que tenemos que hacer es incluir el fichero, mediante:

si está el mismo directorio o

si está en otra ruta virtual, en este caso, en /includes/.
Después, debemos crear una instancia del objeto, y llamar al método Upload para comenzar
el proceso en la página que recibe el formulario.

<%Dim objUploadobjUpload.Upload()%>

El objeto xelUpload, una vez llamado su método Upload, guardará los ficheros enviados con el formulario en la colección Ficheros, y los campos de texto normales en la colección eltosForm. La primera contiene objetos de tipo Fichero, que es otra clase que también incluyo, y a los elementos de la segunda se
puede acceder con objUpload.Form("campo"), que es bastante familiar. ;-)
Para saber el número de ficheros subidos correctamente, podemos utilizar:
Response.Write objUpload.Ficheros.Count & " ficheros subidos."
Para acceder a las propiedades y métodos de cada Fichero subido, podemos recorrer la colección, o bien acceder directamente a uno, con el nombre del campo INPUT que tuviera el formulario:

Dim objUpload, objFicheroobjUpload.Upload()'si teníamos <input type="file" name="imagen">set objFichero = objUpload.Ficheros("imagen")'recorremos todos:for each objFichero in objUpload.Ficheros.Items...next

NOTA: El fichero ZIP con el código, documentación y un ejemplo está disponible al final del artículo.

Propiedades y métodos

Para ver en detalle qué podemos hacer con los ficheros una vez subidos, veamos qué nos ofrece la clase xelUpload y la clase Fichero, respectivamente:

xelUpload
Propiedades
`Form(nombrecontrol)`	Devuelve el campo del formulario de nombre "nombrecontrol". Equivale completamente a `Request.Form(nombrecontrol)`.
Métodos
`Upload`	Realiza el proceso de recepción del formulario y almacena los resultados. Es imprescindible llamar a este método antes de acceder a las demás propiedades o colecciones del objeto xelUpload.
Colecciones
`Ficheros`	Contiene una colección de objetos `Fichero`, uno por cada fichero enviado correctamente desde el formulario.
Fichero
Propiedades
`Nombre`	Devuelve el nombre original del fichero, sin la ruta en el disco del usuario. Por ejemplo, mickeymouse.gif.
`Tamano`	Devuelve el tamaño en bytes del fichero.
`TipoContenido`	Devuelve el tipo de contenido del fichero en una cadena, si es reconocido por el servidor, o bien "application/octet-stream". Por ejemplo, para la imagen anterior, devolvería "image/gif".
`Datos`	Devuelve los datos binarios puros del fichero.
Métodos
`Guardar ruta`	Salva el fichero en disco en el servidor, con el nombre original, en la ruta pasada como argumento. Debe ser una ruta física, no virtual, así que probablemente utilizaremos `Server.MapPath`, así: `objFichero.Guardar (Server.MapPath("\upload"))`
`GuardarComo nombre, ruta`	Salva el fichero en disco, con el nombre especificado, en la ruta especificada. El nombre debe ser un nombre de fichero válido y la ruta, una ruta física.
`GuardarBD objFld`	Guarda el contenido del fichero en el objeto `Field` de ADO pasado como argumento. Más abajo os explico cómo hacer esto.

Como ves, la interfaz es bastante flexible. Como siempre, todo esto se ve mejor con un ejemplo, así que vamos a ello.
Supongamos que enviamos un formulario como este:

<form action="pagina.asp" method="post" enctype="multipart/form-data">Nombre: <input type="text" name="usuario" size="20"><br>Edad: <input type="text" name="edad" size="5"><br><input type="file" name="imagen"><br><input type="submit" value="Enviar"></form>

En la página que lo recibe y que hemos especificado en el atributo ACTION, pagina.asp, utilizamos nuestro superpoderoso y versátil xelUpload (se nota que estoy contento, ¿eh?) para ver el tipo de fichero que nos envía y su tamaño. Si es una imagen GIF y no supera los 15k (15*1024 bytes), la guardamos en dos directorios distintos (vale, esto no será muy normal, pero tengo que ilustrar los métodos) y en una base de datos, en una hipotética tabla usuarios que guarda (¿puedes imaginarlo?) el nombre, la edad, y una imagen GIF (supuestamente del usuario, aunque en GIF y menos de 15k... ¡ejem!).
No vamos a guardar sólo el nombre del fichero: vamos a guardar la imagen completa en una base de datos Access.

Este es el código de nuestra página que recibe el formulario

<%'pagina.asp%><!--#include file="xelupload.asp"--><%Dim oConn, rs, SQLDim objUpload, objFich, strNombre, strEdadDim maxtam, strNombreFichero'nuestro tamaño máximomaxtam = 15 * 1024set objUpload = new xelUploadobjUpload.Upload()'recuperamos los campos usuario y edadstrNombre = objUpload.Form("usuario")strEdad = objUpload.Form("edad")'si no ha subido ningún fichero, le avisamosif objUpload.Ficheros.Count = 0 thenResponse.Write("¡No has subido ningún fichero!")else'accedemos al fichero por su nombre en el formularioset objFich = objUpload.Ficheros("imagen")if objFich.Tamano <= maxtam and objFich.TipoContenido = "image/gif" then'Es el fichero correcto, vamos a guardarlo en todas partes. :-)'Primero, en nuestro directorio actual con el nombre que tieneobjFich.Guardar Server.MapPath(".")'Ahora, en el directorio upload, con la fecha de hoy como nombrestrNombreFichero = Day(Date) & Month(Date) & Year(Date)objFich.GuardarComo strNombreFichero, Server.MapPath("upload")'Ahora nos conectamos a una base de datosset oConn = Server.CreateObject("ADODB.Connection")set rs = Server.CreateObject("ADODB.Recordset")'Nos conectamos con ODBC sin DSN, suponiendo que la base'de datos está en este mismo directoriooConn.Open "Driver={Microsoft Access Driver (*.mdb)};" _& "DBQ=" & Server.MapPath("usuarios.mdb")SQL = "SELECT * FROM usuarios"'Abrimos el Recordset: el 0 es el cursor adForwardOnly' y el 2 es el cerrojo adLockPessimisticrs.Open SQL, oConn, 0, 2'Añadimos un nuevo registrors.AddNewrs.Fields("Nombre") = strNombrers.Fields("Edad") = strEdadrs.Fields("NombreFichero") = objFich.Nombre'Llamamos a GuardarBD pasandole el campo correspondiente!!!objFich.GuardarBD rs.Fields("Imagen")'Guardamos el nuevo registrors.Update'y limpiamos todo que vienen los padresrs.Closeset rs = nothingoConn.Closeset oConn = nothing'¡Todo correcto!Response.Write "Se ha añadido el nuevo usuario <b>" & strNombre & "</b>, "  _& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."'Limpiamos nuestro xelUpload y el ficheroset oFich = nothingset objUpload = nothingelse'No era un fichero válidoResponse.Write("No es un fichero aceptable. ")Response.Write("Tiene que ser un fichero GIF de menos de 15k.")end ifend if%>

En este código véis todas las posibilidades que ofrece xelUpload. La tabla usuarios que utilizamos tiene esta estructura:

Nombre del campo	Tipo de datos
ID_Usuario	Autonumérico
Nombre	Texto
Edad	Texto
NombreFichero	Texto
Imagen	Objeto OLE

Como véis, Objeto OLE es el tipo que acepta datos binarios en Access. En SQL Server el equivalente es image, que es de tipo binario y acepta más de 8.000 bytes, o binary si guardamos menos de 8.000 bytes.

Observaciones, notas, etc

Hay una restricción importante del objeto Request, que hace imprescindible incluir el manejo de los campos normales de un formulario dentro del programa que maneje los ficheros subidos: que después de utilizar Request.BinaryRead no se puede utilizar Request.Form y viceversa. Así que tenéis que utilizar la propiedad Form de vuestro objeto xelUpload para leer los campos habituales de un formulario.

Fuente: AspFacil
Archivo: Xelupload

xelupload.zip

Un poco de AJAX con ASP

2009-02-06T21:25:00.008-06:00

Bueno, muchas veces tenemos paginas muy bonitas o con buenos sistemas pero con diseño a la antiguita, es decir, con programacion que hace que cada que se carga un enlace nuevo tenemos que recargar toda la pagina, AJAX nos permite hacer cargas de partes de codigo sin tener que recargar la pagina completa y las demoras y molestias que esto genera.

Aqui les mostrare de manera muy basica pero funcional como usar esta tecnologia en nuestras paginas, ya dependera de la creatividad de cada quien el uso que le den.

Para implementar esto debemos identificar 3 cosas, un archivo .JS que llama a AJAX, segundo un boton, enlace, formulario o parte que pudiera llamar una funcion Javascript, y tercero, un DIV donde se desplegara el resultado, ahora explico cada una.

Primero y antes que nada necesitamos el archivo .JS el cual les pongo aqui ajax_loader.js para su descarga, el cual llamaremos en nuestra pagina asi:
<script src="ajax_loader.js" type="text/javascript"></script>

Esto dentro de las etiquetas <head></head>

Despues necesitaremos el metodo que llame a la funcion que realizara la magia del asunto, en este caso pondre un SELECT con un codigo algo asi:


<select name="prueba"  onchange="htmlData('ajax.asp', 'resultado', 'envia='+this.value)">
<option value="1">OPCION 1</option>
<option value="2">OPCION 2</option>
<option value="3">OPCION 3</option>
</select>

<div id="resultado"></div>

Donde lo que esta en negritas es lo que hay que cambiar segun sea el caso:
ajax.asp: es el archivo que procesara la informacion a publicar
resultado: es el nombre del DIV donde se mostrara el resultado
envia='+this.value: es donde podremos poner informacion que se enviara mediante el metodo GET como el que se usa en los formularios, podria ser diferente, hay que contemplar que es la informacion que recibira el archivo y que se usara para la informacion que se procese, otro ejemplo podria ser algo asi a=1&b=2&c=3, en el ejemplo de arriba se toma el valor del SELECT usando algo de JAVASCRIPT.

Resumiendo:
- Hay que generar e incrustar el archivo .JS ajax_loader.js
- Agregar el codigo que llame a la funcion htmlData() dentro de algun sistema que lo permita
- Generar el archivo ASP que procesara la informacion que se envie en la funcion anterior, en el ejemplo es ajax.asp.

Se puede ver un ejemplo aqui.

En el ejemplo de la pagina se usaron los siguientes codigos:
PAGINA ejemplo_ajax.asp (Contenedora del script y del SELECT)


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Ejemplo de AJAX</title>
<script src="ajax_loader.js" type="text/javascript"></script>
</head>

<body>
<form action="javascript:void%200">
 <select name="prueba" onchange="htmlData('ajax.asp', 'resultado', 'muestra=HOLA&prueba='+this.value)">
 <option value="">SELECCIONA UNA OPCION</option>
 <option value="1">OPCION 1</option>
 <option value="2">OPCION 2</option>
 <option value="3">OPCION 3</option>
 </select>
</form>

<div id="resultado">TEXTO ORIGINAL</div>
<br /><br />
<%=now()%>
</body>
</html>

PAGINA ajax.asp (La que procesa la info a publicar)


<%Response.CharSet = "ISO-8859-1"
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0

muestra=request.QueryString("muestra")
prueba=request.QueryString("prueba")

if prueba="" then
response.write "NO HAS SELECCIONADO NADA"
else
response.write "MUESTRA:" & muestra & "<br>"
response.write "OPCION SELECCIONADA:" & prueba & "<br><br>"
response.write now()
end if
%>

Realmente es algo que me esta moviendo mucho el usar esta tecnologia por la agilidad que le da a nuestros sistemas, espero que la explicacion haya sigo clara y puedas probarlo.

Saber cotizacion del Dolar-Peso MX con ASP

2008-10-22T22:01:00.003-05:00

Existiran algunas veces en las que necesites saber el precio actual del dolar en pesos, para esto puedes usar informacion de algunos bancos, en este caso utilizo la de HSBC, una vez obtenida la info pues podras hacer con ella cuentas o lo que quieras con ella.

El sistema funciona con el siguiente codigo:


 Response.Buffer = True
 Set xml = Server.CreateObject("Microsoft.XMLHTTP")
 xml.Open "GET", "http://dsrefa01.hsbc.com.mx/aptrix/InternetPub.nsf/Content/TasasSplash", False
 xml.Send
    Cadena = CSTR(xml.responseText)
    PosIni1 = InStr(Cadena,"DOLAR AMERICANO")
    PosIni2 = InStr(PosIni1,Cadena,"$")
    PosFin  = InStr(PosIni2, Cadena,"<")    DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)      PosIni1 = PosFin      PosIni2 = InStr(PosIni1,Cadena,"$")      PosFin  = InStr(PosIni2, Cadena,"<")    DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)  Set xml = Nothing

El resultado quedara en las variables DolarCompra y DolarVenta

Espero te sirva de algo

Whois con ASP

2008-10-22T21:44:00.011-05:00

Muchos me han preguntado como se puede hacer un Whois para sus paginas, he aqui uno, que utiliza datos de internic y de Nic Mexico.

Este whois sirve para checar la disponibilidad de los dominios.


'Poner tiempo de espera a 90min
Server.ScriptTimeout = 90

'Whois function to query the whois server
Private Function whoisResult(whoisURL, strMethod, strResultsStart, strResultsEnd)

 'Dimension variables
Dim objXMLHTTP
 Dim strWhoisResultString

 Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

  objXMLHTTP.Open strMethod, whoisURL, False
 
  objXMLHTTP.Send

  strWhoisResultString = objXMLHTTP.ResponseText

  If Len(strDomainName) < whoisresult = "No Valido - debe tener por lo menos 3 caracteres" whoisresult = "A ocurrido un error" whoisresult =" resultFormater(strWhoisResultString," objxmlhttp =" Nothing" lngresultsstartpos =" InStr(1," lngresultsendpos =" InStr(lngResultsStartPos," lngresultsstartpos ="<" lngresultsendpos =" lngResultsStartPos" resultformater =" Trim(Mid(strWhoisResultString," intloopcounter =" 0" strtextinput =" Replace(strTextInput," intloopcounter =" 46" strtextinput =" Replace(strTextInput," intloopcounter =" 58" strtextinput =" Replace(strTextInput," intloopcounter =" 123" strtextinput =" Replace(strTextInput," characterstrip =" strTextInput"> "" Then

 strDomainName = LCase(strDomainName)

 strDomainName = Replace(strDomainName, "http://", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, "www.", "", 1, -1, 1)

 strDomainName = Replace(strDomainName, ".com", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".net", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".org", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".info", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".biz", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".tv", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".name", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".co.uk", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".org.uk", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".ltd.uk", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".plc.uk", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".net.uk", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".me.uk", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".pn.uk", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".com.mx", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".net.mx", "", 1, -1, 1)
 strDomainName = Replace(strDomainName, ".org.mx", "", 1, -1, 1)

 If Left(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 2, Len(strDomainName))
 If Right(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 1, Len(strDomainName)-1)

 strDomainName = Replace(strDomainName, "--", "-", 1, -1, 1)

 strDomainName = characterStrip(strDomainName)
End If

If strDomainName <> "" Then
 Response.Write("

")

Response.Write("Resultados de la busqueda de
www." & strDomainName & strSuffix & "

")
     
 If strSuffix = ".com" Then
 Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "

", "
"))  ElseIf strSuffix = ".net" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".net&type=domain", "GET", "
", "
")) ElseIf strSuffix = ".org" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".org&type=domain", "GET", "
", "
")) ElseIf strSuffix = ".biz" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".biz&type=domain", "GET", "
", "
")) ElseIf strSuffix = ".info" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".info&type=domain", "GET", "
", "
")) ElseIf strSuffix = ".com.mx" Then Response.Write(whoisResult("http://www.sitiosweb.com.mx/whois/example.php?domain=" & strDomainName & strSuffix & "&domain_type=1&template_type=&object_type_1=&object_type_2=&object_type_3=3&text=" & strDomainName & "&current_page=Busqueda.Who_Is_2", "GET", "Este dominio esta disponible")) ElseIf strSuffix = ".net.mx" Then Response.Write(whoisResult("http://www.sitiosweb.com.mx/whois/example.php?domain=" & strDomainName & strSuffix & "&domain_type=3&template_type=&object_type_1=&object_type_2=&object_type_3=3&text=" & strDomainName & "&current_page=Busqueda.Who_Is_2", "GET", "Este dominio esta disponible")) ElseIf strSuffix = ".org.mx" Then Response.Write(whoisResult("http://www.sitiosweb.com.mx/whois/example.php?domain=" & strDomainName & strSuffix & "&domain_type=5&template_type=&object_type_1=&object_type_2=&object_type_3=3&text=" & strDomainName & "&current_page=Busqueda.Who_Is_2", "GET", "Este dominio esta disponible"))End If Response.Write("
")End If

Espero les sirva

Contar resultados en MySQL y ASP

2008-10-22T21:36:00.005-05:00

Normalmente cuando comenzamos a programar en ASP comenzamos con tablas Access, las cuales son muy utiles hasta cierto punto, cuando ya has migrado a MySQL (Muy recomendable) algunas cosas cambian, como el hecho de mostrar los resultados de una consulta.

En Access usamos algo asi:

SQL="Select * From TABLA"
RS.Open SQL, oConn,1,1
cuantos=RS.RecordCount

Pero en MySQL la cosa cambia, si usamos esa tecnica el resultado sera un horrible -1, para corregir esto hay que usar lo siguiente:

Simplemente agrega esto:

RS.CursorLocation = 3

Antes del RS.Open

Y Walaa, espero te sirva.

Funcion para convertir entre ASCII y Caracteres en ASP

2008-09-29T11:25:00.005-05:00

Esta funcion puede servir para por ejemplo cuando queremos hacer una validacion de usuarios respetanto mayusculas y minusculas (cosa que no hace ASP). Tenemos la opcion de convertir los caracteres por su valor en ASCII y viceversa, la funcion es:

Function StringToAscii(str)
Dim result, x
StringToAscii = ""
If Len(str)=0 Then Exit Function
If Len(str)=1 Then
result = Asc(Mid(str, 1, 1))
StringToAscii = Left("000", 3-Len(CStr(result))) & CStr(result)
Exit Function
End If
result = ""
For x=1 To Len(str)
result = result & StringToAscii(Mid(str, x, 1))
Next
StringToAscii = result
End Function

Function AsciiToString(str)
Dim result, x
AsciiToString = ""
If Len(str)<3 Then Exit Function
If Len(str)=3 Then
AsciiToString = Chr(CInt(str))
Exit Function
End If
result = ""
For x=1 To Len(str) Step 3
result = result & AsciiToString(Mid(str, x, 3))
Next
AsciiToString = result
End Function

'usage
Dim myString, strASCII
myString = "hello world"
strASCII = StringToAscii(myString)
Response.Write("original string: " & myString & "
")
Response.Write("ASCII: " & strASCII & "
")
Response.Write("back to string: " & AsciiToString(strASCII) & "
")

Tips para Firefox

2008-06-07T20:33:00.004-05:00

Todos hemos adoptado a nuestro navegador (browser) favorito, el mio es Firefox por muchas razones que no son el tema de este post profundizar. Para los que como yo han adoptado a este navegador o lo usan eventualmente les paso unos tips de configuracion para que su uso sea todavia mejor. Para esto consideraremos la version en español de Firefox, si usas la version en ingles no creo que tengas problemas para encontrar las opciones.

Más espacio en pantalla.
Si quieres tener mas espacio en tu pantalla de navegacion te recomiendo que reduzcas el tamaño de los iconos del mismo, para esto ve a Ver / Barras de herramientas / Personalizar / Usar iconos pequeños.

Atajos de teclado.
Aqui te muestro algunos atajos del teclado para el navegador:
* Barra espaciadora (Avanzar en la pagina)
* Shift-Barra espaciadora (Subir en la pagina)
* Ctrl+F (Buscar)
* Alt-N (Buscar siguiente)
* Ctrl+D (Marcadores)
* Ctrl+T (Nueva pestaña)
* Ctrl+K (Ir a la caja de busqueda)
* Ctrl+L (Ir a la caja de direccion)
* Ctrl+= (incrementar tamaño de texto)
* Ctrl+- (reducir tamaño de texto)
* Ctrl-W (cerrar pestaña)
* F5 (recargar)
* Alt-Home (Ir a la pagina de inicio)

Auto-completar.
Este es otro atajo del teclado muy interesante pero comunmente no utilizado, hay que irnos a la barra de direccion (Ctrl + L) y escribe un nombre como por ejemplo google y despues presiona Ctrl + Enter para agregar a lo escrito el www. y el .com. con lo que nos quedara completa la url (www.google.com).

Para mas opciones de extensiones usa Shift + Enter para .net y para .org Shift + Ctrl + Enter.

Navegar por las pestañas.
Para movernos entre las pestañas usa las siguientes combinaciones:
* Ctrl+Tab (Intercambiar entre las pestañas hacia adelante)
* Ctrl+Shft+Tab (Intercambiar hacia atras en las pestañas)
* Ctrl+1-9 (Selecciona el numero de saltos entre las pestañas)

About:config
Un poderoso editor de configuracion de nuestro navegador esta en el mismo, tecleando about:config en la barra de direccion. Para opciones de este editor visita http://mozillazine.org/misc/about:config/

Acelera tu Firefox.
Si usas banda ancha para conectarte a internet (como la mayoria) puedes usar una seccion de la configuracion llamada pipeline para acelerar la carga y navegacion por las paginas, para esto has lo siguiente:

* Escribe “about:config” en la barra de direccion y presiona Enter. Escribe “network.http” en el campo de Filtro, y cambia la siguiente configuracion (doble click sobre la opcion a cambiar):
* Pon “network.http.pipelining” a “true”
* Pon “network.http.proxy.pipelining” a “true”
* Pon “network.http.pipelining.maxrequests” a un numero como 30. Esto permite realizar 30 solicitudes al mismo tiempo.
* Ahora, click derecho en una parte en blanco y selecciona Nuevo-> Entero. Nombralo “nglayout.initialpaint.delay” y pon el valor en "0″. Este valor es el tiempo que el navegador esperara entre la espera y la muestra de la informacion recibida.

Limitar el uso de RAM.
Si Firefox consume mucha memoria en tu maquina puedes limitar la RAM permitida para el uso del navegador, en about:config ingresa browser.cache y selecciona “browser.cache.disk.capacity” y ponle la cantidad de memoria que desees asignarle intenta poner 15000 si tienes entre 512mb y 1gb de memoria.

Reducir el uso de RAM al minimizar.
Con esto puedes liberar memoria utilizada por el navegador cuando este se minimiza, para ello ingresa al editor about:config y crea un nuevo registro (Click derecho / Nuevo -> Logico) y nombralo "config.trim_on_minimize" y con valor TRUE y reinicia Firefox.

Remover el boton Cerrar pestaña
Si continuamente cierras por accidente pestañas o simplemente quiere quitar el boton de cerrado de pestañas de las mismas haz lo siguiente, en el editor about:config busca la opcion “browser.tabs.closeButtons” y selecciona un valor de los siguientes:

* 0: Mostrar el boton de cerrado en la pestaña activa solamente.
* 1: (Default) Mostrar boton de cerrar en todas las pestañas
* 2: No mostrar el boton de cerrado en ninguna pestaña
* 3: Mostrar un boton de cerrado al final de la barra de pestañas

Quitar marcos y activar Flash en IE

2007-10-30T12:49:00.002-06:00

Resulta muy molesto que debido a problemas de intereses ahora el IE (Internet Explorer) bloquee de alguna manera los Flash de las paginas web obligandonos a activarlo con un click encima de la animación o bien presionando la barra espaciadora o Enter para que quede disponible para usarlo.

Se conocen varios hacks para evitar esto, a mi el que me ha funcionado muy bien es este metodo:
1.- Descargar el archivo flashobject.js

2.- Agregar la incursion del mismo en la pagina asi:
<script type="text/javascript" src="flashobject.js"></script>
Entre las etiquetas <HEAD></HEAD>

3.- Llamar a nuestro flash con el siguiente codigo:
<div id="top">

</div>
<script type="text/javascript">
var mymovie = new FlashObject("top.swf", "top", "750", "350", "7", "");
mymovie.addParam("menu", "false");
mymovie.write("top");
</script>

cambiando lo que esta en negritas y que se refiere al archivo, ancho y alto respectivamente y listo, el flash deberá ahora mostrarse sin el molesto marco ni tener que activarlo.

"Includes" con JS usando XML

2006-07-07T10:33:00.001-05:00

Muchas veces tenemos paginas en servidores que no soportan los Server Side Includes, con este script podemos agregar una pagina como un include pero siendo Client Side Include :-D .

NOTA: Algunos servidores, sobretodo gratuitos marcan un error con este script, por lo que no se garantiza que a todos les sirva

Para instalar el script coloca lo siguiente entre las etiquetas <head></head>

<script type="text/javascript">
function include(xUrl,xId) {

var xmlhttp = false;

/*@cc_on @*/

/*@if (@_jscript_version >= 5)

// JScript gives us Conditional compilation, we can cope with old IE versions.
// and security blocked creation of the objects.

try {
xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (E) {
xmlhttp = false;
}
}

/*@end @*/

if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
xmlhttp = new XMLHttpRequest();
}

xmlhttp.open("GET", xUrl,true);
xmlhttp.onreadystatechange=function() {

if (xmlhttp.readyState==4) {
document.getElementById(xId).innerHTML = xmlhttp.responseText;
}
}
xmlhttp.send(null)

}
</script>

Y ahora llamamos la funcion asi:
<div id="'xjam"></div>
<script type="text/javascript">
include('contenido.htm', "xjam");
</script>

Donde cambiaremos el archivo a incluir que es lo marcado en negritas

PNG y sus transparencias en IE

2006-06-22T11:33:00.001-05:00

De muchos es sabido que el IE no trabaja bien las transparencias de los archivos PNG que las contengan, esta es una de las tantas fallas del IE, pero pues todo tiene solucion y esta es algo facil de implementar y corregir, existen PNG's que podemos usar como imagenes dentro de la pagina o bien como fondos, para ambos casos tenemos las mismas opciones

Usar GIF's aunque perdamos calidad
Utilizar otro navegador como el Mozilla Firefox y tirar el IE a la basura
Implementar un pequeño script para solucionar esta falla

Para la opcion 1 pues habria que tener en cuenta que el archivo GIF no te dara la calidad de los PNG's, ademas de que estos solo soportan un canal de transparencia, por lo que no podrias hacer degradados transparentes.

Para la segunda pues que mas quisieramos los diseñadores que pudiera tomarse como una opcion, en realidad hay mucha gente que usa el navegador que viene con su sistema operativo y no le interesa probar algun otro por mejor que pueda ser, asi que por lo pronto optaremos por la tercera opcion.

Este script lo que hace es que si el navegador es el IE aplique a los PNG automaticamente un filtro Alpha para las transparencias, como comento arriba, no hay mas que hacer mas que pegar esto, el script lo hace todo solo :-D



Otra de las opciones de uso de un PNG es para fondos, esto se puede solucionar con lo siguiente entre las etiquetas head:

<style type="text/css">

</style>

* html Esto hace que se ponga un fondo para unos navegadores y ese mismo con un filtro al IE

Hay que cambiar logoGDE.png por la imagen de fondo que vamos a usar

En la tabla se pone id="fondo" yo lo puse en una tabla, si se pone en la etiqueta <table> y la tabla tiene bordes sobrepondra la imagen a los bordes, si se pone en el <td> no.

Probado en: Firefox 1.5 Opera 8.54 IE 6

De esto se puede ver un ejemplo en www.cristovivo.com/prueba.html que a lo mejor no es la mas estetica pero muestra lo anterior

Espero les sirva ademas de que tambien espero sus comentarios al respecto, esta es una de las grandes preguntas que siempre rondan en los foros.

Agregar contador gratuito en webs

2006-06-22T11:13:00.002-05:00

He creado un simple contador de visitas para agregar a cualquier pagina web de manera facil y configurable, dicho contador podra ir evolucionando en mejoras, esta es la version 1 asi que puede que mas adelante saque mas versiones con mas funciones y caracteristicas ademas de diseños, un ejemplo del contador es como el mostrado en mi blog, del lado derecho apenas arriba del logo del blog.

Para agregar este contador a cualquier sitio solo hay que agregar una pequeña linea de javascript y configurar algunas cosas, es facil y rapido, aqui una descripcion:

Script a agregar:
<script src="http://www.creandowebs.com/contador.asp?user=paginaweb.com&
tv=Visitante&fn=Arial,Verdana&sz=11&bd=yes&c=000099"></script>

(Nota todo va en una sola linea, se corta por espacio)

donde configuraremos lo que esta marcado en negritas.
user=paginaweb.com por la pagina donde estara el contador, es importante cambiar esto para poder tener un contador unico para cada sitio.

tv=Visitante es el texto que aparecera justo antes de la cantidad de visitas, ejemplo:
Visitante 0202

fn=Arial,Verdana es la(s) fuente(s) a utilizar.
algunas opciones: pueden ser tahoma, Trebuchet MS o cualquiera que uses en tu sitio

sz=11 es el tamaño de la fuente en pixeles, el tamaño 11 equivale a mas o menos al tamaño 2
Opciones: numero valido para el tamaño deseado de fuente

bd=yes si es yes el texto aparecera en negritas, si no quieres esto cambialo por no
Opciones: yes (fuente en negritas) no (fuente normal)

c=000099 es el color del texto en valor hexadecimal
Algunas colores:
Blanco=ffffff
Negro=000000
Azul=0000ff
Rojo=ff0000
Verde=00ff00

Esto es todo, el script debe pegarse en la parte donde queramos que aparezca el contador, les informo que el contador esta programado para contar visitas usando sesiones, esto lo que ocaciona es que sean visitas reales, es decir, si alguien se hagarra haciendo clicks o recargando la pagina solo se generara una visita (si el usuario tiene activas las cookies por que las sessiones usan esto).