ASP database and file operation code collection (with no previous changes, just focus on it)

Connection. asp
< %
Response. Buffer = True  
Dim Conn
Set Conn = Server. Createobject ( " ADODB. Connection " )
Conn. Open " Provider = sqloledb.1; Data Source = (local); User ID = sa; Password =; initial catalog = pubs "  

' ----- Properties of the connection object -----
Response. Write ( CSTR (Conn. connectionstring) &   " <P> " )
Response. Write ( CSTR (Conn. connectiontimeout) &   " <P> " )
Response. Write ( CSTR (Conn. attributes) &   " <P> " )
Response. Write ( CSTR (Conn. defaultdatabase) &   " <P> " )
Response. Write ( CSTR (Conn. Mode) &   " <P> " )
Response. Write ( CSTR (Conn. State) &   " <P> " )
Response. Write ( CSTR (Conn. Version) &   " <P> " )

' ----- Method of the connection object -----
Dim RS
Set RS = Conn. Execute ( " Select * from authors " ,, 1 ) ' Adshorttext
Set RS = Conn. Execute ( " Authors " ,, 2 ) ' Adcmdtable
Set RS = Conn. Execute ( " Authors " ,, 512 ) ' Adcmdtabledirect
Set RS = Conn. Execute ( " Reptq1 " ,, 4 ) ' Adcmdstoredproc
Set RS = Conn. openschema ( 20 ) ' Adschematables

' ----- Test statement -----
Dim I
Response. Write ( " <Table> <tr> " )
For I = 0   To Rs. Fields. Count - 1
Response. Write ( " <TD> "   & RS (I). Name &   " </TD> " )
Next  
Response. Write ( " </Tr> " )
Do   While   Not Rs. EOF
Response. Write ( " <Tr> " )
For I = 0   To Rs. Fields. Count - 1
Response. Write ( " <TD> "   & RS (I) &   " </TD> " )
Next
Response. Write ( " </Tr> " )
Rs. movenext
Loop  
Rs. Close
Set RS = Nothing  
Conn. Close
Set Conn = Nothing  
% >