este es el codigo de la pagina de busqueda donde hay solamente un textfield y un boton:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Us.asp" -->
<%
Dim Rslo__MMColParam
Rslo__MMColParam = "1"
If (Request.Form("Form1") <> "") Then
Rslo__MMColParam = Request.Form("Form1")
End If
%>
<%
Dim Rslo
Dim Rslo_numRows
Set Rslo = Server.CreateObject("ADODB.Recordset")
Rslo.ActiveConnection = MM_Us_STRING
Rslo.Source = "SELECT * FROM Site WHERE Site_cod = '" + Replace(Rslo__MMColParam, "'", "''") + "'"
Rslo.CursorType = 0
Rslo.CursorLocation = 2
Rslo.LockType = 1
Rslo.Open()
Rslo_numRows = 0
%>
<table border="3">
<tr>
<td>Site_cod</td>
<td>Site_Nam</td>
<td>Country_cod</td>
</tr>
<tr>
<td><%=(Rslo.Fields.Item("Site_cod").Value)%></td>
<td><%=(Rslo.Fields.Item("Site_Nam").Value)%></td>
<td><%=(Rslo.Fields.Item("Country_cod").Value)%> </td>
</tr>
</table>
<p> </p>
<%
Rslo.Close()
Set Rslo = Nothing
%>