Finalmente ho risolto il problema del Pulsante Avanti/Indietro!

Per chi volesse sapere come ho fatto posto ivi il codice:

codice:

<%@ Language=VBScript %>
<% Option Explicit %>


<HTML>
<HEAD>
<TITLE>Prova</TITLE>
</HEAD>
<BODY bgcolor="#000066">
<center>



<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" WIDTH=100% HEIGHT=100%>
	<PARAM NAME=movie VALUE="Visualizza.swf">
	<PARAM NAME=quality VALUE=high>
	<PARAM NAME=bgcolor VALUE=#000066>
	<EMBED src="Visualizza.swf" quality=high bgcolor=#000066  WIDTH=100% HEIGHT=100% TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
</center>
</BODY>
</HTML>
 

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")

' connessione a database Access
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\provaguestbook\guestbook.mdb"

dim Param
Param = request.queryString("Param")

dim muovi
muovi = request.queryString("muovi")

objConn.open

Dim objRS, strSQL

set objRS = Server.CreateObject("ADODB.Recordset")

Dim operazione
Dim stringa

if Param <> "" then
	if muovi="successivo" then 
		stringa = " where ID > " + Param + " order by ID ASC"
	else 
		stringa = " where ID < " + Param + " order by ID DESC"
	end if
else
	stringa = " order by ID DESC "
end if

strSQL = "select * from Inserimento " + stringa + ";"

objRS.open strSQL, objConn, 3, 3

Dim Totale
Totale = objRS.RecordCount

dim ID
ID = objRS("ID")

dim Data
Data = objRS("Data")

dim Ora
Ora = objRS("Ora")

dim Nome
Nome = objRS("Nome")

dim EMail
EMail = objRS("EMail")

dim Testo
Testo = objRS("Testo")

Response.Write ("ID=" & ID & "
")
Response.write("&ID=" & ID & "&Data=" & Data & "&Ora=" & Ora & "&Nome=" & Nome & "&EMail=" & EMail & "&Testo=" & Testo)

if Totale = 1 and muovi="precedente" then
end if

Response.Write ("")

if (Totale = 1 and muovi="successivo") or muovi="" then
end if



objRS.close
set objRS = nothing

objConn.close
set objConn = nothing
%>
Con questo codice potrete ottenere la visualizzazione in Flash con tanto di Tasti Avanti/Indietro, per potersi spostare tra i record del DB!!!

Per quanto riguarda il filmato Flash dovete caricare in un fotogramma chiave qeusto codice:
codice:

loadVariablesNum{"Visualizza.asp", 0, "Post");
Nel fotogramma seguente dovrete inserire questo codice:
codice:

if (ID<>undefined) {
  gotoAndStop(numero del fotogramma precedente);
}
in più mettete del Testo con, per esempio, la scritta "Caricamento Dati..."


Nel fotogramma successivo a questo dovete Inserire:
codice:

gotoAndPlay(numero del fotogramma precedente)
Questo vi permette di poter far caricare i dati dal DB e di far capire all'utente cosa stà accadendo all'interno del filmato!

Per quanto riguarda i pulsanti, hanno questo codice:
codice:

on(press){
  loadVariablesNum("Visualizza.asp?Param="+ID+"&muovi=precedente", 0);
}
Con questo è tutto!!!!!
Vi saluto!!!!!

Metalsniper