|
|
| Тема |
 може ли да кажете дали е вярно |
|
| Автор |
RCancer (преМинаващ) |
|
| Публикувано | 23.07.01 13:46 |
|
|
|
<%@ Language=VBScript %>
<%
Response.Buffer = true
Dim myMail, mtextz, mtext01, mtext02, mtext03
mtext01 = "Name:" & Request.Form("name") & vbcrlf
mtext02 = "Email:" & Request.Form("email") & vbcrlf
mtext03 = "Comments: " & Request.Form("comments") & vbcrlf
mtextz = mtext01 & mtext02 & mtext03
Set myMail = CreateObject("CDONTS.NewMail")
if request.Form("email") = "" then
myMail.From = "No name"
else
myMail.From = request.Form("email")
end if
myMail.To = "mail@hotmail.com"
myMail.MailFormat = 1
myMail.Body = mtextz
myMail.Send
Set myMail = Nothing
Response.write "DynText=E-mail sent successfully"
%>
10ks
| |
| |
| 
|
|
