| Here is a simple tutorial with step-by-step learning on how to connect make Flash based applications to interact with ASP programming- helping you to start and explore backend database driven Flash.
Step1 : Open
Macromedia FlashMX, set the area as 200px and 20px.
Step 2 : Select
the text tool from the Toolbox as shown in the figure below
Step 3 : After
selecting the text tool from the properties menu, select the text
tool type as input text from the drop down menu.
|
|
Step 4 : Drag
and draw a textbox using the same tool.
Step 5 : To
make the text tool area appear like a textbox, select the "SHOW
BORDER AROUND TEXT".
Step 6 : Set
the Var value for the textbox as t1. That is you are naming
the text box as t1.
Step 7 : Draw
a similar textbox again with a larger area. set the variable name
for the text box as t2. Set the property for the second text box
as Multi line as shown below.
Step 8 : Select
the Rectangle tool from the toolbox. Draw a small rectangle
Step 9 : Convert
it into a button. After creating it into a button, right click the
button and select Actions .
Step 10 : When
you click the "Add new item to the script", Select
Actions -> Movie Control -> on
Step 11: After
selecting "on". A small window containing the following
options will be listed. select the "Press" from
the options.
Step 12 : Now
click (+} again. Select the Actions -> browser / Network ->
getURL from the actions pane.
Step 13 : Now
a small window asking for a few parameters to be filled will be
prompted as shown below. Set the URL text to the page to which the
data to be posted. example (submit.asp) for PHP users make it as
(submit.php).
Select the window value as "_self
" and the Variables value to be set as "Send using
POST ".
Step 14 : Now
export this to a .swf file.
Step 15 : Now
create a asp page save it as "submit.asp". Paste the below
given code.
<%
dim Nm,Comments
Nm=request("t1")
Comments=request("t2")
Set objCDONTS = server.CreateObject("CDONTS.NewMail")
With objCDONTS
. From = "webenquiry@example.com"
. to = "admin@example.com"
.Subject = "Website enquiry"
.Body = Nm & "<br>" & Comments
.BodyFormat = 0 ' CdoBodyFormatHTML
.Send
Set objCDONTS = Nothing
%>
Now the submitted content would be sent as
a email to the administrator.
|
