Mi problema es el siguiente tengo un tabla y la conexion con una bd con dns, y quiero que al ingresar un appellido por ejemplo me meustra los datos pero solo me muestra la etiquetas de los campos abajo va el codigo donde puede estar el error saludos
<%
Dim consulta__MMColParam
consulta__MMColParam = "1"
If (Request.Form("afiApellido") <> "") Then
consulta__MMColParam = Request.Form("afiApellido")
End If
%>
<%
Dim consulta
Dim consulta_numRows
Set consulta = Server.CreateObject("ADODB.Recordset")
consulta.ActiveConnection = MM_coneccion3_STRING
consulta.Source = "SELECT afiApellido, afiNombre, afiTipoDoc, afiDNI, Activo FROM SMIAfiliados WHERE afiApellido = '" + Replace(consulta__MMColParam, "'", "''") + "'"
consulta.CursorType = 0
consulta.CursorLocation = 2
consulta.LockType = 1
consulta.Open()
consulta_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
consulta_numRows = consulta_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table border="1">
<tr>
<td>Apellido</td>
<td>Nombre</td>
<td>Tipo de Documento </td>
<td>Numero</td>
<td>Activo</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT consulta.EOF)) %>
<tr>
<td><%=(consulta.Fields.Item("afiApellido").Value) %></td>
<td><%=(consulta.Fields.Item("afiNombre").Value)%> </td>
<td><%=(consulta.Fields.Item("afiTipoDoc").Value)% ></td>
<td><%=(consulta.Fields.Item("afiDNI").Value)%></td>
<td><%=(consulta.Fields.Item("Activo").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
consulta.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
consulta.Close()
Set consulta = Nothing
%>