<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<meta charset="utf-8"/>
<title>::: Sistema MIM :::</title>
<link rel=stylesheet href="vista.css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</head>
<BODY>
<center>
<!--#include file="empresa.asp"--><br>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normal" style="position:absolute; top:60px; left:10">
<%
Dim Rs5
Dim Sql5
set Rs5 = server.CreateObject("ADODB.Recordset")
Sql5 = "select * from Fpedm where usuario = '" & nombre & "' order by npedm;"
Rs5.Open Sql5,Cn1,1,2
%>
<%
Do while Not Rs5.EOF
%>
<a href="<%= Rs5("Fpedm") %>.asp"><img src="Image/<%= Rs5("fpedn") %>.gif" border=0 alt="<%= Rs5("fpedn") %>" Title="<%= Rs5("fpedn") %>"></a>
<%
Rs5.MoveNext
Loop
%>
</div>
<div class="normal" style="position:Relative; top:110px; left:1">
<center>
<hr>
Gestor de Remisiones
<HR>
<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Form action="Fpedges.asp" name="Fpedges" method="Post">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Remision</td>
<TD align="Left" class="normalw" bgcolor="#006699">
<input type="text" class="normalb" Value="0" name="Nremision" size="7" style="text-align:right;" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
</tr>
<Tr>
<TD align="Center" class="normalw" bgcolor="#006699" Colspan="2">
<input type="submit" value="Buscar" class="normalc">
</td>
</tr>
</form>
</Table>
<%
'******* BUSCAMOS LA REMISION ******
Dim Nremision, FolioR
Dim Rs11, Rs12
Dim Sql11, Sql12
Nremision = Request("Nremision")
'***** VERIFICA QUE EL NUMERO DE REMISION NO SEA NULO, VACIO O CERO ****
If Nremision = "" or Isnull(Nremision) or Nremision = 0 Then
Else
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select Numfreme, Clifreme, Nomcli, Fecfreme " &_
"From Fremenc, Clientes " &_
"where Clacli = Clifreme and Numfreme = "& Nremision &";"
Rs11.Open Sql11,cn1,1,2
If Rs11.EOF Then
Else
%>
<br>
<Table border=0 cellspacing=1 cellpadding=1 class="normal">
<Tr>
<Td>
<a Href="FpedgesUp.asp?Nremision=<%= Nremision %>&Usuario=<%= nombre %>">
<img src="Image/upload.gif" Alt="Subir Archivo" Title="Subir Archivo" Height="40px">
</a>
</Td>
<Td Colspan="3">
<b> Cargar Archivo.</a>
</td>
</Tr>
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Remision</td>
<TD align="Left" class="normalw" bgcolor="#006699">Clave</td>
<TD align="Left" class="normalw" bgcolor="#006699">Cliente</td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha</td>
</Tr>
<%
Do While Not Rs11.EOF
%>
<Tr>
<TD align="Right" class="normal"><%= Rs11("Numfreme") %></td>
<TD align="Right" class="normal"><%= Rs11("Clifreme") %></td>
<TD align="Left" class="normal"><%= Rs11("Nomcli") %></td>
<TD align="Left" class="normal"><%= Rs11("Fecfreme") %></td>
</Tr>
<%
Dim fso
Dim Carpetas, Carpeta
Dim fol
Dim A
Set fso = Server.CreateObject("scripting.fileSystemObject")
' Comprobamos si existe la carpeta. Si no existe la creamos
if (Not fso.FolderExists(server.MapPath("/mexico/4c71ab3b7d09f3a22bd3d2546e9e6665/"& Nremision &""))) then
Set fol = fso.CreateFolder(server.MapPath("/mexico/4c71ab3b7d09f3a22bd3d2546e9e6665/"& Nremision &""))
end if
Set Carpeta = fso.GetFolder(server.MapPath("/mexico/4c71ab3b7d09f3a22bd3d2546e9e6665/"& Nremision &""))
%>
<Tr>
<td ColspaN="4">
<hr>
<Table border=0 cellspacing=1 cellpadding=1 class="normal" width="600px">
<Tr>
<TD align="Left" class="normalw" bgcolor="#006699">Nombre</td>
<TD align="Left" class="normalw" bgcolor="#006699">Fecha_Modificación</td>
<TD align="Left" class="normalw" bgcolor="#006699">Tipo</td>
<TD align="Left" class="normalw" bgcolor="#006699">Tamaño</td>
</Tr>
<%
for each A in Carpeta.files
%>
<Tr>
<td>
<a href="4c71ab3b7d09f3a22bd3d2546e9e6665/<%= nremision %>/<%= A.name %>" onclick="NewWindow(this.href,'GestorImp','1024','800','yes');return false;">
<%= A.name %></a>
</td>
<td><%= A.DateLastModified %></td>
<td><%= A.Type %></td>
<td Align="Right"><%= formatnumber((A.Size/1024),0) %> KB</td>
</Tr>
<%
next
%>
</table>
</td>
</tr>
<%
Rs11.MoveNext
Loop
%>
</Table>
<hr>
<%
End If
End If
%>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>