[Resolvido] Problema com select

[FabianoBSB 0]

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>
<%End If%>

[andersonleme 1]

<%@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

Entrada1 = rS("ENTRADA1")

End If
%> 
<form METHOD="POST" name="Formulario" id="Formulario">
<input name="TxEntrada1" type="text" id="TxEntrada1" value="<%=Entrada1>" / >
<%IF Entrada1 = "" THEN%>
<input name="BT1" type="submit" value="Enviar" size="20" />
<%END IF%>
<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>

 

Faz um Teste ... Mais é isso ai

[FabianoBSB 0]

Ja resolvi galera desculpa se incomodei alguem