Consulta a una BD con Java scritp Hola Muchos como estan?
tengo la necesidad de hacer una especie de noticia con scroll pero lo que me tiene que mostrar el scroll son datos consultados desde una bd y este es el problema, yo lo estoy haciendo de la siguiente forma pero no me funsiona:
<script language="JavaScript1.2">
var marqueewidth=500
var marqueeheight=20
var speed=1
</script>
<%
Dim oConn1, rs1, sql, unidad, fecha, n
set oConn1 = Server.CreateObject("ADODB.Connection")
set rs1=Server.CreateObject("ADODB.Recordset")
OConn1.Open "Provider=SQLOLEDB;Data Source=jnjvecadbws;Initial Catalog=HH; User Id=enlace;Password=123456;"
fechactual = Date()
dia = Day(fechactual)
mes = Month(fechactual)
sql= "Select Empleado.Nombre, Empleado.Email from Empleado where day(Fch_Nacimiento)='"&dia&"'"
rs1.Open sql,oConn1
If rs1.eof then
%>
<script language="JavaScript1.2">
var marqueecontents='nadien cumple años'
</script>
<%
else
%>
<script language="JavaScript1.2">
var marqueecontents='<% while not rs1.eof Response.Write"<p></p><strong><font face=Verdana size=1 color=#1C455E><a href="&rs1.fields("Email")&">"&rs1.Fields("Nombre" )&"</a></strong></font><p></p>")rs1.movenext wend end if%>'
if (document.all)
document.write('<marquee direction="up" scrollAmount='+speed+' style="width:'+marqueewidth+';height:'+marqueeheig ht+'">'+marqueecontents+'</marquee>')
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}
function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.w rite(marqueecontents)
document.cmarquee01.document.cmarquee02.document.c lose()
thelength=document.cmarquee01.document.cmarquee02. document.height
scrollit()
}
function scrollit(){
if (document.cmarquee01.document.cmarquee02.top>=thel ength*(-1)){
document.cmarquee01.document.cmarquee02.top-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.top=marque eheight
scrollit()
}
}
window.onload=regenerate2
</script>
Ustedes tendran una mejor idea como puedo hacer funsionar esto amigos por favor....
