<%
'メール送信元を指定します。
Const CstFrom = "jigyou@fcci.or.jp"
'メール送信者を指定します。
Const CstFromName = "福井商工会議所 地域事業課"
'メールサーバを指定します。
Const CstSv = "61.197.178.89"
'メールタイトルを指定します。
Const CstTitle = "中国への輸出促進セミナー(3/14)申込受付"
Dim ObjConn,ObjRS
'パラメータを取得します。
office = Request.Form("office")
name = Request.Form("name")
postnumber = Request.Form("postnumber")
address = Request.Form("address")
tel = Request.Form("tel")
fax = Request.Form("fax")
mail = Request.Form("mail")
act = Request("act")
'デフォルトページを登録画面に設定します。
if act = "" then
act = "ent"
end if
'登録確認画面でエラーチェックをします。
if act = "entconf" then
flg_err = ""
if name = "" then
flg_err = "name"
end if
if postnumber = "" then
flg_err = "postnumber"
end if
if address = "" then
flg_err = "address"
end if
if tel = "" then
flg_err = "tel"
end if
if mail = "" then
flg_err = "mail"
end if
end if
'エラーがある場合はエラー表示画面に移動させます。
if flg_err <> "" then
act = "err"
end if
'=================================================
'----- 登録画面
'=================================================
Sub Gamen_ent( )
%>
うまく送信できない場合は大変お手数ではございますが、こちらから メールにてご連絡ください。
※お申込いただいた内容は、福井商工会議所からの各種連絡･情報提供のために利用させていただくことがあります。
<%
End Sub
'=================================================
'----- 登録確認画面
'=================================================
Sub Gamen_entconf( )
%>
申込内容を確認してください
<%
End Sub
'=================================================
'----- 処理完了画面
'=================================================
Sub Gamen_kan( )
%>
<% Call UpdateDB() 'データを追加します。 %>
<%
End Sub
'=================================================
'----- エラー表示画面
'=================================================
Sub Gamen_err( )
%>
<%
End Sub
'=================================================
'----- メール送信
'=================================================
Sub SendMail(name,mail)
'メール送信内容を設定します。
m_sv = CstSv
m_from = CstFrom
m_fromname = CstFromName
m_to = mail & vbTab & "bcc" & vbTab & CstFrom
m_title = CstTitle
m_office = office
m_name = name
m_fromaddress = "〒918-8580 福井市西木田2-8-1"
m_fromtel = "0776-33-8253"
m_fromfax = "0776-36-8588"
'メール本文を組み立てます。
m_naiyou2 = m_office & " " & m_name & "様" & vbnewline & vbnewline & _
"お申込ありがとうございました。" & vbnewline & _
"" & vbnewline & vbnewline & _
"事業所名： " & office & vbnewline & _
"お名前： " & m_name & vbnewline & _
"郵便番号： " & postnumber & vbnewline & _
"住所： " & address & vbnewline & _
"Tel： " & tel & vbnewline & _
"Fax： " & fax & vbnewline & _
"メールアドレス： " & mail & vbnewline & vbnewline & _
m_fromname & vbnewline & _
m_from & vbnewline & _
m_fromaddress & vbnewline & _
m_fromtel & " " & m_fromfax
If m_to <> "" Then
'Basp21でメールを送信します。
Set ObjBasp = Server.CreateObject("basp21")
rc = ObjBasp.SendMail(m_sv,m_to,m_from,m_title,m_naiyou2,"")
End If
End Sub
'=================================================
'----- DBに接続
'=================================================
Sub ConnDB()
'スクリプトと同じフォルダにあるAccessのdb1.mdbに接続します。
DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("entry.mdb")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.open DBName
StrSQL = "select * from entry"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL, ObjConn,3,3
End Sub
'=================================================
'----- DBにデータを追加
'=================================================
Sub UpdateDB()
StrSQL = "insert into entry ("
StrSQL = StrSQL & " office, "
StrSQL = StrSQL & " name, "
StrSQL = StrSQL & " postnumber, "
StrSQL = StrSQL & " address, "
StrSQL = StrSQL & " tel, "
StrSQL = StrSQL & " fax, "
StrSQL = StrSQL & " mail "
StrSQL = StrSQL & ") values ("
StrSQL = StrSQL & "'" & office & "',"
StrSQL = StrSQL & "'" & name & "',"
StrSQL = StrSQL & "'" & postnumber & "',"
StrSQL = StrSQL & "'" & address & "',"
StrSQL = StrSQL & "'" & tel & "',"
StrSQL = StrSQL & "'" & fax & "',"
StrSQL = StrSQL & "'" & mail & "'"
StrSQL = StrSQL & ")"
ObjConn.Execute(StrSQL)
If Err = 0 Then
Call SendMail(name,mail)
End If
End Sub
'=================================================
'----- DBを閉じる
'=================================================
Sub CloseDB()
ObjRS.Close
Set ObjRS = Nothing
ObjConn.Close
Set ObjConn = Nothing
End Sub
'=================================================
'HTML表示処理開始
'=================================================
%>
<% Call ConnDB 'DBに接続します。 %>
申込み
<%
'-- ページ内容の表示
Select Case act
Case "entconf" '登録確認
Call Gamen_entconf
Case "kan" '処理完了
Call Gamen_kan
Case "err" 'エラー
Call Gamen_err
Case else
Call Gamen_ent
end select
%>
<% Call CloseDB %>
<%
'-- ページ内容の表示
Select Case act
Case "entconf" '登録確認
Call Gamen_entconf
Case "kan" '処理完了
Call Gamen_kan
Case "err" 'エラー
Call Gamen_err
Case else
Call Gamen_ent
end select
%>
<% Call CloseDB %>