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