% '----- 定義部 ----- Dim sendFlg sendFlg = True %>
送信エラー: " ' Response.Write Server.HtmlEncode(result) & "
" ' End If '-- オブジェク開放 Set basp = Nothing End Sub Sub sendmail_portal() Dim strWMailBody '----- お客様用フォーム内容取得・設定 ----- '-- メールサーバ名 mailServer = "smtp7.gmoserver.jp" '-- メールサーバポート mailServerPort = "587" '-- ユーザ名 mailUsername = "shinshu.kotobuki@officepdj.jp" '-- パスワード mailPassword = "#&AC#r6&" '-- 差出人アドレス mailFrom = "送信エラー: " ' Response.Write Server.HtmlEncode(result) & "
" ' End If '-- オブジェク開放 Set basp = Nothing End Sub function CreateMailBody() Dim strReview '-- メール本文編集 mailBody = "" mailBody = mailBody & "■お名前(会社名・個人名):" & Nvl(Request("form_name")) & vbCrLf mailBody = mailBody & "■フリガナ:" & Nvl(Request("form_kana")) & vbCrLf If (Nvl(Request("form_tanto")) <> "") Then mailBody = mailBody & "■ご担当者様名:" & Nvl(Request("form_tanto")) & vbCrLf End If mailBody = mailBody & "■電話番号:" & Nvl(Request("form_tel")) & vbCrLf If (Nvl(Request("form_fax")) <> "") Then mailBody = mailBody & "■FAX番号:" & Nvl(Request("form_fax")) & vbCrLf End If If (Nvl(Request("form_zip")) <> "") Then mailBody = mailBody & "■郵便番号:" & Nvl(Request("form_zip")) & vbCrLf End If If (Nvl(Request("form_address")) <> "") Then mailBody = mailBody & "■住所:" & Nvl(Request("form_address")) & vbCrLf End If mailBody = mailBody & "■メールアドレス:" & Nvl(Request("form_mail")) & vbCrLf If (Nvl(Request("form_url")) <> "") Then mailBody = mailBody & "■ホームページURL:" & Nvl(Request("form_url")) & vbCrLf End If mailBody = mailBody & "■問い合わせ内容:" & vbCrLf mailBody = mailBody & Nvl(Request("form_content")) & vbCrLf CreateMailBody = mailBody End Function Function Numeric(InStr) Dim regEx Set regEx = New RegExp regEx.Pattern = "[^0-9]" regEx.IgnoreCase = True regEx.Global = True Numeric = regEx.Test(InStr) End Function Function NumericHyphen(InStr) Dim regEx Set regEx = New RegExp regEx.Pattern = "[^0-9\-]" regEx.IgnoreCase = True regEx.Global = True NumericHyphen = regEx.Test(InStr) End Function Function RegUrl(InStr) Dim regEx Set regEx = New RegExp regEx.Pattern = "[-_.!~*\'()a-zA-Z0-9;\/?:\@&=+\$,%#]" regEx.IgnoreCase = True regEx.Global = True RegUrl = regEx.Test(InStr) End Function Function ChkMailAddress(InStr) Dim regEx Set regEx = New RegExp regEx.Pattern = "^[\x01-\x7F]+@(([-a-z0-9]+\.)*[a-z]+|\[\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])" regEx.IgnoreCase = True regEx.Global = True ChkMailAddress = regEx.Test(InStr) End Function function Nvl(strValue) If (strValue = null) Then Nvl = "" Else Nvl = Trim(strValue) End If End Function %>