%
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. |
|
|
|
|
|
|
|
|
<%Fin()%>