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

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

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

www.webmaster.org.il

יש שם מדריך.

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

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

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

צור קובץ 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 בשביל שהקוד הנ"ל יעבוד וזה כל הסיפור.

תכניס את הקוד הזה לאיזה דף 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

%>

צור קובץ 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?

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