����������� Ol�,
pos ya est�. Gracias por vuestra ayuda, me a ayudado a comprender la comunicaci�n
de flash con los .asp… mando el archivico que he hecho, al descomprimir,
quedar� todo en una carpeta llamada “dic”, en el iis5 que uso, s�lo
he tenido que compartirla en web y listo. Solo a�ade registros a una mdb, con
el tiempo ya aprender� a ver los resultados, claro que a�n no me queda claro
como pueden paginarse bien, pero esto es otyra consulta aparte,
����������� Otra vez, gracias.
����������� Josh.
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] En
nombre de Dragan Ardala
Enviado el: viernes, 15 de marzo
de 2002 14:43
Para: [EMAIL PROTECTED]
Asunto: RE: [flashmaestro] pasar
variables Flash-ASP-Flash
Hola,
te dejo este c�digo que he hecho
para guardar una
info de un formulario en una bbdd
.mdb a ver si te sirve:
Parte de Asp:
==============
<%
'
option explicit
dim nombre
'nombre
dim apellidos
'apellidos
dim
direccion 'direccion
dim
emilio
'e-milio
dim telefono
'fono
dim poblacion
'poblacion
dim cp
'codigo postal
dim contador
dim sql
dim oConn
dim rs
dim oConn2
dim rs2
dim krak
nombre = Request.Form("nombre")
apellidos = Request.Form("apellidos")
direccion =
Request.Form("direccion")
emilio =
Request.Form("emilio")
poblacion =
Request.Form("poblacion")
cp = Request.Form("cp")
telefono =
Request.Form("telefono")
' filtras comillas simples
nombre = replace
(nombre,"'"," ")
apellidos = replace
(apellidos,"'"," ")
direccion = replace
(direccion,"'"," ")
emilio = replace
(emilio,"'"," ")
poblacion = replace
(poblacion,"'"," ")
cp = replace
(cp,"'"," ")
telefono = replace
(telefono,"'"," ")
if emilio<>"" then
' check if email es repetido, and if es repetido entonces a tomar..
Set oConn2 = Server.CreateObject("ADODB.Connection")
oConn2.Open("tu_bbdd")
SET rs2 = server.CreateObject ("ADODB.recordset")
sql = "SELECT COUNT(id) FROM emails where emilio='" &
emilio & "'"
rs2.Open sql,oConn2
' �cuantos registros tenemos?
contador=rs2(0)
if contador>0 then
Response.Write "hecho=Dupli"
Response.end
end if
end if
' formar sql
sql = "INSERT INTO emails
(nombre,apellidos,direccion,emilio,poblacion,cp,telefono)"
sql = sql & " VALUES
('" & nombre & "','" & apellidos &
"','"& direccion & "','" & emilio &
"','" & poblacion & "','" & cp &
"','" & telefono & "')"
' check
krak = false '
fallo gordo
if nombre = "" OR apellidos="" or
direccion="" or emilio="" or poblacion="" or
cp="" or telefono="" then
Response.Write "hecho=No"
Response.End
end if
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("tu_bbdd")
set rs = oConn.Execute(sql)
Response.Write "hecho=Si"
%>
============================================================
sobre todo presta la atenci�n a la parte donde >Asp
comunica con Flash.
Response.Write "hecho=Dupli"
Response.Write "hecho=No"
Response.Write "hecho=Si"
Con eso paso las variables a swf.
Parte de Flash
===============
frame1://llamada al script asp
------------------------------
loadVariablesNum
("scripts/insert.asp", 1, "POST");
frame2://comprobaci�n
------------------------------
if(hecho != "")
{
if (hecho == "Si")
{
this.gotoAndPlay ("inicio");
}
if (hecho == "Dupli")
{
this.gotoAndStop ("dupli");
}
if (hecho == "No")
{
this.gotoAndStop ("error");
}
}
Seg�n la variable que recibo despues de procesar el
asp, mando
la pel�cula al rotulo
correspodiente (inicio, dupli y error).
frame3:loop
-----------
gotoAndPlay ("comprueba");
hago un loop al r�tulo load que en este caso ser�a el
frame 2.
Bueno, espero que lo vas a solucionar con eso.
salu2
dic.zip