<%
Option Explicit
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo 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>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div class="normal" style="position:absolute; top:60px; left:10">
<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from Cordm where (usuario like'" & nombre & "') order by Ordens"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("ordenm")%>.asp"><img src="Image/<%=rs5.fields("Ordenn")%>.gif" border=0 Alt="<%=rs5.fields("Ordenn")%>"></a>
<%
rs5.MoveNext
loop
%>
</div>
<div class="normal" style="position:absolute; top:100px; left:1">
<%
Dim Rs11, Sql11
Dim Codigo, Desingles
Codigo = Request("Codigo")
%>
<center>
<hr>
<b>***** DESCRIPCIONES EN INGLES *****</B>
<BR>
<FORM action="desing.asp" NAME="design" method='post'>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="center" Class="normal" bgcolor="#d8d8d8">Codigo</td>
</tr>
<Tr>
<td Class="normal" bgcolor="#d8d8d8">
<input Type="Text" name="Codigo" size="20" value="<%= codigo %>" Class="normal" style="Text-align:right;">
</td>
</tr>
<Tr>
<td Class="normal" bgcolor="#d8d8d8" Align="Center">
<Input type="Submit" value="Buscar" Class="normal">
</td>
</tr>
</Table>
</form>
<hr>
<%
If Codigo = "" or Isnull(Codigo) Then
Else
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11 = "Select RegInv, CveInv, NomInv, NomIinv " &_
"From Inventarios " &_
"Where CveInv = '"& Codigo &"' " &_
"Order by Cveinv;"
Rs11.Open Sql11,cn1,1,2
If Rs11.Eof then
%>
No Existen Registros Bajo ese Criterio
<br><br>
<%
Else
%>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<tr>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Codigo</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Descripcion</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Description</td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">Accion</td>
</tr>
<%
Do While Not Rs11.Eof
Desingles = Rs11("Nomiinv")
If Desingles = "" or Isnull("desingles") or Desingles = "null" then
Desingles = "-"
Else
Desingles = server.htmlencode(desingles)
end if
%>
<FORM action="desingup.asp" NAME="designup" method='post'>
<tr>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs11("CveInv") %></td>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%= rs11("NomInv") %></td>
<td align="Left" Class="normal" bgcolor="#d8d8d8">
<input Type="Text" Name="DesIng" size="50" Class="Normal" Value="<%= Desingles %>" onChange="javascript:this.value=this.value.toUpperCase();">
<input Type="Hidden" Name="Registro" size="40" Class="Normal" Value="<%= Rs11("RegInv") %>" onChange="javascript:this.value=this.value.toUpperCase();">
<input Type="Hidden" Name="Codigo" size="40" Class="Normal" Value="<%= Codigo %>" onChange="javascript:this.value=this.value.toUpperCase();">
</td>
<td align="center" Class="normal" bgcolor="#d8d8d8">
<input type="submit" value="Actualizar" class="normal" style="background-color:#d8d8d8">
</td>
</tr>
</form>
<%
Rs11.Movenext
Loop
%>
<%
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()
%>