FLASH contact form

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 = "Contact letter
" & 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?





  1. 22/2/2007

    Τι λάθος σου εμφανίζει;

  1. 23/2/2007

    HTTP 500 - Internal server error
    Internet Explorer,

  1. 23/2/2007

    Πρώτα πρέπει να δεις ακριβώς το error και όχι το 500

    Από τον internet explorer επιλέγεις tools/ internet options/ advanced / και απενεργοποιείς το Show friendly HTTP error messages.

    Έτσι θα μπορέσεις να δεις το error.

  1. 23/2/2007

    CDO.Message.1 error '8004020d'

    At least one of the From or Sender fields is required, and neither was found.

    contact.asp, line 20

  1. 24/2/2007

    δεν έχεις δώσει email αποστολέα.

  1. 24/2/2007

    """""""""δεν έχεις δώσει email αποστολέα. """""" nai oraia ta les ...... kai euxarsito. alla den mou les kai pou akribos dino to onoma tou apostolea se pia grami ? ligo poio ssafis an ginete auxaristo.

  1. 25/2/2007

    myMail.From = Request("webmaster@kasos.com")
    myMail.To = Request("webmaster@kasos.com")

    το Request τι ρόλο παίζει εδώ;!!!

    Δώσε
    myMail.From="webmaster@kasos.com"
    myMail.To ="webmaster@kasos.com"

  1. 12/5/2009

    sd




   Πίσω στην προηγούμενη σελίδα