In questo codice sotto non riesco a mettere sintatticamente in modo corretto una cosa cioè voglio cha la pagina newsdetail.asp si apra come target="contenuto".
Potete aiutarmi?? Grazie
<%@LANGUAGE="VBSCRIPT"%>
<%
' The following is the code for the scrolling news ticker. This will only work on a IIS server and IE browsers. Netscape users will still see the news, but it will not scroll.
Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, strSQL,sMarquee
Dim conCurrent
Dim rstCurrent
Set conCurrent = CreateObject("ADODB.Connection")
Set rstCurrent = Server.CreateObject("ADODB.Recordset")
conCurrent.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.Mappath("/logo/mdb-database/logo.mdb")
strSQL = "SELECT * FROM News ORDER BY IdNews DESC"
Set rstCurrent = conCurrent.Execute(strSQL)
sHtml1 = "
<FONT COLOR='#001E33'>"
sHtml2 = "<A HREF='newsdetail.asp?Idnews="
sHtml3 = "'><FONT COLOR='#FFFFFF'>"
sHtml4 = "</font></A></FONT></P>"
sTxt = ""
rstCurrent.movefirst
do while not rstCurrent.eof 'I used variables here to try and reduce this long assignment
sTxt = sTxt & sHtml1 & rstCurrent("Data") & " - " & sHtml2 & _
rstCurrent("IdNews") & sHtml3 & rstCurrent("Titolo") & sHtml4
rstCurrent.movenext
loop
iSpeed = 80 ' Speed of Marquee (higher = slower)
iTop = 0 ' Y Location Within Object
iLeft = 0 ' X Location""""
iWidth = 145 ' Width
iHeight = 120 ' Height
'Insert marquee into objects innerHtml Property (in this Case a table cell)
sMarquee="<MARQUEE onmouseover='this.stop();' " & _
"onmouseout='this.start();'direction='up' scrollamount='1' " & _
"scrolldelay='" & iSpeed & "' top='" & iTop & "' left='" & iLeft & _
"' width='" & iWidth & "' height='" & iHeight & "'>" & sTxt & "</MARQUEE>"
conCurrent.close 'Don't forget to clean-up!
set conCurrent = Nothing
%>
Rispondi quotando