Tengo esto, quiero q al terminar la sentencia del If termine la conexion y no me muestre nada mas.
<%
Dim Buscar
Buscar = request("buscartexto")
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Myconn_STRING
Recordset1.Source = "SELECT * FROM dbo.Persona WHERE Nombre LIKE '%"&Buscar&"%';"
Recordset1.CursorType = 1
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<div>Busquedas que coinciden para "<% response.Write(buscar)%>" </div>
<%
Dim Cant_Reg
if buscar = "" then
%>
<div>No se encontraron registros</div>
<div>Especifique una busqueda</div>
<a href="/index.asp">Volver</a>
<%
Reg_Count = Recordset1.RecordCount
Reg_Count = 0
%><div>Busquedas encontradas "<% response.Write(Reg_Count)%>" </div>
<%
Aqui quiero terminar la sentencia y con ello la conexion con BD y no muestre mas nada.
end if
%>
<table width="400" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="100">Nombre</td>
<td width="100">Apellidos</td>
<td width="100">Edad</td>
<td>Fecha</td>
<td>Hora</td>
</tr><% While not Recordset1.EOF %>
<tr>
<td width="100"><%=(Recordset1.Fields.Item("Nombre").V alue)%></td>
<td width="100"><%=(Recordset1.Fields.Item("Apellidos" ).Value)%></td>
<td width="100"><%=(Recordset1.Fields.Item("Edad").Val ue)%></td>
<td><%=(Recordset1.Fields.Item("Fecha").Value)%> </td>
<td><%=(Recordset1.Fields.Item("Hora").Value)%></td>
</tr><%
Recordset1.MoveNext
Wend
%>
</table>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
Bueno, debe ser algo sencillo pero como estoy empezando en esto...