Groups | Blog | Home
all groups > macromedia flash sitedesign > january 2005 >

macromedia flash sitedesign : Problems with flash and ASP


Loverboy_Jarno
1/18/2005 3:45:40 PM
well, i want to use ASP for my emailform because the server only supports ASP
and NOT PHP!!! but i keep getting an error...

this is my code:

<%

Dim strTo
Dim strSubject
Dim strBody 'Strings for recipient, subject, boby
Dim objCDOMail 'The CDO object
Dim strReturn

strFrom = Request.Form("Email")
strTo = "username@provider.com"
strSubject = "typ here the subject"
strBody = "Naam: " & Request.Form("Naam") & vbcrlf & _
"Voornaam: " & Request.Form("Voornaam") & vbcrlf & _
"Adres: " & Request.Form("Adres") & vbcrlf & _
"Postcode: " & Request.Form("Postcode") & vbcrlf & _
"Plaats: " & Request.Form("Plaats") & vbcrlf & _
"Email: " & Request.Form("Email") & vbcrlf & _
"Onderwerp: " & Request.Form("Onderwerp") & vbcrlf & _
"Bericht: " & Request.Form("Bericht") & vbcrlf & _


Set objCDOMail = Server.CreateObject("CDONTS.NewMail")


objCDOMail.From = StrFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing
%>
<html>
<head>
<title>:: Uw email is verzonden ::</title>
<meta http-equiv="refresh" content="3;URL=index.htm">
</head>

<body bgcolor="#FFFFFF" background="img.jpg">
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle">
<font size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>
Uw email is met succes verzonden. <br>
<br>
Wij zullen u zo spoedig mogelijk een antwoord geven.</b></font>
</td>
</tr>
</table>

</body>
</html>
Loverboy_Jarno
1/18/2005 3:52:18 PM
and the flash code i use is :

on (release) {
getURL("http://www.artencraft.be/email.asp", "_parent", "POST");
Loverboy_Jarno
1/18/2005 4:06:14 PM
if you want to see my website : http://www.artencraft.be

AddThis Social Bookmark Button