Detalle: cppropietariodel.asp

cppropietariodel.asp

Ir a la Página Volver a la Lista

Archivo ASP

cppropietariodel.asp

Página Razor

CartaPorte/Cppropietario

Módulo

General

Líneas de Código

116

Características

En Menú:	No
Formularios:	Ninguno
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
`cpmenu.asp`	include	General	Pendiente	-
`cppropietario.asp`	redirect	General	Pendiente	CartaPorte/Cppropietario
`default.asp`	redirect	General	Pendiente	-

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

No hay enlaces entrantes

<%  
	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">OPERADORES</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

Dim IdPro

IdPro = Request("IdPro")

	'***** Conexion A la Tabla RutaOper ****
	Set Rs12 = Server.CreateObject("ADODB.Recordset")
	Sql12="Delete from CPPropietario " &_
	"where IdPro = "& IdPro &";"
	Cn1.Execute Sql12

	Response.redirect("CPPropietario.asp")

%>




				
		<!-- 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

cppropietariodel.asp

Archivo ASP

Página Razor

Módulo

Líneas de Código