ayuda con este codigo?

[urjose]

hi al menos en mi pc ya jalo comentame que tal

<%
'=DateAdd("H", 10,"9:40:22")

Dia=Day(date)
mes=Month(date)
anio=year(date)

Fecha=dia&"/"&mes&"/"&anio

Set Conn=Server.CreateObject("Adodb.Connection&qu ot;)
Set Rs=Server.CreateObject("Adodb.recordset" )

'SQL="Select * from TABLA1 where fecha like #"&date&"#"

'SQL="Select * from TABLA1 where fecha=#01/27/02#"

SQL="Select * from TABLA1 where fecha=#"&fecha&"#" ' esta es la buena

'SQL="Select * from TABLA1 where id=13"

'SQL="SELECT * FROM TABLA1"

Conn.open "Basura"


rs.open SQL,conn,2,3
Response.Write Date &"<br>"
Response.Write sql &"<br>"

'Response.Write rs.recordcount


IF RS.EOF AND RS.BOF THEN
RESPONSE.WRITE "NINGUN REGISTRO"
END IF

DO UNTIL RS.EOF
VARIABLE=RS("ID")
RESPONSE.WRITE VARIABLE&"<BR>"
RS.MOVENEXT
LOOP

%>


salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">