<%
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 type="text/javascript" src="validacion.js"></script>
<script type="text/javascript">
<!--
function check(formname, submitbutton) {
var errors = '';
errors += checkText(formname, 'DesAlm', 'Nombre del Almacen');
checkThisForm(formname, submitbutton, errors);
}
//-->
</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 almam where (usuario like'" & nombre & "')"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("almm")%>.asp"><img src="Image/<%=rs5.fields("almn")%>.gif" border=0></a>
<%
rs5.MoveNext
loop
%>
</div>
<div class="normal" style="position:absolute; top:100px; left:1">
<%
Dim rs10, sql10
Dim Alma
alma = Request.querystring("alma")
set rs10 = server.CreateObject("ADODB.Recordset")
sql10 = "select * from almacenes where claalm = "& Alma &";"
rs10.open sql10,cn1,1,2
%>
<center>
Modificar un Almacen:
<hr>
<Form action="almup.asp" name="almup" method='post'>
<TABLE border=0 cellspacing=0 cellpadding=0 class="normal">
<tr>
<td Class="Normalb">Almacen:</td>
<td Class="Normalb"><%= rs10("claalm") %></td>
</tr>
<tr>
<td Class="Normalb">Nombre:</td>
<td>
<input type=text class=normalb name="alman" size=14 onChange="javascript:this.value=this.value.toUpperCase();" value="<%= rs10("desalm") %>">
<input type=hidden class=normalb name="alma" size=14 onChange="javascript:this.value=this.value.toUpperCase();" value="<%= rs10("claalm") %>">
</td>
</tr>
<tr>
<td Class="Normalb">Status:</td>
<td>
<input type=text class=normalb name="almas" size=1 onChange="javascript:this.value=this.value.toUpperCase();" value="<%= rs10("staalm") %>">
</td>
</tr>
<tr>
<td colspan=2 align=center>  <input type="submit" value="Actualizar" class=normalb></td>
</tr>
</table>
</form>
<hr>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>