asp053.html 三流君ASP:ADOでExcelファイル(*.xls)とやっと接続できた（ほっ）

元の三流解説は、
三流君ASP:ADOでExcelファイル(*.xls)とやっと接続できた（ほっ）
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・

ソースコード

<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>ASPからADOを使用してExcel(*.xls)に接続してみた</title>
</head>
<body>
<h1>ASPからADOを使用してExcel(*.xls)に接続してみた</h1>
Driver={Microsoft Excel Driver (*.xls)}をADOで使ってみました。
<hr>
test053-1.asp<br>
ASPからADOを使用してExcel(*.xls)に接続するテストを行う<br>
<hr>
<%

  'ADO DB Recordset オブジェクトを作成する、英文そのままじゃん
  Set rs=Server.CreateObject("ADODB.Recordset")

  strSQL = "select * from DATA_RANGE"
  Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _
        Server.MapPath("test053.xls") & ";"

  Response.Write "作った、使った接続文字列は<br>"
  Response.Write "<CODE>" & Con & "</CODE><hr>"

  '接続文字列、SQLを渡して、レコードセットを開く
  Rs.Open strSQL, Con, 0  '0=adOpenForwardOnly

  strOUT = ""
  Do While Rs.EOF = False
      For Each FieA In Rs.Fields
          strOUT = strOUT & FieA.Name & " -- " & FieA.Value & "<BR>"
      Next
      Rs.MoveNext  '次のレコードへ移動
  Loop
  Rs.Close
  Set Rs = Nothing

  Response.Write strOUT  '結果を表示

%>
<hr>
[<a Href="test053.xls" TARGET="_blank">test053.xlsを開く</a>]<br>
<img src="http://www.ken3.org/backno/gif/asp053-01.gif"><br>
↑が表のイメージです。
</body>
</html>