%
dim Msg
Msg=""
if request.form("enviado")="true" then
dim rs, rsx, rsr, rsa
consultartabla rs,"USUARIO,COD_PERFIL,COD_EVENTO","TBWB_USUARIOS","USUARIO='"& request.form("txUser") &"' AND CLAVE = '"& request.form("txClave") &"' AND FEC_VIG > CAST("& DATE() &" AS DATETIME)","","",""
if not rs.eof then
session("Perfil")=rs.fields.item("COD_PERFIL").value
session("Evento")=rs.fields.item("COD_EVENTO").value
consultartabla rsx,"DESC_PERFIL,RUTA_PERFIL","TBWB_PERFILES","COD_PERFIL=" & SESSION("Perfil"),"","",""
consultartabla rsr,"RUTA_FORMULARIO","TBWB_RUTAS","COD_EVENTO=" & session("Evento"),"","",""
consultartabla rsa,"RUTA_ADMIN", "TBWB_RUTAS_ADMIN", "COD_EVENTO = " & session("Evento") & " AND COD_PERFIL = " & session("Perfil"),"","",""
if not rsr.eof then
session("RutaFRM")=rsr.fields.item("RUTA_FORMULARIO")
end if
if not rsx.eof and session("RutaFRM")<> "" then
'escribir rsx.fields.item("RUTA_PERFIL"),"01.txt"
' ya rsa.fields.item("RUTA_ADMIN")
session("DescPerfil")=rsx.fields.item("DESC_PERFIL")
response.Redirect(rsa.fields.item("RUTA_ADMIN"))
else
Msg="Problemas con el servidor, por favor contactese con el administrador de la página"
end if
else
Msg="Usuario o clave incorrectas, por favor intente de nuevo"
end if
end if%>
<%
if request.Form("Formulario") <> "true" then
if request.form("Buscar")="true" and request.form("txtBusqueda") <>"" then
session("Frase") = request.form("txtBusqueda")
response.Redirect("Resultados_Busqueda.asp")
end if
end if
%>
.: Plataforma Informática - Sistema Celta - Goldentech Ltda.
|
|
|
| |
| PLATAFORMA INFORMATICA REQUERIDA |
|
| |
El Sistema CELTA® corre sobre plataformas con servidores Windows Server 2000/2003 y estaciones de trabajo con Windows XP. Para 5 estaciones o menos, no es indispensable contar con servidores y puede correr en grupos de trabajo conformados sobre redes domésticas. Opera con motor de base de datos SQL Server 2000/2005.
Si se desea implementar un Sitio Web, es necesario contemplar la instalación de un canal de telecomunicaciones banda ancha de 128k, 256k, 384k, 512k o superior, de acuerdo con las necesidades de la entidad.
No obstante, si la entidad no dispone de esta plataforma informática, Goldentech presta adicionalmente su servicio GoldenDataCenter mediante el cual la entidad puede conectarse vía VPN o Terminal Server con nuestros servidores. |
|
|
|
|
|
|
Ultima actualización: <%response.write(date)%> |
|
|
|
| |
|
|
|
|
|
|
|
|
|