Forum de discussion
Forum « Flash et Shockwave » (archives)
ASP -> Flash ----- question en gros...
Envoyé: 28 février 2004, 8h03 par blues
Asp et flash c'est repartit pour un tour
1) question bateau mais est il obliger d'ouvrir un page asp pour voir son code s'executé
oui je me doute que sans quoi sa chipote
mais ne peut il y avoir dans la page hebergent le swf, du code asp, des fonctions
qui sont apelée en cour de route par le swf ???
car ouvrir une page asp inplique de l'auto fermée et ca c'est ma l'ai assé bricolé...
bon si il faut absolument loder la page pour voir son code s'executé,
y'a t'il un moyen pour lui dire de s'ouvrir dans une frame
(dans mon cas , mon swf est lui même dans une frame, entourer de frame pour que
la mise en page soit identique chez tout le monde, j'ai donc une page index(frameset)contenant 5 frames,
3 frames avec une page vide, un frame avec une page conteur, et au centre un frame avec mon swf )
donc dans mon cas si je pouvait executer cette page asp dans un des frame vide cela m'arangerait
mais ceci n'est peut être qu'une soluce tout ausi bricolée...
j'ai pas mal fouille tes tutos, et pour lancé uns scrip asp, j'ai trouver
loadvariable("mapage.asp?var1=21&var2=30", "GET")
ok mai cela ne marche pas dans mon cas j'ai du le faire avec un getURL
mais ca, ca load la page et ca ne me convient pas....
//////////////////////////////////////////////////////////////////////
bon voici mon code
Le but est de récupére les infos du Fla, de les incures dans une db acess 97 (a marche pas avec une db acess 2000)
dans le flash, d'envoyer un mail a grimage.com pour dire qu'il y a du nouveau dans la db
et pour finir envoyer un mail de confirmation a l'user
getURL("http://www.Grimage.com/Admin/SendForm.asp?EMail="+Mail+"&Password="+Pass+"&Suivit="+News+"&Pseudo="+Pseudo, "GET");
Body = "<img src='http://www.grimage.com/Banners/Grimage.jpg' width='450' height='56'><br><br><br>";
Body += "Bonjour <b><i>"+Pseudo+"</i></b>,<br><br>";
Body += "Ton incription à bien été pris en compte,<br>";
Body += "ton mot de passe est : <b>"+Pass+"</b>,<br>";
Body += txtNews+"<br><br>";
Body += "N'oublie pas de voter pour ton maquillage préféré,<br>";
Body += "celui qui aura récolté le plus de voix<br>";
Body += "se vera offrit le prix des internautes <br>";
Body += "lors de la soirée de remise des résultats du<br>";
Body += "BIFFF 21st Make-up Contest<br>le vendredi 26 mars à 21h<br>";
Body += "au bar du Passage 44<br><br>";
Body += "Plus d'info sur le concours : www.bifff.org <br><br><br>";
Body += "il ne te reste plus qu'a activer ton compte<br>";
Body += "en cliquant sur ce lien<br>";
Body += "<a href='http://www.grimage.com/Admin/activ.asp'>Activation</a><br>";
getURL("http://www.grimage.com/Admin/SendMail.asp?Dest="+Mail+"&redir=Merci.asp&From=info@Grimage.com&Subject=Demande d'inscription Grimage&Body="+Body, "GET");
les pages asp
SendFrom.asp
<%
CMail = Request.QueryString("EMail")
CPass = Request.QueryString("Password")
CNews = Request.QueryString("Suivit")
CPseudo = Request.QueryString("Pseudo")
FileSpec = Server.MapPath("UserMail97.mdb")
DBPath = "driver={Microsoft Access Driver (*.mdb)};dbq=" & FileSpec & ";"
Set DBCon = Server.createObject("ADODB.RecordSet")
SQL = "INSERT INTO client (Mail,Pass,News,Pseudo) VALUES ('" & CMail & "','" & CPass & "','" & CNews & "','" & CPseudo & "' )"
DBCon.Open SQL,DBPath
Body = "Nouvelle entrée dans la DB<br>User de www.Grimage.com<br>"
Body = Body & "<br>"
Body = Body & "User: " & CPseudo &"<br>"
Body = Body & "<br>"
Body = Body & "adresse E-mail: " & CMail &"<br>"
Body = Body & "Mot de pass : " & CPass & "<br>"
Response.Redirect "SendMail.asp?Dest=thur@lunie.net&redir=Merci.asp&From=WebSender@Grimage.com&Subject=Demande d'inscription Grimage&Body=" & Body
%>
et SendMail.asp
<%
Dest = Request.QueryString("Dest")
From = Request.QueryString("From")
Subject = Request.QueryString("Subject")
Body = Request.QueryString("Body")
Redir = Request.QueryString("Redir")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "neptune.lunie.net"
JMail.Sender = From
JMail.Subject = Subject
JMail.AddRecipient Dest
JMail.Body = body
JMail.ContentType = "text/html"
JMail.Priority = 3
'Send it to user
JMail.Execute
JMail.Close()
set JMail = nothing
if Len(Redir) > 0 OR Not IsNull(Redir) Then
Response.Redirect Redir
Else
Response.Write "OK"
end if
%>
et pour finir Merci.asp
<html>
<head>
<title>----- Merci -----</title>
</head>
<script language="JavaScript">
self.resizeTo(200,200);
self.moveTo(100,100);
self.close();
</script>
</html>
/////////////////////
question subsidière, comment verifier que l'adresse mail, n'est pas déjà dans la db
faut il le faire dans le fla ou dans l'asp ???
sorry je suis bavard, mais j'y ai passé la nuit et je doit dire que ca me prend un peu la tête....
merci pour toutes tes réponses...
Réponses
|