|
| |
| |
<%=contServ%> |
<%
'punto inicial
'http://qqm/pyxcom/nw_serv.asp?PP=C:\escucho\clientes\pyxcom\www\htdocs\pdf&Up=http://qqm/pyxcom/pdf
'sPP = request.QueryString("PP")
'sUP = request.QueryString("Up")
serverName = request.ServerVariables("SERVER_NAME")
Path_info = request.ServerVariables("Path_info")
sUP = "http://" & serverName & Path_info
sPP = request.ServerVariables("Path_Translated")
'El 12 se obtiene de los doce caracteres que ocupa /nw_serv.asp
sPPLen = Len(sPP) - 12
sUPLen = Len(sUP) - 12
sPP = left(sPP, sPPLen) & "/pdf/" & folder
sUP = left(sUP, sUPLen) & "\pdf\" & folder
sPPDos = sPP
sUPDos = sUP
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sPP)
Set fc = f.Files
Set ff = f.SubFolders
For Each f1 in ff
'Response.Write "" & f1.name & "
"
Next
For Each f1 in fc
Response.Write "" & f1.name & "
"
Next
Set ff = nothing
Set fso = nothing
Set f = nothing
Set fc = nothing
%>
|
|
| |
|
|