FLASH+ASP, ma poate ajuta cineva .... sunt disperaaat!!!

axel21ro · Mesajde **axel21ro** » Mie Apr 05, 2006 5:56 am

Deci am facut un formular in flash, si trebuie sa comunice cu fisierul form.asp
Nu stiu daca e bine scris form.asp
Deci eu il facusem in php si functiona totul perfect numai ca cel caruia ii dau situl nu vrea sa auda de php!!! (Omu nu e din Romania)
Ideea e ca datele care se completeaza in formular el vrea sa ii ajunga pe mail si vrea sa il fac cu ASP.
Recunosc ca nu stiu aproape nimic de asp(vbscript)
ASA:FISIERUL "form.ASP"

:<%@LANGUAGE="VBSCRIPT"%>
<%

subs_sTitle1 = Request.Form("ftitle")
subs_Fname = Request.Form("ffirstname")
subs_Surname = Request.Form("fsurname")
subs_Title = Request.Form("fjobtitle")
subs_Company = Request.Form("fcompanyname")
subs_Add = Request.Form("faddress")
subs_City = Request.Form("fcity")
subs_Country = Request.Form("fcountry")
subs_PhoneNumber = Request.Form("fphonenumber")
subs_Fax = Request.Form("ffaxnumber")
subs_EMail = Request.Form("femail")
subs_MailPre = Request.Form("femailpreference")
subs_PreStandNum = Request.Form("fpreferredstandnumber")
subs_Mail = Request.Form("femail")

FOR i = 1 to 12

IF Request.Form("check_vars" & i) <> "" Then
subs_Business = Business & Request.Form("check_vars" & i) & " "
End IF

NEXT

subs_Other = Request.Form("check_vars13")

strBody = "<html><body>"
strBody = strBody & "<table border=1 cellpadding=5 cellspacing=0
border-collapse: collapse bordercolor=#000080 width=100% >"
strBody = strBody & "<tr><td width=100% colspan=2>Book a stand
</td></tr>"
strBody = strBody & "<tr><td width=100% colspan=2>"
strBody = strBody & "Dubai Soft (Book a stand) </td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Title:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_sTitle1 & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>First Name:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Fname & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>SurnameName:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Surname & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Job Title:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Title & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Company Name:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Company & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Address:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Add & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>City:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_City & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Country:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Country & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Phone:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_PhoneNumber & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Fax:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Fax & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>E-Mail:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Mail & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Email Preference:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_MailPre & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Prefered stand
number:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_PreStandNum & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Business nature:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Business & "</td></tr>"
strBody = strBody & "<tr><td width=14% align=left valign=top>Other:</td>"
strBody = strBody & "<td width=86% align=left valign=top>" & subs_Other & "</td></tr></table>"
strBody = strBody & "</body></html>"

Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = "axel21ro@yahoo.com"
mail.From = subs_Email
mail.Subject = "Book a stand "
mail.Body = strBody
mail.MailFormat = 0
mail.BodyFormat = 0
mail.Send

%>

si codul din formularul flash:

