<%
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">
</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">
<center>
<B>***** CAPTURA DE RUTAS ****</B>
<hr>
<%
Dim Rs10, Sql10
Set Rs10 = Server.CreateObject("ADODB.Recordset")
Sql10 = "Select * from rutam where usmruta = '"& Nombre &"';"
Rs10.Open Sql10,Cn1,1,2
Do While Not Rs10.EOF
%>
<a href="<%= Rs10("memruta") %>.asp"><img src="Image/<%= Rs10("nomruta") %>.gif" border=0 Alt=<%= Rs10("nomruta") %>></a>
<%
Rs10.MoveNext
Loop
%>
<hr>
<%
Dim Rs11, Rs12, Rs13
Dim Sql11, Sql12, Sql13
%>
<B>
<<<<< CAPTURA DE RUTAS >>>>>
</B>
<BR>
<FORM action="Rutnew.asp" name="Fcotpnob" method="Post">
<Table border=0 cellspacing=2 cellpadding=1 class="Normal" bgcolor="#FFFFFF">
<Tr Bgcolor="#C0C0C0">
<Td Class="Normal">Operador:</td>
<Td Class="Normal">Fecha:</td>
</Tr>
<Tr Bgcolor="#FFFFFF">
<Td Class="Normal">
<SELECT NAME="Operador" class=normalb>
<optgroup label="Seleccione un Operador">
<%
Set Rs11 = server.CreateObject("ADODB.Recordset")
Sql11="Select * from Rutaoper Order by nomoper asc;"
Rs11.open Sql11,cn1,1,2
If Rs11.Eof Then
%>
<OPTION value="000000">---</option>
<%
Else
while not Rs11.EOF
%>
<OPTION value="<%= Rs11("idoper") %>"><%= Rs11("nomoper") %> - <%= Rs11("pLAOPER") %></option>
<%
Rs11.MoveNext
wend
End If
%>
</select>
</td>
<Td>
<input type="text" class="normalb" name="Fecha" size=10 Value=<%= Date() %> Style="Text-align:Right">
</Td>
</Tr>
<Tr>
<Td Class="Normal" Colspan="2" Align="Center">
<textarea class="normalb" name="Ruta" cols="70" rows="4" onChange="javascript:this.value=this.value.toUpperCase();"></textarea>
</td>
</tr>
<Tr>
<Td Class="Normalb" Colspan="2" Align="Center">
<input type="submit" value="Guardar" class="Normalb">
</td>
</tr>
</Table>
</form>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>