<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim MeishiDesignCD, Font Dim Design MeishiDesignCD = Request("MeishiDesignCD") Font = Request("Font") Dim Query, Content Dim Email, TEL, Jyusyo1, Jyusyo2, YubinBango, Shimei, Katagaki, KaisyaMeisyo Dim ImageFile Dim Yakusyoku, FAX Query = "exec SPT–¼Žhƒf�[ƒ^Žæ“¾ '" & GB_SystemCD & "',null, null, '" & GakuseiNo & "', null" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Email = Content.Fields("ƒ��[ƒ‹ƒAƒhƒŒƒX") TEL = Content.Fields("“d˜b”Ô�†") Jyusyo1 = Content.Fields("�Z�Š1") Jyusyo2 = Content.Fields("�Z�Š2") YubinBango = Content.Fields("—X•Ö”Ô�†") Shimei = Content.Fields("Ž�–¼") Katagaki = Content.Fields("Œ¨�‘") KaisyaMeisyo = Content.Fields("‰ïŽÐ–¼�Ì") Yakusyoku = Content.Fields("–ð�E") FAX = Content.Fields("FAX") ImageFile = Content.Fields("‰æ‘œƒtƒ@ƒCƒ‹") Else Email = "E-mail aaaaa@aaa.aa.aa" TEL = "TEL 00-0000-0000" FAX = "FAX 00-0000-0000" Yakusyoku = "�›�›�›�›" Jyusyo1 = "“Œ‹ž“s�›�›‹æ�›�›0-00-0" Jyusyo2 = "�¢�¢�¢ƒrƒ‹‚PF" YubinBango = "�§000-0000" Shimei = "�› ŽR�@�¢ ’j" Katagaki = "�›�›Ž–‹Æ•”" KaisyaMeisyo = "�›�›�›�›Š”Ž®‰ïŽÐ" End If Design = "" Query = "exec SPT–¼ŽhƒfƒUƒCƒ“ˆê—— '" & GB_SystemCD & "','V'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("–¼ŽhƒfƒUƒCƒ“CD") = MeishiDesignCD Then MeishiDesignCD = Content.Fields("–¼ŽhƒfƒUƒCƒ“CD") Design = Content.Fields("ƒfƒUƒCƒ“") Design = Replace(Design, "", Email ) Design = Replace(Design, "", TEL ) Design = Replace(Design, "<�Z�Š1 />", Jyusyo1 ) Design = Replace(Design, "<�Z�Š2 />", Jyusyo2 ) Design = Replace(Design, "<—X•Ö”Ô�† />", YubinBango ) Design = Replace(Design, "<Ž�–¼ />", Shimei) Design = Replace(Design, "<Œ¨�‘ />", Katagaki) Design = Replace(Design, "<‰ïŽÐ–¼�Ì />", KaisyaMeisyo) If Not(IsNull(Yakusyoku)) Then Design = Replace(Design, "<–ð�E />", Yakusyoku) End If If Not(IsNull(FAX)) Then Design = Replace(Design, "", FAX) End If If ImageFile = "" Then Design = Replace(Design, """ width=""50"" height=""50"">", "") Else Design = Replace(Design, "<‰æ‘œƒtƒ@ƒCƒ‹ />", ImageFile) End If If Request("Font") = "M" Then Design = Replace(Design, "<ƒtƒHƒ“ƒg‹æ•ª />", "m") Else Design = Replace(Design, "<ƒtƒHƒ“ƒg‹æ•ª />", "") End If End If Content.MoveNext Loop %>

<% = Design %> <% = Design %> <% = Design %> <% = Design %> <% = Design %> <% = Design %>

<% End Sub %>