En el fotograma uno no contiene nada de codigo ni en pantalla.
En el fotograma dos aparece el siguiente codigo y nada en pantalla:
Código :
numstelf=""
loadVariables("numstelf.asp", this, "GET");El codigo asp para numstelf es el siguiente:
Código :
<%@ Language=VBScript %>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("agenda.mdb"))
strSQL = "SELECT * FROM agenda ORDER BY nombre ASC"
Set objRS = oConn.Execute(strSQL)
x=1
while (not objRS.Eof)
Response.Write "&Tel"&x&"=" & objRS("telefono") & "&Nom"&x&"=" & objRS("nombre")
objRS.MoveNext
x=x+1
wend
Response.write "&totreg="&x-1
oConn.Close
set objRS = nothing
set oConn = nothing
%> En el fotograma tres esta este codigo:
Código :
if (this.totreg ne "") {
gotoAndStop(7);
}y en pantalla aparece cargando... y dura hasta el fotograma 4
Fotograma cinco sin codigo y nada en pantalla.
Fotograma seis solo codigo:
Código :
gotoAndPlay(3);
y en el fotograma siete:
Código :
this.tNom = "";
this.tTel = "";
for (i=1; i<=5; i++) {
this.tNom += this["Nom" +i] + "<br><br>";
this.tTel += this["Tel" +i] + "<br><br>";
}
pagac=1;
coc=Math.floor(this["totreg"]/5);
res=this["totreg"]%5;
if (res<>0){
pagt=coc+1;
}
else{
pagt=coc;
}
treg=pagac + " / " + pagt;y en pantalla aparece:
un area de texto como encabezado de tipo dinamico que dice agenda de telefonos y dos areas de texto dinamicas que es donde se mostraran el nombre y el telefono llamadas tlista1 y tlista2 respectivamente.
De igual forma aparece un texto que es un boton con la leyenda Eliminar contacto con el siguiente codigo:
Código :
on (release){
gotoAndStop("Borrar",1);
}Entonces aparece el MC Borrar con lo siguiente
Dos textos con Textos:
1. Escriba el nombre que quiere borrar
2. Nombre
Un textBox en el que se capturara el nombre
Un texto borrar como boton con el codigo:
Código :
on (release) {
if (iNomb<>"") {
gotoAndPlay(2);
}
}Un texto cancelar como boton con el codigo:
Código :
on (release){
gotoAndPlay("Agenda",1);
}En el fotograma uno aparece el codigo:
Código :
stop();
iNomb="";
En el fotograma dos:
Código :
loadVariables("delnum.asp", this, "POST");y la leyenda enviando de forma intermitente en los fotogramas 4, 6, 8, 10 y 12 en los fotogramas 3, 5, 7, 9, 11, 13 y 14 van vacios para que parezca texto intermintente y sin codigo.
En el fotograma 15 aparece la leyenda registro borrado y el texto volver como boton y el codigo:
Código :
on (release) {
loadMovie("agenda.swf",1);
}en el fotograma 15 aparece el codigo:
Código :
stop();
En la segunda capa no hay nada durante los 15 fotogramas solo el fotograma 1 como fotograma clave y todos los demas no contienen nada hasta el quince que se inserta uno vacio
y el codigo asp es el siguiente para delnum.asp
Código :
<%
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open ("PROVIDER = Microsoft.Jet.OLEDB.4.0; DATA SOURCE =" + "c:\documents and settings\voglopez\my documents\.mdb")
nmb= Request("iNomb")
strSQL = "DELETE * FROM agenda WHERE nombre = '" & nmb & "'"
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
%>enseguida el boton de retroceso con el codigo:
Código :
on (release){
if (n>=5){
pagac-=1;
treg=pagac + " / " + pagt;
this.tNom = "";
this.tTel = "";
n-=5;
for (i=n+1; i<=n+5; i++) {
this.tNom += this["Nom" +i] + "<br><br>";
this.tTel += this["Tel" +i] + "<br><br>";
}
}
}El boton de avance con:
Código :
on (release){
if (n<(this["totreg"])-5){
pagac+=1;
treg=pagac + " / " + pagt;
this.tNom = "";
this.tTel = "";
n+=5;
for (i=n+1; i<=n+5; i++) {
this.tNom += this["Nom" +i] + "<br><br>";
this.tTel += this["Tel" +i] + "<br><br>";
}
}
}Despues un texto añadir telefono como boton con el codigo:
Código :
on (release){
gotoAndStop("Agregar",1);
}Entonces aparece el movieclip agregar con lo siguiente:
Dos textos uno Nombre y uno telefono;
Dos textbox para nombre y telefono;
Dos textos como botones añadir y cancelar;
El codigo para añadir es:
Código :
on (release) {
if (iNomb<>"" && iTelf<>"") {
gotoAndPlay(2);
}
}El codigo para cancelar es:
Código :
on (release){
gotoAndPlay("Agenda",1);
}Ahora el codigo para los fotogramas del MC agregar:
En el fotograma uno:
Código :
stop();
iNomb="";
iTelf="";
El en fotograma dos:
Código :
loadVariables("insnum.asp", this, "POST");y aparece la leyenda enviando, la cual se repite en los fotogramas 4, 6, 8, 10 y 12 sin codigo ninguno de estos, en los fotogramas 3, 5, 7, 9, 11, 13 y 14 van vacios para que parezca texto intermintente y sin codigo.
En el fotograma 15 aparece la leyenda nuevo registro insertado y el texto volver como boton y el codigo:
Código :
on (release) {
loadMovie("agenda.swf",1);
}En la segunda capa no hay nada durante los 15 fotogramas solo el fotograma 1 como fotograma clave y todos los demas no contienen nada hasta el quince que se inserta uno vacio
y el codigo asp para insnum.asp:
Código :
<%
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("agenda.mdb"))
nmb= Request("iNomb")
tlf= Request("iTelf")
strSQL = "insert into agenda (nombre, telefono) values ('" & nmb & "','" & tlf & "')"
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
%>Despues un texto añadir telefono como boton con el codigo:
Código :
on (release){
gotoAndStop("Agregar",1);
}En definiciones de simbolos aparece:
Código :
Stop();
pero, cuando ejecuto la aplicacion, no me funciona 
. Por ejemplo aqui en cristalab hay un ejemplo de una agenda con conexion a una base de datos de Access pero no me carga los datos que tiene la base de datos, ya intente con odbc y con jet ole db desde asp pero nada 
.
. 
