ASP+Feedback form (ligo complex...)

Πληροφορίες σχετικές με την ASP, ASP.NET και με τις εφαρμογές που είναι γραμμένες με αυτήν.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
VirusP
Δημοσιεύσεις: 116
Εγγραφή: 13 Μάιος 2002 16:48
Τοποθεσία: Nea Filadelfeia
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από VirusP » 29 Σεπ 2002 02:38

Prospatho na ftiakso mia feedback forma me pedia combo box h kati paromoio, gia epilogi apantiseon apo lista, kai apostoli tous me email jmail h aspmail. Mporei kaneis na mou dosei ena xeraki??

Euxaristo ek ton proteron!!

Άβαταρ μέλους
agrippas
Script Master
Δημοσιεύσεις: 494
Εγγραφή: 18 Ιούλ 2002 14:52
Τοποθεσία: Υπερπέραν
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από agrippas » 29 Σεπ 2002 05:37

VirusP κοίτα τι πρέπει να κάνεις:

-σε ένα html έγγραφο που θα έχει τη φόρμα-

Ας ονομάσουμε τη φόρμα mailform και θα φτιάξουμε ένα απλό javascript function που θα ελέγχει αν τα πεδία είναι συμπληρωμένα...

στο head της σελίδας βάλε

Κώδικας: Επιλογή όλων

<script language="javascript">function formvalidation&#40;&#41; &#123;
if &#40;document.mailform.pedio1.value.length < 2&#41; &#123;
alert&#40;"Παρακαλώ δώσε όνομα"&#41;;
return false;
&#125;
if &#40;document.mailform.pedio2.value.length < 6&#41; &#123;
alert&#40;"Παρακαλώ δώσε email"&#41;;
return false;
&#125;
if &#40;document.mailform.pedio3.value.length < 2&#41; &#123;
alert&#40;"Παρακαλώ δώσε -ό,τι είναι να δώσει τελοσπάντων εκεί-"&#41;;
return false;
&#125;
return true;
&#125;
</script>
εννοείται ότι θα χρησιμοποιήσεις τόσα if όσα είναι και τα πεδία της φόρμας. Στο παράδειγμα που σου δίνω το pedio2 θα είναι το mail του αποστολέα.

Τώρα θα φτιάξεις τη φόρμα στο σημείο της σελίδας που θέλεις εσύ (μέσα στο body)...

Κώδικας: Επιλογή όλων

<form name="mailform" method="POST" action="feedback.asp  onSubmit="return formvalidation&#40;&#41;;" target="_blank">
<p>Όνομα&#58;<br>
<input type="text" name="pedio1" size="31"><br>
Email&#58;<br>
<input type="text" name="pedio2" size="31"><br>
Katiallo&#58;<br><input type="text" name="pedio3" size="31"><br>
<input type="submit" value="Αποστολή" name="B1"></p>
</form>
μπορείς να προσθέσεις combos, textareas κλπ. υποθέτω ξέρεις να το κάνεις...

αποθηκεύεις το έγγραφο.

Μετά πας και φτιάχνεις στον ίδιο φάκελο το αρχείο feedback.asp

Αν χρησιμοποιείς JMail, τότε ο κώδικας του feedback.asp πρέπει να είναι κάπως έτσι...

Κώδικας: Επιλογή όλων

<%Response.Buffer=True%>
<html>
<head>
<title>αποστολή έγινε</title>
<%
Dim onomapediou1,pedio1,onomapediou2,pedio2,onomapediou3,pedio3
onomapediou1 = "Όνομα"
pedio1 = Request.Form&#40;"pedio1"&#41;
onomapediou2 = "email"
pedio2 = Request.Form&#40;"pedio2"&#41;
onomapediou3 = "μπλαμπλαμπλα"
pedio3 = Request.Form&#40;"pedio3"&#41;
Dim JMail
Set JMail = Server.CreateObject&#40;"JMail.SMTPMail"&#41;
'Στην αποκάτω γραμμή δίνεις το mail server π.χ. mail.lalala.gr
JMail.ServerAddress = "mail.lalala.gr"
'Εδώ γράφεις τη διεύθυνση που θα παίρνει το mail
JMail.AddRecipient "tomailsou@lalala.gr"
JMail.Sender = pedio2
JMail.Subject = "Θέμα του mail - εδώ γράφεις ό,τι θες"
'και φτιάχνεις το σώμα του μηνύματος 
JMail.Body = onomapediou1 & vbcrlf & pedio1 & vbcrlf & onomapediou2 & vbcrlf & pedio2 & vbcrlf & onomapediou3 & vbcrlf & pedio3
JMail.Execute
Set JMail = Nothing
Response.Write"<center />Το μήνυμα στάλθηκε."
%>
Δοκίμασέ το και φέρτο στα μέτρα σου! :wink:

