Mah ? conoscendoli hanno pagato in ritardo il rinnovo e li hanno oscurati. Scadeva ieri.
Eppure io ho lavorato ieri col DB.
in ogni caso se ti interessa questo era dentro il file swf
codice:
onClipEvent(load){
this.loadVariables( "scroll_db.asp", post);
}
onClipEvent(data){
mymax=tot // Totale record
nomecampo = "dyn_db" // Istanza del campo dinamico
this[nomecampo].type = "Dynamic";
this[nomecampo].selectable = false
this[nomecampo].html=true
this[nomecampo].target = "_blank"
for(i=1; i<=mymax; i++){
cont_data = "data"+i
cont_tit = "titolo"+i
cont_url = "link"+i
myX=0
myY=18*i-18;
this[nomecampo].htmlText += "<font size='8' color='#FFCC00'>"+eval(cont_data)+"</font>"+"<font color='#FFFFFF'>"+eval(cont_tit)+"</font>
"
}
}
e questo dentro il file ASP
codice:
<%@LANGUAGE="VBSCRIPT"%>
<%
Response.Expires = 0
dim DSNName, sql
'set DSNName =Server.CreateObject("ADODB.Connection")
DSNName = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
DSNName = DSNName & Server.MapPath("../../mdb-database/tbNews.mdb")
sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = DSNName
rs.Source = sql
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
'function get_number_of_recordset (rs)
x = 0
while not rs.eof
x = x + 1
' ' insert your code here (optional only if u want to)
Response.Write("titolo" & x & "=" & rs("Titolo")& "
" & "&link" & x & "=" & rs("Link")& "&data" & x & "=" & rs("data")& "
")
' set rs =
rs.MoveNext
Response.Write("&")
wend
get_number_of_recordset = x
Response.write("tot="& get_number_of_recordset)
'end function
rs.Close
Set rs=Nothing
%>
in piu il file access mdb che contiene i dati nei campi estratti
Ciao