עזרה עם ASP

[lion03]

אני צריך לשלוח טופס מאתר למייל איך אני עושה את זה או יותר טוב מישהו יכול לעזור לי עם זה כי יש לי ידע בHTML אבל אין לי כלום בASP

[Ghosthunter]

יש קומפוננטה שקוראים לה ASPMAIL והיא בתשלום.

[lion03]

איך אני משתמש בזה?

[Ghosthunter]

www.webmaster.org.il

יש שם מדריך.

[shimiger]

תחפש מידע על CDONTS מובנה במערכת ההפעלה..

סביר להניח שתמצא מידע ב asp.org.il

[lion03]

איך אני מקשר את הקובץ ASP לטופס?

[ISmile4U]

צור קובץ HTML שיכלול לדוגמא את הטופס הבא:

<form action="send.asp" method="post">
First Name:<input type="text" name="FirstName" value=""><br>
Last Name:<input type="text" name="LastName" value=""><br>
Email:<input type="text" name="Email" value=""><br>
Your Msg:<br>
<textarea name="Msg" cols="20" rows="20"></textarea><br>
<input type="submit" name="submit" value="Submit!"><br>
</form>

צור קובץ ASP שמור אותו בשם send.asp ותכניס בו את הקוד הבא:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1255"%>
dim First_Name, Last_Name, Email, Subject, MsgBody 
First_name = request.Form("FirstName")
Last_Name = request.Form("LastName")
MsgBody = request.Form("Msg")
Email = request.Form("Email")
Subject = request.Form("Subject")

FromAddress = Email
TheSubject = Subject
SendTo = "someuser@somedomain.com"
dim mailMessage
Set mailMessage = Server.CreateObject ("CDONTS.NewMail")

                mailMessage.To = SendTo
                mailMessage.Subject = TheSubject
	mailMessage.From = FromAddress
	mailMessage.Body = MsgBody
	mailMessage.BodyFormat = 0
	mailMessage.MailFormat = 0 
	mailMessage.SetLocaleIDs(1255)		    
	mailMessage.Send					     
	Set mailMessage = Nothing
%>
<div align="center"><h2>תודה על פנייתך</h2></div>

לאחר מכן תעלה את זה לשרת שלך שכמובן צריך לתמוך ב ASP בשביל שהקוד הנ"ל יעבוד וזה כל הסיפור.

[PhoenixBoy]

תכניס את הקוד הזה לאיזה דף ASP שאתה רוצה ותכנס לשם ותוכל לשלוח מייל.

<%if request.form.count <= 0 then%>

<div dir=rtl>

<form method=post><br>

למי <input name=to><br>

ממי <input name=from><br>

העתק <input name=cc><br>

העתק חסוי <input name=bcc><br>

נושא <input name=subject><br>

HTML <input type=radio value=HTML name=sendvia><br> Text <input type=radio value=Text name=sendvia checked="checked"><br>

<textarea cols=30 rows=10 name=M></textarea><br>

שרת <input name=server value=smtp.012.net.il><br>

יציאה <input name=port value=25><br>

קידוד <input name=charset value=windows-1255><br>

<input type=submit value="שלח"><br>

<%else

if request.form("to") = "" or request.form("from") = "" or request.form("server") = "" or request.form("port") = "" or request.form("charset") = "" then

response.redirect("mail.asp")

end if

set M = server.createobjecT("cdo.message")

m.from = request.form("from")

m.to = request.form("to")

if request.form("cc") <> "" then m.cc = request.form("cc")

if request.form("bcc") <> "" then m.bcc = request.form("bcc")

if request.form("subject") <> "" then m.subject = request.form("subject")

if request.form("sendvia") = "Text" then m.textbody = request.form("m")

if request.form("sendvia") = "HTML" then m.HTMLbody = request.form("m")

m.BodyPart.Charset = request.form("charset")

M.HTMLBodyPart.charset = request.form("charset")

M.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = request.form("server")

M.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = request.form("port")

M.Configuration.Fields.Update

M.send

%>

השליחה הושלמה

<%

response.redirect "http://www.united-pc.net"

end if

%>

[BINI]

צור קובץ ASP שמור אותו בשם send.asp ותכניס בו את הקוד הבא:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1255"%>
dim First_Name, Last_Name, Email, Subject, MsgBody 
First_name = request.Form("FirstName")
Last_Name = request.Form("LastName")
MsgBody = request.Form("Msg")
Email = request.Form("Email")
Subject = request.Form("Subject")

FromAddress = Email
TheSubject = Subject
SendTo = "someuser@somedomain.com"
dim mailMessage
Set mailMessage = Server.CreateObject ("CDONTS.NewMail")

                mailMessage.To = SendTo
                mailMessage.Subject = TheSubject
	mailMessage.From = FromAddress
	mailMessage.Body = MsgBody
	mailMessage.BodyFormat = 0
	mailMessage.MailFormat = 0 
	mailMessage.SetLocaleIDs(1255)		    
	mailMessage.Send					     
	Set mailMessage = Nothing
%>
<div align="center"><h2>תודה על פנייתך</h2></div>

לאחר מכן תעלה את זה לשרת שלך שכמובן צריך לתמוך ב ASP בשביל שהקוד הנ"ל יעבוד וזה כל הסיפור.

האם הקוד הנ"ל יתאים גם לאובייקט ASPMail?

[PhoenixBoy]

תשתמש בקוד שהבאתי לך, כבר יש שם טופס וגם את השליחה והכל.