Página de inicio

<% Function fBuscar(cnn) SQL="SELECT Titulo, Comentarios, PALAC, Link FROM Busqueda WHERE PALAC LIKE '%"&buscar&"%';" rs.Open SQL While Not rs.EOF str = str & "" & rs("Titulo") & " >>
" & "" & rs("Comentarios")& "

" rs.MoveNext Wend if str = "" then str ="

Lo siento, no se encontraron resultados
" if buscar = "" then str ="
" fBuscar = str End Function Dim str, rs, SQL dim conexion Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath ("pafware.mdb") Set rs = CreateObject("ADODB.Recordset") rs.ActiveConnection = conexion Response.write " " Response.write "" Response.write " " Response.write " " Response.Write fBuscar(cnn) Response.write "" %>

Quienes somos
Servicios
Nuestros Clientes
Sitios Relacionados
Curriculum
Certificacion
Normas Oficiales Mexicanas
Laboratorio de pruebas
Solicitud en Linea
Preguntas Frecuentes
 Chat

Si requiere información, favor de solicitarla en el buzón

 

 

Solicitud de Cotización de Homologación y/o Certificación NOM

Favor de llenar los datos de la siguiente solicitud. (*) Son obligatorios

Nombre:

Puesto:

Empresa:

Telefono:

Fax:

Correo:

Ciudad:

País:

Estado:

Domicilio:

C.P.

Fecha:

Describa brevemente el equipo que quiere homologar ó certificar
Tipo de servicio solicitado:
Homologación
Certificación ó
NOM