30/04/2002, 11:30
|
 | | | Fecha de Ingreso: febrero-2002
Mensajes: 101
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Re: donde alojar mi web que soporte asp y acces
Se me olvidó ponerte la función direc()
<%
Function direc(byval cadena)
Dim i, i2
Dim aux
i=len(cadena)
do while (mid(cadena,i,1)<>"\") and (i>1)
i=i-1
Loop
aux=""
for i2=1 to i
aux=aux+mid(cadena,i2,1)
Next
direc=aux
End Function
%> |