Devo innestare un banner nel sito e pensavo di farlo utilizzando uno script asp collegato ad un access. Non mi funziona...
mi sapete dire dove sbaglio?
Nel db ho la tabella record con
nel campo1 ho i link del banner dove porta l'utente al click sul banner
nel campo2 ho l'immagine del banner
e nel campo3 un testo che appare con il banner
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/ban07.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 18 * FROM record ORDER BY ad_id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
Do While Not rs.EOF
%>
<script language="Javascript">
<!--
var currentdate = 0;
var core = 0;
function initArray() {
this.length = initArray.arguments.length;
for (var i = 0; i < this.length; i++) {
this[i] = initArray.arguments[i];
}
}
link = new initArray(
"<%=RS("campo1")%>",
);
image = new initArray(
"<%=RS("campo2")%>",
);
text = new initArray(
"<%=RS("campo3")%>",
);
var currentdate = new Date();
var core = currentdate.getSeconds() % image.length;
var ranlink = link[core];
var ranimage = image[core];
var rantext = text[core];
document.write('<a href=\"' +ranlink+ '\" target=\"_top\"><img src=\"'+ranimage+'\" border="0" alt=\"'+rantext+'\"></a>');
//-->
</SCRIPT>
<%
rs.MoveNext
Loop
%>
Rispondi quotando
