<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheck()) Then Exit Sub End If 'Response.Write(GB_VisitorID) 'Exit Sub %> <% Dim TmpShop Dim Gokei Dim Query Dim Content Dim Content2 Dim MailAddr Dim Shimei Dim Furi Dim Postal Dim ToDoFuKen Dim Address Dim TEL Dim Meigi If GB_UserID <> "" And GB_Password <> "" Then Set Content = QueryGetLogin(GB_UserID, GB_Password, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then MailAddr = "" & Content.Fields("メールアドレス") Shimei = "" & Content.Fields("氏名") Furi = "" & Content.Fields("ふりがな") Postal = "" & Content.Fields("郵便番号") ToDoFuKen = "" & Content.Fields("都道府県CD") Address = "" & Content.Fields("住所") TEL = "" & Content.Fields("電話番号") Meigi = "" & Content.Fields("振込名義") End If End If Dim ItemName If SelShop <> "" And Item <> "" Then Set Content = QueryGetItem(SelShop, Item, "", "", "", "", SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then ItemName = "" & Content.Fields("名称") Else Item = "" End If End If %>

お問合せメールフォーム <% If ShopName <> "" Then %> <% Else %> ※このメールフォームはショッピングモール管理者宛てのメールフォームです。 ※商品や注文のお問合せは各ショップのメールフォームよりお送りください。 ※（ショップのURLはご注文の際に送られた自動応答メールに記載されています） <% End If %> <% If ItemName <> "" Then %> <% End If %> <% = Spacer(1, 7) %> メールのあて先  <% If ShopName <> "" Then %>  <% = ShopName %> <% Else %>  ショッピングモール管理者 <% End If %> <% = Spacer(1, 7) %>  あなたのメールアドレス  <% If LocalMode = "1" Then %> <% Else %> <% End If %> <% = Spacer(1, 7) %> お名前  <% = Spacer(1, 7) %> 団体名等  <% = Spacer(1, 7) %> お問合せ対象商品   <% = ItemName %> <% = Spacer(1, 7) %> お問合せの内容  プライバシーポリシー （個人情報保護方針） に同意して送信する <% = ActionButton3Image("SendMailBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 58, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "送信する", "tx1416w", "center", "SendMail();") %> <% If ShopName <> "" Then %> <% Else %> <% = Spacer(1, 17) %> ＜ショッピングモール運営者情報＞ システム・フューチャー株式会社　教育ソフト事業部 〒111-0036 東京都台東区松が谷3-5-8 高山ビル3F TEL：03-5828-1031　FAX：03-5828-1034 https://www.sfc-jpn.jp <% End If %>

<% End Sub %>