<% Dim Rs,strSQL Dim Error session("login") = "" session("admin") = "" session("Usuario") = "" Sub Main() On Error Resume Next If Request("Usuario")<>"" AND Request("Password")<>"" Then Set Rs = Server.CreateObject("adodb.RecordSet") strSQL = "SELECT * from Usuarios WHERE login ='"& Trim(Request("Usuario")) &"' " strSQL = strSQL & " AND Password='"& Trim(Request("Password")) &"'" Rs.Open strSQL, getcConn,3,3 If Not Rs.EOF Then session("login") = "loggedin" session("admin") = Rs("admin") session("Usuario") = Rs("login") session("id_usuario") = Rs("id_usuario") Response.Write("") Else Error = "El Usuario es Incorrecto, Favor de Intentarlo Nuevamente" End If End If If Err.number <> 0 Then Error = "Ucurrio Un Error, Favor De Intentarlo Nuevamente" End If End Sub Sub Fin() Set Rs = Nothing Set getcConn = Nothing End Sub %> <% '************************************************************************************************ Main() '************************************************************************************************ %> Guerra Castellanos y Asociados
 

 
 
 
 
Nuestros Servicios
Estrategias de Comunicación:
Desarrollo e instrumentación, para transmitir eficazmente los mensajes de nuestros clientes, orientados a objetivos específicos.
Relación con Gobierno:
Asesoría y apoyo logístico para identificación de grupos e individuos clave, definición de oportunidades y riesgos para un mejor aprovechamiento de la interacción con entidades gubernamentales y actores políticos.
Relación con Medios:
Asesoría y apoyo para definición de mensajes clave y operación de programas de comunicación externa.
Relación con Comunidad:
Asesoría e instrumentación de campañas de filantropía y apoyo comunitario para la construcción de identidad de buen ciudadano corporativo.
Comunicación Corporativa:
Diseño e instrumentación de estrategias de comunicación y relaciones públicas como planes de apoyo, mercadotecnia y otros objetivos de negocio.
Capacitación:
Identificación de factores de riesgo y capacitación para el manejo adecuado de situaciones críticas capacitación teórico/práctica de voceros.
Cabildeo
 
<%Fin()%>