- 締切済み
ASPでデータを2列に表示させる方法
ASPでWebページを作成し、ユーザーにユーザー情報(住所、氏名等)を入力してもらうページを作成しました。 Accessに登録されたこのデータを表示させて郵便用のタックラベルを印刷できるASPを作成したいと思います。 タックラベルは2列表示(横2名分、縦8名分、合計16名分)で印刷されます。 どのようにしたら登録データを左右交互に表示させることができるのでしょうか? ASPの作成には、「Dreamweaver MX 2004」を使用しています。ダイナミックページの作成から動的手ブールの作成ツールを使って作成しています。これだと、登録されたユーザーの分だけ、縦方向に印刷されてしまいます。 奇数データの「行揃え」を「左」に設定して、偶数データの「行揃え」を「指定なし」にできれば、左右交互にラベル印刷ができるような気がするのですが、どうしたらいいのか分かりません。 プログラムの知識がないので、難しいことは分かりません。できれば、追加するソースを教えていただけると助かります。どうか宜しくお願い致します。
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- naganaga_001
- ベストアンサー率71% (172/242)
お世話になります。 こんな感じでどうでしょうか。 TABLE1 には 名前と住所というフィールドが存在しています。 <% Dim objCon Dim objRS Dim strSQL Set objRS = Server.CreateObject("ADODB.Recordset") Set objCon = Server.CreateObject("ADODB.Connection") objCon.Provider = "Microsoft.Jet.OLEDB.4.0" objCon.ConnectionString = "C:\Inetpub\wwwroot\RegTest\test.mdb" objCon.Open strSQL = "SELECT IIf(IsNull([名前]),'',[名前]) & '<br>' & IIf(IsNull([住所]),'',[住所]) AS 情報 FROM TABLE1" objRS.Open strSQL, objCon, 3 %> <br> <br> <table border="1"> <% Do Until objRS.EOF %> <tr> <td><%=objRS("情報").value%></td> <% If Not objRS.EOF Then %> <% objRS.MoveNext %> <% If Not objRS.EOF Then %> <td><%=objRS("情報").value%></td> <% Else %> <td> </td> </tr> <% Exit Do %> <% End If %> <% Else %> <td> </td> </tr> <% Exit Do %> <% End If %> </tr> <% objRS.MoveNext %> <% Loop %> </table> <% objRS.Close Set objRS = Nothing objCon.Close Set objCon = Nothing %>