<%
 '首先建立連接資料檔物件
 set conn = server.createobject("adodb.connection")
 conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=main.mdb"

 '建立一個新的資料表, 取名為 Temp 其欄位狀況為:
 'ID (autonumber), FName (text 20), LName (text 20), and Comments (memo)
 sql = "Create Table Temp (ID AutoIncrement, FName Text(20), LName Text(20), Comments Memo)"
 conn.execute sql

 '下面示範由 STab 資料表取出所需內容, 加入到剛才所建立的 Temp 資料表中.
 sql = "Insert into Temp (FName, LName, Comments) Select fname, lname, notes From STab"
 conn.execute sql

 '接著我們把 Temp 中內容顯示出來看看, 是否真有把資料轉進來了
 sql = "Select ID, FName, LName, Comments From Temp"
 set rs = conn.execute(sql)
 if not rs.eof then
%>
  <table>
  <% while not rs.eof %>
   <tr><td>ID:</td><td><%=rs("ID")></td></tr>
   <tr><td>姓:</td><td><%=rs("FName")></td></tr>
   <tr><td>名:</td><td><%=rs("LName")></td></tr>
   <tr><td>註:</td><td><%=rs("Comments")></td></tr>
<%
   rs.movenext
  wend
%>
  </table>
<%
else
 response.write "未發現任何記錄"
end if

rs.close
set rs = nothing

'刪除掉剛才建立的 Temp 資料表
sql = "Drop Table Temp"
conn.execute sql

conn.close
set conn = nothing
%>