>>アンケートにご協力ください抽選で素敵なプレゼントが当たります

<% w_day = Array("SUN","MON","TUE","WED","THU","FRI","SAT") ' --- 情報テーブルから、お知らせに関する書込みを参照する Set C = Server.CreateObject("ADODB.Connection") Set R = Server.CreateObject("ADODB.Recordset") C.Open "Provider=SQLOLEDB;Server=MSSQL2000A;Database=alive-corp;uid=alive-corp;pwd=wlh2j+bm" R.Open "SELECT * FROM 情報 WHERE 表示識別 = 1 AND 種別 = 2 AND サイト種別 = 1 ORDER BY ID DESC ", C, 0, 1 If Not R.EOF Then %> <% While Not R.EOF %> <% R.MoveNext If Not R.EOF Then %> <% End If Wend %> <% =Year(R("更新日時")) & "/" & Month(R("更新日時")) & "/" & Day(R("更新日時")) %>(<% =w_day(Weekday(R("更新日時")) - 1) %>) <% =Server.HTMLEncode("" & R("タイトル")) %> <% =Replace(Server.HTMLEncode("" & R("コメント")),vbCrLf," ") %> <% If Not IsNULL(R("URL")) Then %> "> " width="150" height="188" border="0" class="thumb150"> <% Else %> " width="150" height="188" border="0" class="thumb150"> <% End If %> <% End If R.Close C.Close %> ALIVE CORPORATION Co,Ltd. All rights reserved. 当ホームページに記載されている写真・記事などすべてのものは株式会社ALIVE CORPORATIONに 帰属します。無断での転載・その他の行為はお断りいたします。