%
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
%>
.: Noticias y actualidad - Goldentech Ltda.
|
|
| |
Ruta de navegación: Home > Noticias
|
|
|
| |
|
| |
Noviembre es mes de celebración para Goldentech, pues cumplimos 5 años desde su creación.
Durante este período, hemos alcanzado grandes metas y experimentado inmensas satisfacciones, permitiéndonos ratificar que nuestra vocación de servicio es uno de nuestros valuartes más importantes como compañía.
Nuestra filosofía de calidad y servicio nos ha posicionado como líderes en el mercado y nos ha merecido el reconocimiento de nuestros clientes, no como un proveedor más en la lista, sino como parte fundamental de sus equipos de trabajo (vea las referencias de nuestros clientes).
|
|
|
|
| |
|
|
Ultima actualización: <%response.write(date)%> |
|
|
|
| |
|
|
|
|
|
|
|
|
|