Ciao a tutti.
Sto migrando un'applicazione da Access a Mysql, peraltro seguendo i consigli di una guida trovata in Html.it utilissima.
Non sto avendo particolarti problemi con le normali query, ma mi sono incasinato con il seguente codice che fa lo scrolling delle news (con Access funziona perfettamente).
Il problema è che non visualizza nulla. Non da alcun errore ma sembra che rimanga in sospeso.
Grazie se potrete aiutarmi.
dim url_DB2
dim cn
Set cn = Server.CreateObject("ADODB.Connection")
url_DB2=caricaDB(2,idn)
cn.Open url_DB2
Set rsNews = Server.CreateObject("ADODB.Recordset")
' in access la query è la seguente
ssqll = "SELECT TOP 6 * FROM Company"
'sostituita con
ssqll = "SELECT * FROM Company LIMIT 0, 6"
rsNews.Open ssqll, cn, adOpenStatic, adLockOptimistic%>
<%rsNews_numRows = 0
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsNews_numRows = rsNews_numRows + Repeat1__numRows
%>
<script language="JavaScript1.2">
var marqueewidth="190px"
var marqueeheight="100px"
var marqueespeed=1
var pauseit=1
var marqueecontent='<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><% While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF)) %><% response.write "
" %><% IF rsNews.Fields.Item("codice").Value <> "" THEN %><a href=<%=site_address&"/public/WebPages/WebPages.asp?ID="&rsNews.Fields.Item("UniqueID").V alue&"&N="&rsNews.Fields.Item("IDnazione").Value%> target=_blank><% END IF %>
<% News = rsNews.Fields.Item("company").Value&"
"&Separa(TrovaLocalita(rsNews.Fields.Item("IDlocal ita").Value,"3",rsNews.Fields.Item("IDNazione").Va lue))&"
("&Separa(TrovaLocalita(rsNews.Fields.Item("IDRegi one").Value,"2",rsNews.Fields.Item("IDNazione").Va lue))&")
"&Separa(TrovaLocalita(rsNews.Fields.Item("IDNazio ne").Value,"1",rsNews.Fields.Item("IDNazione").Val ue))%><% News = Replace(News,"'","\'",1,-1,1)%><%=News%><% IF rsNews.Fields.Item("codice").Value <> "" THEN %></a><% END IF %><% response.write "</p>" %>
<% Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsNews.MoveNext()
Wend
%></font>
marqueespeed=(document.all)? marqueespeed : Math.max(1, marqueespeed-1) //slow speed down by 1 for NS
var copyspeed=marqueespeed
var pausespeed=(pauseit==0)? copyspeed: 0
var iedom=document.all||document.getElementById
var actualheight=''
var cross_marquee, ns_marquee
function populate(){
if (iedom){
cross_marquee=document.getElementById? document.getElementById("iemarquee") : document.all.iemarquee
cross_marquee.style.top=parseInt(marqueeheight)+8+ "px"
cross_marquee.innerHTML=marqueecontent
actualheight=cross_marquee.offsetHeight
}
else if (document.layers){
ns_marquee=document.ns_marquee.document.ns_marquee 2
ns_marquee.top=parseInt(marqueeheight)+8
ns_marquee.document.write(marqueecontent)
ns_marquee.document.close()
actualheight=ns_marquee.document.height
}
lefttime=setInterval("scrollmarquee()",20)
}
window.onload=populate
function scrollmarquee(){
if (iedom){
if (parseInt(cross_marquee.style.top)>(actualheight*(-1)+8))
cross_marquee.style.top=parseInt(cross_marquee.sty le.top)-copyspeed+"px"
else
cross_marquee.style.top=parseInt(marqueeheight)+8+ "px"
}
else if (document.layers){
if (ns_marquee.top>(actualheight*(-1)+8))
ns_marquee.top-=copyspeed
else
ns_marquee.top=parseInt(marqueeheight)+8
}
}
....
Rispondi quotando
....riesci a darmi qualche dritta ?