stop();
import mx.controls.Alert;
ftitle.restrict="A-Z a-z .";
ffirstname.restrict="A-Z a-z ' .";
fsurname.restrict="A-Z a-z ' .";
fjobtitle.restrict="A-Z a-z ' .";
fcity.restrict="A-Z a-z";
fphonenumber.restrict="0-9 +";
ffaxnumber.restrict="0-9 +";
fpreferredstandnumber.restrict="0-9";
arr = new Array("AFGHANISTAN", "ALAND ISLANDS", "ALBANIA", "ALGERIA", "AMERICAN SAMOA", "ANDORRA", "ANGOLA", "ANGUILLA", "ANTIGUA AND BARBUDA", "ARGENTINA", "ARMENIA", "ARUBA", "AUSTRALIA", "AUSTRIA", "AZERBAIJAN", "BAHAMAS", "BAHRAIN", "BANGLADESH", "BARBADOS", "BELARUS", "BELGIUM", "BELIZE", "BENIN", "BERMUDA", "BHUTAN", "BOLIVIA", "BOSNIA AND HERZEGOVINA", "BOTSWANA", "BOUVET ISLAND", "BRAZIL", "BRITISH INDIAN OCEAN TERRITORY", "BRUNEI DARUSSALAM", "BULGARIA", "BURKINA FASO", "BURUNDI", "CAMBODIA", "CAMEROON", "CANADA", "CAPE VERDE", "CAYMAN ISLANDS", "CENTRAL AFRICAN REPUBLIC", "CHAD", "CHILE", "CHINA", "CHRISTMAS ISLAND", "COCOS (KEELING) ISLANDS", "COLOMBIA", "COMOROS", "CONGO", "COOK ISLANDS", "COSTA RICA", "COTE D'IVOIRE", "CROATIA", "CUBA", "CYPRUS", "CZECH REPUBLIC", "DENMARK", "DJIBOUTI", "DOMINICA", "DOMINICAN REPUBLIC", "ECUADOR", "EGYPT", "EL SALVADOR", "EQUATORIAL GUINEA", "ERITREA", "ESTONIA", "ETHIOPIA", " FALKLAND ISLANDS (MALVINAS)", "FAROE ISLANDS", "FIJI", "FINLAND", "FRANCE", "FRENCH GUIANA", "FRENCH POLYNESIA", "FRENCH SOUTHERN TERRITORIES", "GABON", "GAMBIA", "GEORGIA", "GERMANY", "GHANA", "GIBRALTAR", "GREECE", "GREENLAND", "GRENADA", "GUADELOUPE", "GUAM", "GUATEMALA", "GUINEA", "GUINEA-BISSAU", "GUYANA", "HAITI", "HEARD ISLAND AND MCDONALD ISLANDS", "HOLY SEE (VATICAN CITY STATE)", "HONDURAS", "HONG KONG", "HUNGARY", "ICELAND", "INDIA", "INDONESIA", "IRAN", " ISLAMIC REPUBLIC OF", "IRAQ", "IRELAND", "ISRAEL", "ITALY", "JAMAICA", "JAPAN", "JORDAN", "KAZAKHSTAN", "KENYA", "KIRIBATI", "KOREA", "KUWAIT", "KYRGYZSTAN", "LAO PEOPLE''S DEMOCRATIC REPUBLIC", "LATVIA", "LEBANON", "LESOTHO", "LIBERIA", "LIBYAN ARAB JAMAHIRIYA", "LITHUANIA", "LUXEMBOURG", "MACAO", "MACEDONIA", "MADAGASCAR", "MALAWI", "MALAYSIA", "MALDIVES", "MALI", "MALTA", "MARSHALL ISLANDS", "MARTINIQUE", "MAURITANIA", "MAURITIUS", "MAYOTTE", "MEXICO", "MICRONESIA", "MONACO", "MONGOLIA", "MONTSERRAT", "MOROCCO", "MOZAMBIQUE", "MYANMAR", "NAMIBIA", "NAURU", "NEPAL", "NETHERLANDS", "NETHERLANDS ANTILLES", "NEW CALEDONIA", "NEW ZEALAND", "NICARAGUA", "NIGER", "NIGERIA", "NIUE", "NORFOLK ISLAND", "NORTHERN MARIANA ISLANDS", "ISLANDSNORWAY", "OMAN", "PAKISTAN", "PALAU", "PALESTINIAN TERRITORY", " OCCUPIED PANAMA", "PAPUA NEW GUINEA", "PARAGUAY", "PERU", "PHILIPPINES", "PITCAIRN", "POLAND", "PORTUGAL", "PUERTO RICO", "QATAR", ">REUNION", "ROMANIA", "RUSSIAN FEDERATION", "RWANDA", "SAINT HELENA", "SAINT KITTS AND NEVIS", "SAINT LUCIA", "SAINT PIERRE AND MIQUELON", "SAINT VINCENT AND THE GRENADINES", "SAMOA", "SAN MARINO", "SAO TOME AND PRINCIPE", "SAUDI ARABIA", "SENEGAL", "SERBIA AND MONTENEGRO", "SEYCHELLES", "SIERRA LEONE", "SINGAPORE", "SLOVAKIA", "SLOVENIA", "SOLOMON ISLANDS", "SOMALIA", "SOUTH AFRICA", "SOUTH GEORGIA", "SPAIN", "SRI LANKA", "SUDAN", "SURINAME", "SVALBARD AND JAN MAYEN", "SWAZILAND", "SWEDEN", "SWITZERLAND", "SYRIAN ARAB REPUBLIC", "TAIWAN", " PROVINCE OF CHINA", "TAJIKISTAN", "TANZANIA", "THAILAND", "TIMOR-LESTE", "TOGO", "TOKELAU", "TONGA", "TRINIDAD AND TOBAGO", "TUNISIA", "TURKEY", "TURKMENISTAN", "TURKS AND CAICOS ISLANDS", "TUVALU", "UGANDA", "UKRAINE", "UNITED ARAB EMIRATES", "UNITED KINGDOM", "UNITED STATES", "UNITED STATES MINOR OUTLYING ISLANDS", "URUGUAY", "UZBEKISTAN", "VANUATU", "VENEZUELA", "VIETNAM", "VIRGIN ISLANDS", " BRITISH", "VIRGIN ISLANDS", " U.S.", "WALLIS AND FUTUNA", "WESTERN SAHARA", "YEMEN", "ZAMBIA", "ZIMBABWE");
var bool:Boolean;
for (i=0; i<arr.length; i++) {
fcountry.addItem({data:arr[i], label:arr[i]});
}
function isEmpty(value_) {
if (value_.text == "") {
value_.setFocus();
bool=true;
return true;
} else {
return false;
}
}
ftitle.setFocus();
var my_var:LoadVars = new LoadVars();
var respons:LoadVars = new LoadVars();
submit.onRelease = function() {
bool = false;
if (!isEmpty(ftitle)) {
my_var.ftitle = ftitle.text;

}
if (!isEmpty(ffirstname)) {
my_var.ffirstname = ffirstname.text;

}
if (!isEmpty(fsurname)) {
my_var.fsurname = fsurname.text;
}
if (!isEmpty(fjobtitle)) {
my_var.fjobtitle = fjobtitle.text;

}
if (!isEmpty(fcompanyname)) {
my_var.fcompanyname = fcompanyname.text;

}
if (!isEmpty(faddress)) {
my_var.faddress = faddress.text;

}
if (!isEmpty(fcity)) {
my_var.fcity = fcity.text;

}
my_var.fcountry = fcountry.selectedItem.label;
if (!isEmpty(fphonenumber)) {
my_var.fphonenumber = fphonenumber.text;

}
my_var.femailpreference = femailpreference.selectedItem.label;
if (!isEmpty(ffaxnumber)) {
my_var.ffaxnumber = ffaxnumber.text;

}
if (!isEmpty(femail)) {
my_var.femail = femail.text;

}
if (!isEmpty(fpreferredstandnumber)) {
my_var.fpreferredstandnumber = fpreferredstandnumber.text;

}
var check_vars:String = "";
var str:String;
for (i=1; i<=12; i++) {
if (i != 12) {
if (_root["check_vars"+i].selected) {
check_vars += "1 ";
} else {
check_vars += "0 ";
}
} else {
if (_root["check_vars"+i].selected) {
check_vars +=check_vars13.text;
}else {
check_vars += "0";
}
}
}

my_var.fselected_vars = check_vars;

if (bool) Alert.show("Please fill in all the marked fields", "Error");
else
if((femail.text.indexOf("@",0)<0)||(femail.text.indexOf(".",0)<0)||(femail.text.indexOf(" ",0)>=0)||(femail.text.indexOf(",",0)>=0)||(femail.text.indexOf(";",0)>=0)||(femail.text.indexOf("/",0)>=0)) Alert.show( "Please enter correct email address");
else
{
my_var.sendAndLoad("/form.asp",respons,"0");
gotoAndPlay(2);
}

};

Acum intrebarea mea este .... de ce NU MERGEEEE???
M-am saturat.
Trebuie sa mentionez ca la "form.asp" ma ajutat un prieten dar care nici el acum nu mai stie ce sa faca!!!!
Asa ca daca ma poate scoate cineva din incurcatura eu multumesc anticipat.
S-ar putea sa nu fi fost prea coerent, e prima data cand cer ajutor pe un forum, scuze pt acest lucru.

FLASH+ASP, ma poate ajuta cineva .... sunt disperaaat!!!

FLASH+ASP, ma poate ajuta cineva .... sunt disperaaat!!!

Cine este conectat