<%@ Language=VBScript %> <% If Request.Form("to")="" or Request.Form("mail")="" Then 'Response.Redirect "default.asp" %>


クラエーのホームページをお友達に紹介してください

必ずお名前とメールアドレスを入力して下さい。

宛先　to:

(お友達のメールアドレス)

件名　sbj:

(件名は変更できません )

本文　 body:

本人　 from:

name : 　e-mail :



<% Else 'コンポーネントのインスタンスを生成します。 Set ml=Server.CreateObject("basp21") 'SMTPサーバーのマシン名を指定します。 smtpsrv="wserver" '配信処理 mailto=Cstr(Request.Form("to")) & Chr(9) mailto= mailto & "cc" & Chr(9) & "iwami@morritan.co.jp" & Chr(9) mailto= mailto & "reply-to" & Chr(9) & Request.Form("mail") mailfrom=Request.Form("name") & "<" & Request.Form("mail") & ">" 'メールの件名を指定します。　 sbj=Request.Form("sbj") 'メール本文を指定します。 body= Request.Form("body1") & Chr(&HA) body= body & Request.Form("body2") & Chr(&HA) '添付ファイルを指定います。 file="" 'メールを送信します。変数rcには、送信に失敗した時にエラーメッセージが格納されます。 rc = ml.SendMail(smtpsrv, mailto, mailfrom, sbj, body, file) 'メッセージ通知 If rc="" Then '戻る Response.Redirect "default.asp" Else 'Err Response.Write "送信に失敗しました " & rc End If End If %>