%@ LANGUAGE = VBScript %>
<%
Option Explicit
On Error Resume Next
Dim bsp, strBody
%>
お問い合わせ
|
|
<%
If Request.Form("page") <> "send" Then
%>
製品及び当団体に対するご意見、ご感想、ご批判等がございましたら是非ご投稿くださいますようお願い申し上げます。
<%
Else
%>
ご投稿いただきまして誠に有難うございました。近日中に、担当の者からお返事を差し上げますので、しばらくお待ちください。
<%
'投稿内容をメール配信します
Set bsp = Server.CreateObject("basp21")
strBody = "ユーザー様からのご投稿がありました。" & DateAdd("d",3,Date) & "以内に担当者は対応してください。" & vbCrlf &_
"------------------------------------" & vbCrlf &_
"【 名 前 】" & Request.Form("name") & vbCrlf &_
"【メールアドレス】" & Request.Form("mail") & vbCrlf &_
"【 投稿内容 】" & Request.Form("context") & vbCrlf &_
"-------------------------------------" & vbCrlf &_
Now & "に作成しました。"
bsp.SendMail "mail.development-network.net", "<" & Request.Form("kind") & "@development-network.net>", Request.Form("name") & "様<" & Request.Form("mail") & ">","ユーザー様からのご投稿がありました",strBody,""
End If
%>
|
|
|
Copyright©2000-2005 Development Network |
転載・再配布を禁じます
|
|
|
|