04/01/2002, 20:47
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 23 años, 4 meses Puntos: 1 | |
| Re: Nombre de la pagina actual
listo ya obtuve el nombre de la pagina sin subdirectorios
<%
cadena1=Request.ServerVariables("URL")
Response.Write Cadena1&"<BR>"
contador=1
dO until Left(Letra,1)="/"
Letra=Right(Cadena1,contador)
'Response.Write Letra
contador=contador+1
Loop
Letra=Replace(letra,"/","")
response.write Letra
%>
puedes revisar que funciona en
http://www.autocar.com.mx/pruebas_programacion/promociones.asp
:)
<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true"> |