<% 'Const myCnStr = "Provider=sqloledb;Data Source=203.181.118.200;Initial Catalog=uogashi;User Id=uogashi;Password=uogashi2" dim strConDB strConDB = "" strConDB = "Provider=sqloledb;Data Source=203.181.118.200;Initial Catalog=uogashi;User Id=uogashi;Password=uogashi2" dim ObjDbConnection dim ObjRecordSet dim strSQL dim ReqNews ReqNews="" set ObjDbConnection = server.createObject("ADODB.Connection") set ObjRecordSet = server.createObject("ADODB.RecordSet") ObjDbConnection.connectionstring = strConDB ObjDbConnection.open strSQL = "" strSQL = "SELECT * FROM UO_News" ObjRecordSet.Open strSQL, ObjDbConnection , 3, 1 If Not ObjRecordSet.EOF Then ReqNews = ObjRecordSet.fields("news") End If ObjRecordSet.close set ObjRecordSet = nothing ObjDbConnection.close set ObjDbConnection = nothing %> 本格江戸前寿司　魚がし日本一

本格江戸前寿司

お知らせ

<% response.write Replace(ReqNews,vbcrlf,"
") %>