<%
Dim Query, Content
Query = "exec SPT名刺デザイン一覧 '" & GB_SystemCD & "','H'"
Set Content = OpenQuery(Query)
Dim MeishiDesignCD, Design
MeishiDesignCD = ""
Design = ""
Do While Not(Content.BOF Or Content.EOF)
MeishiDesignCD = Content.Fields("名刺デザインCD")
Design = Content.Fields("デザイン")
Design = Replace(Design, "
", "E-mail aaaaa@aaa.aa.aa")
Design = Replace(Design, "
", "TEL 00-0000-0000")
Design = Replace(Design, "
", "FAX 00-0000-0000")
Design = Replace(Design, "<住所1 />", "○○○○○○○○○○○")
Design = Replace(Design, "<住所2 />", "○○○○○○○○")
Design = Replace(Design, "<郵便番号 />", "〒 000-0000")
Design = Replace(Design, "<氏名 />", "○ ○ ○ ○")
Design = Replace(Design, "<肩書 />", "○○○○○")
Design = Replace(Design, "<役職 />", "○○○○")
Design = Replace(Design, "<会社名称 />", "○○○○○○○○")
Design = Replace(Design, "<画像ファイル />", "/sj3web/images/spacerc.gif")
Design = Replace(Design, "<フォント区分 />", "")
%>
タイプ<% = MeishiDesignCD %> |
文字:ゴシック |
|
文字:明朝 |
|
|
<% = Design %>
|
<%
Content.MoveNext
Loop
%>