Форма запроса с использованием asp и flash - PullRequest
Новая
       45

Форма запроса с использованием asp и flash

0 голосов
/ 17 октября 2011

Я разработал сайт, используя Flash и Dreamweaver, как всегда, и я всегда использовал одну и ту же кодировку для формы запросов, и теперь он отказался работать, и я застрял, потому что я не знаю много кодирования и только то, что я был учил друг.

Проблема, с которой я сталкиваюсь, заключается в том, что, когда я заполняю форму запроса, представляющую собой файл SWF, и отправляю ее, мне выдается сообщение о том, что ваше письмо отправлено, но оно никогда не возвращается ко мне, поскольку я его настроил что все формы придут на мою электронную почту. Я буду загружать мою кодировку asp и мой сценарий действия. Если вы знаете, что не так, пожалуйста, дайте мне знать, особенно если я что-то пропустил, ваше сотрудничество очень ценится. Спасибо

Ниже код моего сценария действия: 

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");
}

Ниже мое кодирование asp: 

<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>
...