<%@ language="VBSCRIPT"%>
<%
    Session.CodePage  = 949
    Response.CharSet  = "euc-kr"
 
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSNtest="DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; "
    DSNtest=dsntest & "DBQ=" & Server.MapPath("test.mdb")
    Conn.Open DSNtest
 
    set record = server.CreateObject("ADODB.Recordset")
 
    strSQL = "SELECT * FROM testTable"
    record.Open strSQL, Conn, 1
 
    for i = 1 to record.RecordCount
        Response.Write "key : " & record("key")
        Response.Write "   int : " & record("type_int")
        Response.Write "   string : " & record("type_string")
        Response.Write "   bool : " & record("type_bool")
        Response.Write "   date : " & record("type_date")
        Response.Write "<br>"
        record.MoveNext
    Next
 
    record.Close 
    set record = nothing
 
    Conn.Close 
    set Conn = nothing
%>