por ejemplo yo lo que hago para por ejemplo un contacor es lo siguiente:
en la pagina a poner el codigo se agrega un script asi:
<script type="text/javascript" src="http://www.lapagina.com/contador.asp?variable1=contenido1"></script>
Y la pagina contador seria una pagina que realice trabajos en ASP como consultas a bases de datos, calculos, etc... y al final, en lugar de mostrar via response.write "resultado" seria con document.write <%=resultado%>
ejemplo:
Código:
<%
on error resume next
user=replace(request("user"),"'","")
tv=request("tv")
if tv="" then tv="VISITA"
fn=request("fn")
if fn="" then fn="Arial"
sz=request("sz")
if sz="" then sz=1
if request("bd")="yes" then
bda="<b>"
bdc="</b>"
end if
pub=request("pub")
if user<>"" then
basedatos = Server.MapPath("usuarios.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set RS = Server.CreateObject("ADODB.RecordSet")
SQL=("SELECT * FROM usuario where usuario='"&user&"'")
RS.Open SQL, conexion,1,1
if not rs.eof then
session("activo") = "si"
pub=1
%>
<%else%>
<%
if request("pub")<>1 then pub=0
end if
counter=1
activo = session("activo")
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("contadores/"&user&".txt"))
counter = clng(act.readline)
if session("activo") <> "si" then
counter = counter + 1
end if
act.close
Set act = fso.CreateTextFile(server.mappath("contadores/"&user&".txt"), true)
act.WriteLine(counter)
act.Close
%>
document.write("<font face='<%=fn%>' size='<%=sz%>'><%=bda%><%=tv%>: <%=formatnumber(counter,0)%><%=bdc%></font>");
<%if pub<>1 then%>
document.write("<br><a href='http://www.creandowebs.com' target='_blank'><IMG src='http://www.creandowebs.com/images/wscreandowebs.gif' border=0></a>");
<%
end if
if err<>0 then
er=err.description&"<br>"&err.line
end if
rs.close
session("activo")="si"
end if
%>