%
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
%>
.: Cllientes A - Goldentech Ltda.
|
|
| |
Ruta de navegación: Home > Clientes |
|
|
| |
|
| Nuestros clientes: Nuestra razón de ser |
| |
El mayor patrimonio de una compañía lo conforman el prestigio y buen nombre que sólo se forja con el esfuerzo y dedicación diarios. En Goldentech imprimimos nuestro sello de calidad en cada uno de los productos y servicios ofrecidos, y es así como nuestros clientes nos perciben.
A continuación presentamos una relación de nuestros clientes, que en la actualidad suman más de 130, junto con comunicaciones recibidas en las cuales resaltan nuestra labor y trabajo en equipo.
|
| |
| NUESTROS CLIENTES |
REFERENCIAS DE NUESTROS CLIENTES |
|
|
| |
|
|
Ultima actualización: <%response.write(date)%> |
|
|
|
| |
|
|
|
|
|
|
|
|
|