|
 |
| |
ปรึกษาเรื่องการส่งเมล์พอดีผมมีโค๊ดมาด้วยรองดูแล้วส่งไม่ผ่านครับไม่รู้ต้องกำหนดอะไรเพิ่มบ้าง |
| |
 |
|
|
 |
 |
|
ไม่ทราบว่าถ้าเราต้องการกำหนดให้มันสามารถส่งเป็นเมล์ได้เลย โดยไม่ต้องคำนึงถึง server มีเงือนไขยังไง เพราะทราบมาว่าในบางเคสการเขียน code asp แบบทั่วไปอาจรันไม่ได้บ้างแนะนำด้วยครับ พอดีได้ code อีกที
ส่วนที่เป็น .html
<TD vAlign=top colSpan=2 align=center><form name="form2" method="post" action="contact_us_send.asp" onSubmit="return validateForm()">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="7" colspan="2"></td>
</tr>
<tr>
<td width="25%" align="right" class="style8"><span class="style47">ชื่อผู้ติดต่อ :</span></td>
<td width="75%" align="left"><input name="userFirstName" type="text" id="userFirstName5" size="45" maxlength="50"></td>
</tr>
<tr>
<td align="right" class="style8"><span class="style47">E-mail :</span></td>
<td align="left"><input name="userEmail" type="text" id="userEmail3" size="45"></td>
</tr>
<tr>
<td align="right" class="style8"><span class="style47">โทรศัพท์ :</span></td>
<td align="left"><input name="userPhone" type="text" id="userPhone3" size="45"></td>
</tr>
<tr>
<td align="right" valign="top" class="style8"><span class="style47">ข้อความ :</span></td>
<td align="left"><textarea name="userComment" cols="42" rows="7" id="textarea3"></textarea></td>
</tr>
<tr>
<td valign="top"> </td>
<td align="left"><div align="left">
<input name="imageField2" type="submit" value="ส่งข้อความ">
<input type="reset" name="Reset" value="ลบข้อความ">
</div></td>
</tr>
</table>
</form></TD>
ส่วนที่เป็น .asp
<%
function chtml(text)
dim answer
answer = Replace(text,"'","''")
answer = replace(answer," "," ")
answer = replace(answer,chr(10),"<br>")
chtml = answer
end function
Function sendEmail(senderEmail,senderName,receiveEmail,subjectMail,message)
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = receiveEmail
objMail.To = senderName
objMail.Subject = subjectMail
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.Body = message
objMail.Send
set objMail = nothing
End Function
billingFirstName=request("userFirstName")
billingPhone=request("userPhone")
billingEmail=request("userEmail")
userComment=request("userComment")
message = "<meta http-equiv='Content-Type' content='ext/html; charset=windows-874'>Contact Detail<br>"
msg = "ผู้ติดต่อ CLICKCREATION มีรายละเอียดดังนี้"
message = message&"<br>"&msg
message = message&"<br>"&"<br>"&" ชื่อผู้ติดต่อ = "&billingFirstName
message = message&"<br>"&" โทรศัพท์ = "&billingPhone
message = message&"<br>"&" E-mail = "&billingEmail
message = message&"<br>"&" ข้อความ = "&userComment
message = message&"<br><br>"
call sendEmail(billingFirstName,"[email protected]",billingEmail,"Contact To [email protected]",message)
%>
Tag : ASP
|
|
|
 |
 |
 |
 |
| Date :
2010-08-04 10:49:02 |
By :
kid ครับ |
View :
983 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
 รอผู้รู้ด้วยคน
|
| |
|
|
| |
| Date :
2010-08-04 14:13:42 |
By :
delta_bird |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 01
|
