Detalle: cparrendatario.asp

cparrendatario.asp

Ir a la Página Volver a la Lista

Archivo ASP

cparrendatario.asp

Página Razor

CartaPorte/Cparrendatario

Módulo

General

Líneas de Código

141

Características

En Menú:	No
Formularios:	1 formulario(s)
Consultas SQL:	Ninguna
Complejidad:	low
Bases de Datos:	Session DB

Tablas Utilizadas (0)

No se detectaron tablas

Comentarios y Notas (0)

No hay comentarios aún

Enlaces Salientes (3) Páginas a las que esta página enlaza

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`cparrendatarioadd.asp`	form_action	General	Pendiente	CartaPorte/Cparrendatario
`cpmenu.asp`	include	General	Pendiente	-
`default.asp`	redirect	General	Pendiente	-

Enlaces Entrantes (4) Páginas que enlazan a esta página

Archivo ASP	Tipo	Módulo	Estado	Página Razor
`cpmenu.asp`	link	General	Pendiente	-
`cparrendatariodel.asp`	redirect	General	Portada	CartaPorte/Cparrendatario
`cparrendatarionew.asp`	redirect	General	Portada	CartaPorte/Cparrendatario
`cparrendatarioup.asp`	redirect	General	Portada	CartaPorte/Cparrendatario

<%  
	Option Explicit
	Session.LCID = 2058
'*****  SI NO HA INICIADO SESION ***
If 	Session("Mybussiness") = "" then
	Response.redirect("default.asp")
	Session("ID")=Cint(0)
Else
Session("ID")= 1000
Session.Timeout = 1200

'******* EN CASO DE ERROR ****
		Err.Clear
		On Error Resume Next	
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
		
%> 

<html>
	<head>
		<title>Sistema MIM </title>
		<meta charset="ISO-8859-1" />
		<meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no" />
		<link rel="stylesheet" href="assets/css/main.css" />
	</head>
	
	<body class="homepage is-preload">
	
	
			<!-- Header -->
				<header id="header">
					<div class="logo container">
						<div>
						<h1><a href="" id="logo">ARRENDATARIO</a></h1>
							
						</div>
					</div>
				</header>


				<!-- Menu -->

				<nav id="nav">
					<!--#INCLUDE FILE="CPMenu.asp"-->
				</nav>
<%
'***** Variables a la base de datos ****
Dim Cn1
Dim Rs11, Rs12, Rs13, Rs14
Dim Sql11, Sql12, Sql13, Sql14

'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""

'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2

'***** Conexion A la Tabla OPERADORES ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select * from CPArrendatario;"
Rs12.Open Sql12,Cn1,1,2

%>

								

				<section id="main">

								<!-- Highlight -->

						<section class="box highlight">
					<Form action="CPArrendatarioAdd.asp" method="post">
						<button  tabindex="8" type="submit" name="Agregar" id="Agregar"/>Agregar Arrendatario</button>
					</form>	
<br>

<%
	If Rs12.EOF Then 
	
	Else 
	
%>	
					
<%
	Do While Not Rs12.EOF
%>
														
														
									<h3><a href="CPArrendatarioMod.asp?IDARRENDATARIO=<%= Rs12("IDARRENDATARIO") %>"><%= Rs12("NombreArrendatario") %></a></h3>
															
<%
	Rs12.Movenext
	Loop
%>																	
<%
End If
%>									
		
									</section>

				</section>				
		<!-- Scripts -->
			<script src="assets/js/jquery.min.js"></script>
			<script src="assets/js/jquery.dropotron.min.js"></script>
			<script src="assets/js/jquery.scrolly.min.js"></script>
			<script src="assets/js/browser.min.js"></script>
			<script src="assets/js/breakpoints.min.js"></script>
			<script src="assets/js/util.js"></script>
			<script src="assets/js/main.js"></script>
			
<%
		If Err.Number <> 0 Then
%>


<br><br>
NÃºmero de Error: <%= Err.Number %><BR>
DescripciÃ³n:  <%= Err.Description %><BR>		
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>

<%
		Else
'****** FIN DE LOS ERRORES ***
	End If
%>

	</body>
</html>
		
<%
'FIN DE SESION
End If
%>

MATERIALES INDUSTRIALES DE MEXICO

cparrendatario.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código