Enquiry form using asp and flash
I have designed a website using flash and dreamweaver as always and i have always used the same coding for the enquiries form and now it has refused to work and i am stuck as i do not know much coding and only what i have been taught by a friend.

The problem i am having is that when i fill in the enquiry form which is a swf file and submit it, it gives me the message saying your email has been sent but it never comes back to me as i have set it up that all the forms would come through to my email. I will upload my asp coding and my action script. Should you know what is wrong please let me know, especially if i have left out anything, your cooperation is much appreciated. Thank you

Below is my action script coding:




    on (release) {
        if (txtName.text = "") {
            btnSubmit.enabled = false;
        }else{
            var names:String = this._parent.txtName.text.toString();
        }
            if (txtEmail.text = "") {
            btnSubmit.enabled = false;
        }else{
            var email:String = this._parent.txtEmail.text.toString();
        }
        if (txtContact.text = "") {
            btnSubmit.enabled = false;
        }else{
            var contact:String = this._parent.txtContact.text.toString();
        }
        if (txtCompany.text = "") {
            btnSubmit.enabled = false;
        }else{
            var company:String = this._parent.txtCompany.text.toString();
        }
        if (txtComment.text = "") {
            btnSubmit.enabled = false;
        }else{
            var comment:String = this._parent.txtComment.text.toString();
        }
        getURL("http://www.example.co.za/enquiry.asp", "_blank", "GET");
    }



Below is my asp coding:





    <title>enquiry_form</title>
    <% @language="VBSCRIPT" %>
    <%
    strName = Request.QueryString("names")
    strEmail = Request.QueryString("email")
    strContact = Request.QueryString("contact")
    strCompany = Request.QueryString("company")
    strComment = Request.QueryString("comment")
    
    
    strBody = "Enquiry Form" & "<br>"
    strBody = strBody & "Name: " & strName & "<br>"
    strBody = strBody & "Email: " & strEmail & "<br>"
    strBody = strBody & "Contact No.: " & strContact & "<br>"
    strBody = strBody & "Company: " & strCompany & "<br>"
    strBody = strBody & "Comments/Enquiries: " & strComment & "<br>"
    
    Set objCDOSYSMail = Server.CreateObject("CDO.Message")
    	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25 
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
    	objCDOSYSCon.Fields.Update 
    	Set objCDOSYSMail.Configuration = objCDOSYSCon
    	objCDOSYSMail.From = strEmail
    	objCDOSYSMail.To = "example@example.co.za"
    	
    	
    	objCDOSYSMail.Subject = "Enquiry Form"
    	objCDOSYSMail.HTMLBody = strBody
    	objCDOSYSMail.Send 
    	Set objCDOSYSMail = Nothing
    	Set objCDOSYSCon = Nothing
    
    %>
    
    
    
    
    <SCRIPT Language=JavaScript>
    alert("your email has been sent")
    
    window.onload = function() {
      history.back()
    };
    
    </SCRIPT>



Enquiry form using asp and flash
===

I have designed a website using flash and dreamweaver as always and i have always used the same coding for the enquiries form and now it has refused to work and i am stuck as i do not know much coding and only what i have been taught by a friend.

The problem i am having is that when i fill in the enquiry form which is a swf file and submit it, it gives me the message saying your email has been sent but it never comes back to me as i have set it up that all the forms would come through to my email. I will upload my asp coding and my action script. Should you know what is wrong please let me know, especially if i have left out anything, your cooperation is much appreciated. Thank you

Below is my action script coding:




    on (release) {
        if (txtName.text = "") {
            btnSubmit.enabled = false;
        }else{
            var names:String = this._parent.txtName.text.toString();
        }
            if (txtEmail.text = "") {
            btnSubmit.enabled = false;
        }else{
            var email:String = this._parent.txtEmail.text.toString();
        }
        if (txtContact.text = "") {
            btnSubmit.enabled = false;
        }else{
            var contact:String = this._parent.txtContact.text.toString();
        }
        if (txtCompany.text = "") {
            btnSubmit.enabled = false;
        }else{
            var company:String = this._parent.txtCompany.text.toString();
        }
        if (txtComment.text = "") {
            btnSubmit.enabled = false;
        }else{
            var comment:String = this._parent.txtComment.text.toString();
        }
        getURL("http://www.example.co.za/enquiry.asp", "_blank", "GET");
    }



Below is my asp coding:





    <title>enquiry_form</title>
    <% @language="VBSCRIPT" %>
    <%
    strName = Request.QueryString("names")
    strEmail = Request.QueryString("email")
    strContact = Request.QueryString("contact")
    strCompany = Request.QueryString("company")
    strComment = Request.QueryString("comment")
    
    
    strBody = "Enquiry Form" & "<br>"
    strBody = strBody & "Name: " & strName & "<br>"
    strBody = strBody & "Email: " & strEmail & "<br>"
    strBody = strBody & "Contact No.: " & strContact & "<br>"
    strBody = strBody & "Company: " & strCompany & "<br>"
    strBody = strBody & "Comments/Enquiries: " & strComment & "<br>"
    
    Set objCDOSYSMail = Server.CreateObject("CDO.Message")
    	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25 
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
    	objCDOSYSCon.Fields.Update 
    	Set objCDOSYSMail.Configuration = objCDOSYSCon
    	objCDOSYSMail.From = strEmail
    	objCDOSYSMail.To = "example@example.co.za"
    	
    	
    	objCDOSYSMail.Subject = "Enquiry Form"
    	objCDOSYSMail.HTMLBody = strBody
    	objCDOSYSMail.Send 
    	Set objCDOSYSMail = Nothing
    	Set objCDOSYSCon = Nothing
    
    %>
    
    
    
    
    <SCRIPT Language=JavaScript>
    alert("your email has been sent")
    
    window.onload = function() {
      history.back()
    };
    
    </SCRIPT>


