create table tt 
( 
id autoIncrement  
primary key,  
title varchar(255), 
content memo, 
dateandtime date 
)

parameters spTitle varchar(255),spContent varchar(255); 
insert into tt(title, content, dateandtime) 
values([spTitle], [spContent], now())

<% 
function fCreateCnn(cnn) 
    set cnn=createObject("adodb.connection") 
end function 
function fCloseCnn(cnn) 
        cnn.close 
    set cnn=nothing 
end function 
%>

<%  
    dim title, content 
        title="insert title" 
        content="insert content" 
    dim cnn, rs 
    dim i 
    call fCreateCnn(cnn) 
        cnn.open conn 
        for i=1 to 10 
            cnn.execute("exec tt_insertParm "&title&i&","&content&i) 
        next 
    call fCloseCnn(cnn) 
    if err.number=0 then response.Write "数据已添加" else response.Write "发生错误, 数据未添加" 
%>

PARAMETERS qId Long; 
SELECT * 
FROM tt 
WHERE id=iif(isNull([qId]),id,[qId])

<%  
    dim qId, fldNum, i 
        qId = 10 
    dim cnn, rs 
    call fCreateCnn(cnn) 
            cnn.open conn 
        set rs = cnn.execute("EXEC tt_selectParm " & qId)  
        'set rs = cnn.execute("EXEC tt_selectParm null")  
            fldNum=rs.fields.count-1 
            do until rs.eof  
                 for i=0 to fldNum 
                    response.write rs(i) 
                    response.write " " 
                next 
                   response.write "<br/>" 
                   rs.movenext  
            loop  
            rs.close 
        set rs=nothing 
    call fCloseCnn(cnn) 
%>