<% ' ' %> <% main() Sub main() Dim TargetEnshu TargetEnshu = "SYSORIGN" ' TargetEnshu = "SYS90000" TargetEnshu = Request("TargetEnshu") Dim SearchWord SearchWord = Request("SearchWord") 'ŒŸ�õ•¶Žš—ñ‚©‚ç‹ó”’‚ð�œŠO‚µ1•¶Žš‚¸‚Â%‚ð“ü‚ê‚ÄŒ‹�‡ '�i—á�j�u�Á�@”ï�@�Å�v�¨�u�Á%”ï%�Å�v Dim TmpWord TmpWord = "" Dim TmpCnt For TmpCnt = 1 To Len(SearchWord) If Mid(SearchWord, TmpCnt, 1) <> " " And Mid(SearchWord, TmpCnt, 1) <> "�@" Then If TmpWord <> "" Then TmpWord = TmpWord & "%" End If TmpWord = TmpWord & Mid(SearchWord, TmpCnt, 1) End If Next %> <% = HtmlHeader("") %>

">       ‘Î�Û‰‰�K <% Dim Query Dim Content Query = "exec SPM‰‰�Kˆê—— 'SFC',1" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("‰‰�KCD") = TargetEnshu Then Response.Write("" & Content.Fields("‰‰�K–¼�Ì") & "" & vbCrLf) Else Response.Write("" & Content.Fields("‰‰�K–¼�Ì") & "" & vbCrLf) End If Content.MoveNext Loop %>
<% If TargetEnshu <> "" Then dim i,ct,s,tdal ' Query = " SELECT * FROM TDAŠ¨’è‰È–ÚM WHERE ‰‰�KCD = '" & TargetEnshu & "' AND ‹ÆŽíCD = 'S' AND Š¨’è–¼�Ì LIKE '%" & TmpWord & "%' " Query = "" Query = Query & " SELECT TDAŠ¨’è‰È–ÚM.Š¨’èCD " Query = Query & " , TDAŠ¨’è‰È–ÚM.Š¨’è–¼�Ì " Query = Query & " , Š¨’è‹æ•ªT.‹æ•ª–¼�Ì AS Š¨’è‹æ•ª " Query = Query & " , �זڋ敪T.‹æ•ª–¼�Ì AS Š¨’è�×–Ú " Query = Query & " , ‘ݎ؋敪T.‹æ•ª–¼�Ì AS ‘ݎ؋敪 " Query = Query & " , ”ï—p‹æ•ªT.‹æ•ª–¼�Ì AS ”ï—p‹æ•ª " Query = Query & " , •ª�͋敪T.‹æ•ª–¼�Ì AS •ª�͋敪 " Query = Query & " , ƒ`ƒFƒbƒN‹æ•ªT.‹æ•ª–¼�Ì AS ƒ`ƒFƒbƒN‹æ•ª " Query = Query & " , “Á•ÊŠ¨’è‹æ•ªT.‹æ•ª–¼�Ì AS “Á•ÊŠ¨’è‹æ•ª " Query = Query & " FROM TDAŠ¨’è‰È–ÚM " Query = Query & " LEFT OUTER JOIN TC9‹æ•ªM ‘ݎ؋敪T ON TDAŠ¨’è‰È–ÚM.‘ݎ؋敪 = ‘ݎ؋敪T.‹æ•ªCD AND TDAŠ¨’è‰È–ÚM.ƒVƒXƒeƒ€CD = ‘ݎ؋敪T.ƒVƒXƒeƒ€CD " Query = Query & " LEFT OUTER JOIN TC9‹æ•ªM Š¨’è‹æ•ªT ON TDAŠ¨’è‰È–ÚM.Š¨’è‹æ•ª = Š¨’è‹æ•ªT.‹æ•ªCD AND TDAŠ¨’è‰È–ÚM.ƒVƒXƒeƒ€CD = Š¨’è‹æ•ªT.ƒVƒXƒeƒ€CD " Query = Query & " LEFT OUTER JOIN TC9‹æ•ªM �זڋ敪T ON TDAŠ¨’è‰È–ÚM.Š¨’è�×–Ú = �זڋ敪T.‹æ•ªCD AND TDAŠ¨’è‰È–ÚM.ƒVƒXƒeƒ€CD = �זڋ敪T.ƒVƒXƒeƒ€CD " Query = Query & " LEFT OUTER JOIN TC9‹æ•ªM ”ï—p‹æ•ªT ON TDAŠ¨’è‰È–ÚM.”ï—p‹æ•ª = ”ï—p‹æ•ªT.‹æ•ªCD AND TDAŠ¨’è‰È–ÚM.ƒVƒXƒeƒ€CD = ”ï—p‹æ•ªT.ƒVƒXƒeƒ€CD " Query = Query & " LEFT OUTER JOIN TC9‹æ•ªM ƒ`ƒFƒbƒN‹æ•ªT ON TDAŠ¨’è‰È–ÚM.ƒ`ƒFƒbƒN‹æ•ª = ƒ`ƒFƒbƒN‹æ•ªT.‹æ•ªCD AND TDAŠ¨’è‰È–ÚM.ƒVƒXƒeƒ€CD = ƒ`ƒFƒbƒN‹æ•ªT.ƒVƒXƒeƒ€CD " Query = Query & " LEFT OUTER JOIN TC9‹æ•ªM •ª�͋敪T ON TDAŠ¨’è‰È–ÚM.•ª�Í—p‹æ•ª = •ª�͋敪T.‹æ•ªCD AND TDAŠ¨’è‰È–ÚM.ƒVƒXƒeƒ€CD = •ª�͋敪T.ƒVƒXƒeƒ€CD " Query = Query & " LEFT OUTER JOIN TC9‹æ•ªM “Á•ÊŠ¨’è‹æ•ªT ON TDAŠ¨’è‰È–ÚM.“Á•ÊŠ¨’è‹æ•ª = “Á•ÊŠ¨’è‹æ•ªT.‹æ•ªCD AND TDAŠ¨’è‰È–ÚM.ƒVƒXƒeƒ€CD = “Á•ÊŠ¨’è‹æ•ªT.ƒVƒXƒeƒ€CD " Query = Query & " WHERE ‰‰�KCD = '" & TargetEnshu & "' AND ‹ÆŽíCD = 'S' AND Š¨’è–¼�Ì LIKE '%" & TmpWord & "%' " Query = Query & " AND (Š¨’è‹æ•ªT.ƒf�[ƒ^Ž¯•Ê = 'Š¨’è‹æ•ª' OR Š¨’è‹æ•ªT.ƒf�[ƒ^Ž¯•Ê IS NULL) " Query = Query & " AND (�זڋ敪T.ƒf�[ƒ^Ž¯•Ê = 'Š¨’è�×–Ú' OR �זڋ敪T.ƒf�[ƒ^Ž¯•Ê IS NULL) " Query = Query & " AND (‘ݎ؋敪T.ƒf�[ƒ^Ž¯•Ê = '‘ݎ؋敪' OR ‘ݎ؋敪T.ƒf�[ƒ^Ž¯•Ê IS NULL) " Query = Query & " AND (•ª�͋敪T.ƒf�[ƒ^Ž¯•Ê = '•ª�Í—p‹æ•ª' OR •ª�͋敪T.ƒf�[ƒ^Ž¯•Ê IS NULL) " Query = Query & " AND (”ï—p‹æ•ªT.ƒf�[ƒ^Ž¯•Ê = '”ï—p‹æ•ª' OR ”ï—p‹æ•ªT.ƒf�[ƒ^Ž¯•Ê IS NULL) " Query = Query & " AND (ƒ`ƒFƒbƒN‹æ•ªT.ƒf�[ƒ^Ž¯•Ê = 'ƒ`ƒFƒbƒN‹æ•ª' OR ƒ`ƒFƒbƒN‹æ•ªT.ƒf�[ƒ^Ž¯•Ê IS NULL) " Query = Query & " AND (“Á•ÊŠ¨’è‹æ•ªT.ƒf�[ƒ^Ž¯•Ê = '“Á•ÊŠ¨’è‹æ•ª' OR “Á•ÊŠ¨’è‹æ•ªT.ƒf�[ƒ^Ž¯•Ê IS NULL) " 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) '�«�«�«ƒNƒGƒŠŒ‹‰Ê‚ðƒe�[ƒuƒ‹•\Ž¦ %> <% 'Œ©�o‚µ—ñ‚Ì•\Ž¦ For i = 0 To Content.Fields.Count - 1 Response.Write(" " & vbCrLf) Next %> <% 'Žæ“¾Œ‹‰Ê‚Ì•\Ž¦ Dim TDAlign Do While Not(Content.EOF Or Content.EOF) Response.Write(" " & vbCrLf) For i = 0 to Content.Fields.Count - 1 If Content(i).Type <> 131 And Content(i).Type <> 139 Then TDAlign = "" Else TDAlign = " align=right" End If Response.Write(" " & Content(i) & "" & vbCrLf) Next Response.Write(" " & vbCrLf) Content.MoveNext Loop %>

" & Content(i).Name & "

<% End If %>

<% = HtmlFooter %> <% End Sub %>