Les regalo uno a cambio de ayuda

[virla]

Tengo este codigo que lo que hace es poner el tiempo de lectura aproximado como en la página de www.Clarin.com
----------------------------------------
<%
Dim nombrescript
Dim textodeentrada
Dim timeLetura
Dim tiempoReal
Dim numero

nombrescript = Request.ServerVariables("URL")

textodeentrada = Request.Form("txtWordCount")

' Si no han escrito nada emitimos un mensaje de error
If textodeentrada = "" Then
textodeentrada = "Debes escribir algo en la cadena a contar"
Else
'Response.Write "El texto introducido es::<br />" & vbCrLf
'Response.Write "<pre>"
'Response.Write Server.HTMLEncode(textodeentrada)
'Response.Write "</pre>" & vbCrLf

' Mostramos los resultados del conteo:
'Response.Write "El texto introducido contiene " & GetCharCount(textodeentrada) & " caracteres." & vbCrLf
timeLetura=(GetCharCount(textodeentrada)/15)/100
numero=timeLetura
numero=formatnumber(numero,2)
numero=replace(numero,",","'")
Response.Write "Tiempo de lectura:" & numero
End If

'**** Funciones Usadas ***********************************
Function GetWordCount(strInput)
Dim strTemp

' reeplazamos los tabuladores y los saltos de linea por espacios
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")

' Quitamos los espacios delante y detras de la cadena
strTemp = Trim(strTemp)

' transformamos multiple espacios en uno solo
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Replace(strTemp, " ", " ")
Loop

' Pasamos la cadena strTemp a un array unidimensional
'con la función Split
GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1
End Function ' GetWordCount

Function GetCharCount(strInput)
GetCharCount = Len(textodeentrada)
End Function ' GetCharCount


'**** Fin de funciones *************************************

%>
<p>Introduce el texto a contar:</p>

<form action="<%= nombrescript %>" method="post">
<textarea name="txtWordCount" cols="40" rows="5"
><%= Server.HTMLEncode(textodeentrada) %></textarea>

<br />

<input type="submit">
</form>
-----------------------------------------
Lo que necesitaria seria que esto se combierta en un archivo js.
y que desde la pagina donde tengo la nota llame a esta funcion y la ejecute.
¿Como puedo realizarla?
Gracias a todos los que ayuden

[CHuLoSoY]

¿convertir asp en js? Pregunta en el foro de JS

[Avelar]

A ver si entiendo bien:

Lo que deseas es que ese código esté en un archivo aparte y mandarlo llamar... ¿correcto? Y haces referencia a .js porque sabes que con JavaScript pueden llamarse funciones que están en otros archivos.

OK, pues en ASP también puedes incluir archivos externos. Por ejemplo, si ese código lo guardas en un archivo llamado EjecutarAparte.inc lo mandarías llamar desde la página donde deseas incluirlo con la siguiente línea:

Código:

  <!--#include file="./EjecutarAparte.inc" -->

Lo que esto hace es tomar el código y meterlo como si fuera parte original de la página.

Espero que sea lo que buscas.

Saludos.

[virla]

me parece bueno pero como hago para que me lo ejecute, si pedes darme la formula
Gracias

[maestro]

<!--#include file="tufichero.asp" -->

Eso lo agregas en cualquier parte de una pagina ASP y se ejecuta el codigo contenido en tufichero.asp

[virla]

eso se como se hace, lo que quiero saver es como hago para que me ejecute esa instrucción y me ponga el resultado en la pagina final.
Gracias

[maestro]

El resultado no depende del include, este include realizara unas operaciones determinadas, luego puedes usar las variables para mostrarla en tu pagina o redirigir hacia donde quieras.

[virla]

si ya lo se eso, lo que no se es como llamar al include y como mostrar los resultados.
Si podes decirme como mataria
Gracias

[virla]

Nadie puede darme una mano con esto plis.....
Vamos muchachos se que son muy colaboradores ademas de que les pase un regalito interesante.
Espero su ayuda
Gracias

[maestro]

La unica forma de pasar los datos a otras paginas despues de ejecutar el #include seria creando variables de sesion o escribiendo cookies que despues leemos desde la pagina que nos interese.

Tambien puedes crear un RESPONSE REDIRECT y pasar los valores como string:
pagina_principal.asp?nombre=xxx&apellido=xxx&direc cion=xxx, etc

Despues los recuperas en tu pagina interesada:
REQUEST.QUERYSTRING(nombre)
REQUEST.QUERYSTRING(apellido)
REQUEST.QUERYSTRING(direccion)

etc

[mvegasa]

<!--#include file="../include/Parametros.inc"-->

[mvegasa]

<!--#include file="../include/Parametros.inc"-->

<Title> <%Response.Write(Empresa)%> </Title>

el archivo parametros.inc es:
<%
Empresa = "Nombre Empresa"
%>