[Resolvido] Problema com select

Tenho esse codigo abaixo aonde o sistema faz uma busca no banco e se por acaso ele achar algo imprime em uma caixa de texto o registro, se não acha nada abre uma caixa de texto e um botao para inserir dados. O problema é que quando não se acha nada o botao e a caixa de texto não aparece na tela.Aonde eu to errando... Ajuda ai!!!

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/ObjCn.asp" -->

<%
Response.write Session("MM_Username") %>
<%
data = date()

Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM ponto WHERE( data='"&data&"')"
RS.Open Sql, Conexao,3,3
If Rs.eof and bof = true then
%>

<form METHOD="POST" name="Formulario" id="Formulario">
<input name="TxEntrada1" type="text" id="TxEntrada1" value="<%=rS("ENTRADA1")%>" / >
<input name="BT1" type="submit" value="Enviar" size="20" />
 <input name="OcultHora" type="hidden" value="<%=TIME()%>" />
 <input name="OctData" type="hidden" value="<%=date()%>" />
 <input type="hidden" name="MM_insert" value="Formulario" />
</form>
</body>
</html>