PDA

View Full Version : contact.asp flash form


Coastal Creators
01-01-2009, 04:13 PM
Hello all,

I'm brand new to this flash forum and need some help. I've used flash before but not with any forms, so I'm having trouble making the contact.asp form script work. I'm using MX2004.
My problem is I'm not getting any results to show up. I get the email to come through with field names no problem, but with no results.
Here is the flash code and the contact.asp code I'm using. Any help would be greatly appreciated.
Thanks.

Flash form code with submit button
on (release) {
_parent.getURL("contact.asp","_blank","GET");
_parent.customer="Customer:";
_parent.phone="Phone:";
_parent.email="Email:";
_parent.Data="Data:";
_parent.arrivaldate="ArrivalDate:";
_parent.arrivaltime="ArrivalTime:";
_parent.arrivalflightship="ArrivalFlightShip:";
_parent.departdate="DepartDate:";
_parent.departtime="DepartTime:";
_parent.departflightship="DepartFlightShip:";
_parent.destination="Destination:";

}

contact.asp page
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="test@email.net"
myMail.To="test@email.net"

myBody = ""
myBody = myBody & "customer: " & Request.Form ("Customer") & vbcrlf
myBody = myBody & "phone: " & Request.Form("Phone") & vbcrlf
myBody = myBody & "email: " & Request.Form("Email") & vbcrlf
myBody = myBody & "data: " & request("Data") & vbcrlf
myBody = myBody & "arrivaldate: " & request("ArrivalDate") & vbcrlf
myBody = myBody & "arrivaltime: " & request("ArrivalTime") & vbcrlf
myBody = myBody & "arrivalflightship: " & request("ArrivalFlightShip") & vbcrlf
myBody = myBody & "departdate: " & request("DepartDate") & vbcrlf
myBody = myBody & "departtime: " & request("DepartTime") & vbcrlf
myBody = myBody & "departflightship: " & request("DepartFlightShip") & vbcrlf
myBody = myBody & "destination: " & vbcrlf & request("Destination")

myMail.TextBody=MyBody
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="relay-hosting.secureserver.net"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>