Codigo:
<%
'Se declara una variable para almacenar el parametro del la forma
ctexto = request.form("cadena")
'Si no escribió nada, se envía un error
IF ctexto = "" THEN
error = "Error: Debe completar todos los datos antes de presionar el botón 'Buscar'."
Response.Write "<CENTER>"
Response.Write "<BR> <BR>"
Response.Write "<font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"
Response.Write error
Response.Write "<BR> <BR>"
Response.Write "Presione <a href='javascript:history.go(-1)'>aqui</a> para volver a la página anterior"
Response.Write "<BR> <BR>"
Response.Write "<a href='javascript:history.go(-1)'>--- Regresar ---</a>"
Response.Write "</font>"
Response.Write "</CENTER>"
Response.End
END IF
'Abre la conexion con la base de datos
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=SQLOLEDB; SERVER=servidor; UID=usuario;PWD=clave;DATABASE=base; INITIAL CATALOG=base"
'Separar la cadena en dos string (si aplica)
n=len(ctexto)
FOR variable=1 TO n
ctexto1=mid(ctexto,variable, 1)
IF ctexto1= " " THEN
ctexto2=mid(ctexto,1, variable)
IF variable<>n THEN
ctexto3=trim(mid(ctexto,variable+1, 30))
ELSE
ctexto3=ctexto2
END IF
variable=n
ELSE
ctexto2=ctexto
ctexto3=" "
END IF
NEXT
'Ejecuta un sentencia SQL de consulta
'sql = "SELECT * FROM personal_ubicacion WHERE (APELLIDOS LIKE '%"&ctexto2&"%' AND NOMBRES LIKE '%"&ctexto3&"%') OR (APELLIDOS LIKE '%"&ctexto3&"%' AND NOMBRES LIKE '%"&ctexto2&"%') OR PABX LIKE '%"&ctexto2&"%'OR EMAIL_INTERNO LIKE '%"&ctexto2&"%' ORDER BY APELLIDOS"
'sql = "SELECT * FROM personal_ubicacion WHERE (APELLIDOS LIKE '%"&ctexto2&"%' AND NOMBRES LIKE '%"&ctexto3&"%') OR (APELLIDOS LIKE '%"&ctexto3&"%' AND NOMBRES LIKE '%"&ctexto2&"%') OR PABX LIKE '%"&ctexto2&"%' OR EMAIL_INTERNO LIKE '%"&ctexto2&"%' ORDER BY APELLIDOS"
'sql2 = "SELECT count(*) total FROM personal_ubicacion WHERE (APELLIDOS LIKE '%"&ctexto2&"%' AND NOMBRES LIKE '%"&ctexto3&"%') OR (APELLIDOS LIKE '%"&ctexto3&"%' AND NOMBRES LIKE '%"&ctexto2&"%') OR PABX LIKE '%"&ctexto2&"%' OR EMAIL_INTERNO LIKE '%"&ctexto2&"%'"
sql = "SELECT is_cedula, chr_siglas_est, is_apellido, is_nombre, chr_tel_oficina, chr_correo FROM personal, estruc_organ WHERE personal.in_codigo = estruc_organ.in_codigo AND (is_nombre LIKE '%"&ctexto2&"%' OR is_apellido LIKE '%"&ctexto3&"%') ORDER BY is_apellido"
sql2 = "SELECT COUNT(*) total FROM personal WHERE is_nombre LIKE '%"&ctexto2&"%' OR is_apellido LIKE '%"&ctexto3&"%'"
Set result = cnn.Execute(sql)
Set result2 = cnn.Execute(sql2)
En realidad no se en que me esta fallando..
Agradeciendo su colaboración