Άβαταρ μέλους
telxinas
Δημοσιεύσεις: 438
Εγγραφή: 15 Ιούλ 2002 03:10
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από telxinas » 29 Σεπ 2002 14:34

Xekiname na ftiaxoume tin forma. Periexei 4 text fields kai ena combo :
<form name="form1" method="post" action="send_mail.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#005900">
<tr>
<td valign="middle" height="35" width="240"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">PEDIO
1 </font></td>
<td valign="middle" width="442" align="center">
<input type="text" name="PEDIO 1" class="txtfields">
</td>
<td width="3"></td>
</tr>
<tr>
<td height="35" valign="middle"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">PEDIO
2 </font></td>
<td valign="middle" align="center">
<input type="text" name="PEDIO 2" class="txtfields">
</td>
<td></td>
</tr>
<tr>
<td height="35" valign="middle"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">PEDIO
3 </font></td>
<td valign="middle" align="center">
<input type="text" name="PEDIO 3" class="txtfields">
</td>
<td></td>
</tr>
<tr>
<td height="35" valign="middle"><font color="#FFFFCC" size="2" face="Verdana, Arial, Helvetica, sans-serif">COMBO
4 </font></td>
<td valign="middle" align="center">
<select name="COMBO 4" class="txtfields">
<option value="1">PORTOKALIA</option>
<option value="2">MILA</option>
<option value="3">KARPOUZIA</option>
<option value="4">PEPONIA</option>
<option value="5">STAFILIA</option>
</select>
</td>
<td></td>
</tr>
<tr>
<td height="35" valign="middle"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">PEDIO
5 </font></td>
<td rowspan="2" valign="top" align="center">
<textarea name="PEDIO 5" class="txtfields" cols="30" rows="8"></textarea>
</td>
<td></td>
</tr>
<tr>
<td height="141" valign="top">&nbsp;</td>
<td></td>
</tr>
<tr>
<td height="45" colspan="2" valign="top" align="center">
<input type="submit" name="Submit" value="Submit" class="buttons">
<input type="reset" name="Submit2" value="Clear" class="buttons">
</td>
<td></td>
</tr>
<tr>
<td height="275" colspan="2" valign="top">&nbsp;</td>
<td></td>
</tr>
</table>
</form>



To action tis formas einai stin send_mail.asp tin opia tha ftiaxoume tora:

<%
PEDIO 1=request.form("PEDIO 1")
PEDIO 2=request.form("PEDIO 2")
PEDIO 3=request.form("PEDIO 3")
COMBO 4=request.form("COMBO 4")
PEDIO 5=request.form("PEDIO 5")

Select case COMBO 4 (Auto edo afora to COMBO 4. As poume oti exis 5 epiloges se auto. TIs xexorizis me auto to scriptaki. Epita tis xrisimopiis parakato eite gia to subject tou mail pou tha tou stali eite sto body tou mail.)
case "1"
thema="PORTOKALIA"
case "2"
thema="MILA"
case "3"
thema="KARPOUZIA"
case "4"
thema="PEPONIA"
case "5"
thema="STAFILIA"
end select



