<% Sub ShowForm %>

" method="POST"> ▼下記をご記入ください

氏名（漢字）	" maxlength="100">	＊必須    全角文字で入力
氏名（ふりがな）	" maxlength="100">	＊必須    全角文字で入力
郵便番号	" maxlength="100">	＊必須    半角文字で入力
住所	" maxlength="100">	＊必須    全角文字で入力
電話番号	" maxlength="100">	＊必須    市外局番から半角数字、               半角ハイフンで入力
FAX番号	" maxlength="100">	市外局番から半角数字、               半角ハイフンで入力
年齢	以下から選んでください 10代 20代 30代 40代 50代 60代 70代 80代
職業	以下から選んでください 学生 主婦（夫） 会社員 公務員 自由業 フリー その他
メールアドレス	" maxlength="100">	＊必須    半角英数字で入力
お問い合わせ内容	<%=Request.Form("お問い合わせ内容")%>	特定の相手がいる方は 以下から選んでください 藤田愛子 河津りえ子 小松久子 事務局 その他

<% End Sub %> <% ' Form Data Processing Procedure Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add Field, true End If Next If Request.Form.Count <> 0 And dictFields.Count = 0 Then ' Call ShowConfirmationPage Call SendConfirmationMail If (bGenerateDbaseEmail) Then Call SendMail2DBase End If Response.Write("ご記入ありがとうございました。") Else ' print out all items in list For Each whatever In dictFields If ( dictFields.item(whatever) = True ) Then Response.Write "" & whatever & "を入力して下さい" & "
" End If Next Response.Write "
" Call ShowForm End If %>