|
<%
Set cn = Server.CreateObject("ADODB.Connection")
strConnection = "Provider=SQLOLEDB;" & _
"Data Source=sv;" & _
"Initial Catalog=master;" & _
"User Id=sa;" & _
"Password=;"
cn.Open strConnection
Set rs = Server.CreateObject( "ADODB.Recordset" ) ' Recordset オブジェクトを作成
SqlQuery = "select @@VERSION as VERSION_INFO"
rs.Open SqlQuery, cn ' レコードセット取得
Do while not rs.EOF
Response.Write Replace( rs.Fields( 0 ).Value, vbLf, "<br>" )
rs.MoveNext
Loop
rs.Close ' レコードセット解放
cn.Close ' 切断
%>
| |