FLASH contact form

Από {nikoss}

OPIOS MPOREI NA BOITHISI, EUXARISTO
exo mia flash selida me contact form, sti selida einai autos o kidikas


rec.text = "online@kasos.com";
serv.text = "asp";
field_1.text = "field_1 description";
field_2.text = "field_2 description";
field_3.text = "field_3 description";
field_4.text = "field_4 description";
field_5.text = "field_5 description";
field_6.text = "field_6 description";
field_7.text = "field_7 description";
function reset_txt(name, name2, value) {
path = eval(_target);
path[name2] = value;
this[name].onSetFocus = function() {
path = eval(_target);
if (path[name2] == value) {
path[name2] = "";
}
};
this[name].onKillFocus = function() {
path = eval(_target);
if (path[name2] == "") {
path[name2] = value;
}
};
}
reset_txt("t1", "your_name", "");
reset_txt("t2", "your_email", "");
reset_txt("t3","phone","");
reset_txt("t4","message","");



-----------------------------------sto "sent" koumpaki einai autos o kodikas.

on (release) {
var your_name_descr = _parent.your_name_descr;
var your_email_descr = _parent.your_email_descr;
var field_1_descr = _parent.field_1_descr;
var field_2_descr = _parent.field_2_descr;
var field_3_descr = _parent.field_3_descr;
var field_4_descr = _parent.field_4_descr;
var field_5_descr = _parent.field_5_descr;
var field_6_descr = _parent.field_6_descr;
var field_7_descr = _parent.field_7_descr;
var message_descr = _parent.message_descr;
var message = _parent.message;
var field_1 = _parent.field_1;
var field_2 = _parent.field_2;
var field_3 = _parent.field_3;
var field_4 = _parent.field_4;
var field_5 = _parent.field_5;
var field_6 = _parent.field_6;
var field_7 = _parent.field_7;
var your_email = _parent.your_email;
var your_name = _parent.your_name;
getURL("contact."+serv.text, "_blank", "POST");
i = 1;
while (this["field_"+i]) {
_parent["field_"+i] = "";
i++;
}
reset_txt("t1", "your_name", "");
reset_txt("t2", "your_email", "");
reset_txt("t3", "phone", "");
reset_txt("t4", "message", "");
}

--------------------------------------------------- kai sto contact.asp autos o kodika

<%
for i=1 to 7
message=message + ""&Request("field_"&i&"_descr")&"   "&Request("field_"&i)&"
"
next
message=message + Request("message")
smtpServer = "smtp.kasos.com"
smtpPort = 25


name = Request("Nikck Online")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("webmaster@kasos.com")
myMail.To = Request("webmaster@kasos.com")
myMail.HTMLBody = "
" & message & ""
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
myMail.Configuration.Fields.Update
myMail.Send

%>


--------------- e giati den doulebi? kserei kanenas ma ne boithisi. ti kano lathos?