if PEDIO 1="" and PEDIO 2="" then ---(stin periptosi pou den theloume auta ta dio pedia na einai kena. Mporoume na to kanoume gia ola mas ta pedia an einai anagki.)
response.write("To minima sou edo. Tha fani stin selida san proidopiisi lathous. Vale ena link na ton pigeni piso stin forma pali")
elseif request.form("PEDIO 1")<>"" and request.form("PEDIO 2")<>"" then
Response.Write "<b>MPLA MPLA MPLA euxaristoume gia to endiaferon na epikinonisete...mpla mpla mpla</b>"(Kai auto fenete pali stin selida os epitixis kataxorisi ton stixion tou stin forma)
mailComp = "CDONTS"
smtpServer = "mail.o mailserver sou.com"
set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.From = "vale edo ena email sou pou thelis na fenete os apostoleas tou mail pou tha pari o xristis sou. Prepi na mpi mesa sta autakia diladi anamesa apo ta "" "
mailObj.To = PEDIO 5 (PEDIO 5 stin periptosi pou auto stin proigoumeni selida, itan to pedio eisagogis email tou xristi sou. Se auto tha tou apostali to sigekrimeno mail apo esena, automata. An px to PEDIO 4 stin proigoumeni selida itan to pedio eisagogis email tou xristi sou, tote tha evazes edo PEDIO 4. Prosoxi, tha to valis xoris ta autakia.)
mailObj.Subject = "Mpla mpla automati apantisi mpla mpla..." (Edo einai to subject tou mail pou tha apostali ston xristi sou. Mporis na to kani pio complex kanontas to exis : "Euxaristoume kirie&nbsp;" & PEDIO 1 & "&nbsp;gia to endiaferon sas na agorasete&nbsp;" & thema & "apo emas." (PEDIO 1 theorontas oti auto to pedio stin proigoumeni forma itan auto pou evaze to onoma tou o xristis sou. To thema einai to scriptaki to parapano pou legame. Opos katalavenis pezis etsi me opio pedio thelis.)
mailObj.Body = " To text pou thelis na diavasi o xristis sou sto mail pou tha tou stali. Pezis kai edo an thelis opos kai me to subject"
mailObj.Send
end if
%>

Άβαταρ μέλους
VirusP
Δημοσιεύσεις: 116
Εγγραφή: 13 Μάιος 2002 16:48
Τοποθεσία: Nea Filadelfeia
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από VirusP » 29 Σεπ 2002 18:43

Σας ευχαριστώ και τους δυο. Θα δοκιμάσω το script και θα σας ενημερώσω αν έχω τυχόν προβλήματα.

Άβαταρ μέλους
Bad Greek
Δημοσιεύσεις: 36
Εγγραφή: 03 Οκτ 2002 20:09
Τοποθεσία: Monaxo Germanias
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από Bad Greek » 17 Ιούλ 2007 23:57

Γεια σας,
πρσπάθεισα να φίάξω μια φορμα Feedbak με το παραδειγμα που δίνετε αλλά δεν μου δουλεύει.

Στο head τισ σελίδας έβαλα αυτό το script
<script language="javascript">function formvalidation() {
if (document.mailform.pedio1.value.length < 2) {
alert("Gew&uuml;nchete Zeitraum von");
return false;
}
if (document.mailform.pedio2.value.length < 6) {
alert("Gew&uuml;nchete Zeitraum bis");
}
return false;
if (document.mailform.pedio5.value.length < 6) {
alert("Erwachsene");
return false;
}
if (document.mailform.pedio6.value.length < 2) {
alert("Kinder");
return false;
}
if (document.mailform.pedio7.value.length < 2) {
alert("Ihre Nachricht");
return false;
}
if (document.mailform.pedio8.value.length < 2) {
alert("Vor und Nachname");
}
if (document.mailform.pedio13.value.length < 2) {
alert("E-mail");
return false;
}
if (document.mailform.pedio14.value.length < 2) {
alert("Telefon");
return false;
}
return true;
}
</script>
Μετά εφτιαξα τον κωδικα που δίνετε στο body
<form name="mailform" method="POST" action="feedback.asp" onSubmit="return formvalidation();" target="_blank">
<span class="Stil9">Anfragedaten</span><br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23" colspan="2"><label><span class="Stil6">Gew&uuml;ncshter Zeitraum</span> </label></td>
<td width="31%"><span class="Stil1">Von</span>
<input type="text" name="pedio1" size="9%"></td>
<td width="33%"><span class="Stil1">bis</span>
<input type="text" name="pedio2" size="9%"></td>
</tr>
<tr>
<td colspan="2" class="Stil6">Alternative Zeitraum </td>
<td><span class="Stil1">Von
<input type="text" name="pedio3" size="9%">
</span></td>
<td><span class="Stil1">bis
<input type="text" name="pedio4" size="9%">
</span></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td width="29%" class="Stil6">Erwachsene&nbsp;&nbsp;&nbsp;&nbsp; </td>
<td width="7%"><div align="right">
<select name="pedio5" size="1" multiple onChange="MM_jumpMenu(,this,0)">
<option>0</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
</select>
</div></td>
<td><div align="right" class="Stil6">Kinder</div></td>
<td><div align="center">
<select name="pedio6" size="1" multiple onChange="MM_jumpMenu(,this,0)">
<option>0</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
</select>
</div></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td height="94" colspan="4" class="Stil6">Ihre Nachricht&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <textarea name="pedio7" cols="45%" rows="5" id="pedio7">Hallo Frau Junt,</textarea></td>
</tr>
</table>
<br>
<span class="Stil9">Pers&ouml;nliche Angaben </span><br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="29%"><span class="Stil6"><strong>Vor und Nachname* </strong></span></td>
<td width="71%"><input type="text" name="Vor und Nachname" size="35%" maxlength="25"></td>
</tr>
<tr>
<td class="Stil6">Stra&szlig;e</td>
<td><input type="text" name="pedio9" size="35%"></td>
</tr>
<tr>
<td class="Stil6">Postleitzahl</td>
<td><input type="text" name="pedio10" size="15%" maxlength="6"></td>
</tr>
<tr>
<td class="Stil6">Wohnort</td>
<td><input type="text" name="pedio11" size="35%"></td>
</tr>
<tr>
<td class="Stil6">Land</td>
<td><select name="pedio12" onChange="MM_jumpMenu(,this,0)">
<option>Wehlen sie eine Land</option>
<option>Deutschland</option>
<option>&Ouml;setreich</option>
<option>Schweiz</option>
<option>Italien</option>
<option>Holland</option>
<option>Frankreich</option>
<option>Griechenland</option>
</select></td>
</tr>
<tr>
<td class="Stil6">E-Mail*</td>
<td><input type="text" name="pedio13" size="35%"></td>
</tr>
<tr>
<td class="Stil6">&nbsp;</td>
<td>Bitte geben sie Ihre E-Mail und/oder Ihre telefonnummer an. </td>
</tr>
<tr>
<td class="Stil6">Telefon*</td>
<td><input type="text" name="pedio14" size="35%"></td>
</tr>
<tr>
<td class="Stil6">Fax</td>
<td><input type="text" name="pedio15" size="35%"></td>
</tr>
<tr>
<td class="Stil6">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="Stil6"><div align="center">
<input type="submit" value="Unverbindliche Anfrage senden" name="Submit">
</div></td>
</tr>
<tr>
<td colspan="2" class="Stil6">&nbsp;</td>
</tr>
<tr>
<td colspan="2"><span class="Stil1">Dieses Anfrage-/Buchungsformular dient ausschlie&szlig;lich zur Kontaktaufnahme f&uuml;r Miet-Interessenten</span><span class="Stil6"></span><span class="Stil6"><BR>
</span></td>
</tr>
</table>
<label></label>
</form>
Και στο τέλος στον ίδιο φάκελο έφτιαξα το feedbak.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- TemplateBeginEditable name="Feedbak" -->
<title>Anfrage/Buchung</title>
<!-- TemplateEndEditable -->
<!-- TemplateBeginEditable name="head" -->
<!-- TemplateEndEditable -->
</head>

<body>
<%Response.Buffer=True%>

<title>Ihrer anfrage ist bei uns eingekomen </title>
<%
Dim Gew&uuml;nchte Zeitraum von,pedio1,Gew&uuml;nchte Zeitraum bis,pedio2,Alternative Zeitraum von,pedio3,Alternative Zeitraum bis,pedio4,Erwachsene,pedio5,Kinder,pedio6,Ihr Nachricht,pedio7,Vor und Nachname,pedio8,Stra&szlig;e,pedio9,PLZ,pedio10,Wohnort,pedio11,Land,pedio12,E-mail,pedio13,Telefon,pedio14,Fax,pedio15
Gew&uuml;nchte Zeitraum von = "Gew&uuml;nchte Zeitraum von"
pedio1 = Request.Form("pedio1")
Gew&uuml;nchte Zeitraum bis = "Gew&uuml;nchte Zeitraum bis"
pedio2 = Request.Form("pedio2")
Alternative Zeitraum von = "Alternative Zeitraum von"
pedio3 = Request.Form("pedio3")
Alternative Zeitraum bis = "Alternative Zeitraum bis"
pedio4 = Request.Form("pedio4")
Erwachsene = "erwachsene"
pedio5 = Request.Form("pedio5")
Kinder = "Kinder"
pedio6 = Request.Form("pedio6")
Ihre Nachricht = "Ihre Nachricht"
pedio7 = Request.Form("pedio7")
Vor und Nachname = "Vor und Nachname"
pedio8 = Request.Form("pedio8")
Stra&szlig;e = "Stra&szlig;e"
pedio9 = Request.Form("pedio9")
PLZ = "PLZ"
pedio10 = Request.Form("pedio10")
Wohnort = "Wohnort"
pedio11 = Request.Form("pedio11")
Land = "Land"
pedio12 = Request.Form("pedio12")
E-mail = "E-mail"
pedio13 = Request.Form("pedio13")
Telefon = "Telefon"
pedio14 = Request.Form("pedio14")
Fax = "Fax"
pedio15 = Request.Form("pedio15")
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.arcor.de"
JMail.AddRecipient "g.kitsios@arcor.de"
JMail.Sender = pedio13
JMail.Subject = "TEST TEST TEST TEST TEST"
'?a? ft????e?? t? s?&micro;a t?? &micro;???&micro;at??
JMail.Body = Gew&uuml;nchte Zeitraum von & vbcrlf & pedio1 & vbcrlf & Gew&uuml;nchte Zeitraum bis & vbcrlf & pedio2 & vbcrlf & Alternative Zeitraum von & vbcrlf & pedio3 & Alternative Zeitraum bis & vbcrlf & pedio4 & Erwachsene & vbcrlf & pedio5 & Kinder & vbcrlf & pedio6 & Ihre Nachricht & vbcrlf & pedio7 & Vor und NAchname & vbcrlf & pedio8 & Stra&szlig;e & vbcrlf & pedio9 & PLZ & vbcrlf & pedio10 & Wohnort & vbcrlf & pedio11 & Land & vbcrlf & pedio12 & E-mail & vbcrlf & pedio13 & Telefon & vbcrlf & pedio14 & Fax & vbcrlf & pedio15
JMail.Execute
Set JMail = Nothing
Response.Write"<center />Ihre ANachricht ist Gesendet"
%>

</body>
</html>
Σας παρακλώ αν μπορείτε να μου πείτε γιατί δεν δουλέβει
το link τις φόρμας είναιwww.ipeirotes.de/feedback/buchen.htm
Τελευταία επεξεργασία από το μέλος Bad Greek την 18 Ιούλ 2007 00:56, έχει επεξεργασθεί 1 φορά συνολικά.

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από dva_dev » 18 Ιούλ 2007 00:43

Μήπως φταίει αυτό;

Κώδικας: Επιλογή όλων

JMail.ServerAddress = "mail@arcor.de"

Άβαταρ μέλους
Bad Greek
Δημοσιεύσεις: 36
Εγγραφή: 03 Οκτ 2002 20:09
Τοποθεσία: Monaxo Germanias
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από Bad Greek » 18 Ιούλ 2007 00:55

οχι το άλαξα και πάλι δεν δουλεύει

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από dva_dev » 18 Ιούλ 2007 12:56

Το Jmail component είναι εγκατεστημένο;

Αν θέλεις να τσεκάρεις μερικά παραδείγματα με διαφορετικά components δες:
Send email from your ASP pages using CDONTS - CDOSYS - Jmail or AspMail

Άβαταρ μέλους
Bad Greek
Δημοσιεύσεις: 36
Εγγραφή: 03 Οκτ 2002 20:09
Τοποθεσία: Monaxo Germanias
Επικοινωνία:

ASP+Feedback form (ligo complex...)

Δημοσίευση από Bad Greek » 19 Ιούλ 2007 13:31

δεν έχω ιδέα τι είναι αυτό !!

Απάντηση

Επιστροφή στο “ASP, ASP.NET”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες