Figure 1   Test2.ASP

<%
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001

Dim cnnPubs 

Set cnnPubs = Server.Createobject("ADODB.Connection")

On Error Resume Next

cnnPubs.Connectionstring = "SERVER=MySQLServer;DSN=Pubs;UID=sa;PWD=;"
cnnPubs.ConnectionTimeout = 10

cnnPubs.Open 

If Err.Number <> 0 Then
    Response.Write Err.Description & "<BR>"
Else
    Response.Write "No Errors"
End If

' Find out if the attempt to connect worked.
If cnnPubs.State = adStateOpen Then        
Response.Write "<BR>" & "Welcome to Pubs!"    
Else
    Response.Write "<BR>" & "Sorry. No Pubs today."
End If    

cnnPubs.Close

Set cnnPubs = Nothing

%>
Figure 2   Network Libraries

Network Library Description
DBNMPNTW Named Pipes
DBMSRPCN Multi Protocol
DBMSSOCN TCP/IP Sockets

Figure 3   Recordset Defaults

RecordSet Property Default Value
CursorLocation adUseServer (2)
CursorType adOpenForwardOnly (0)
LockType adLockReadOnly (1)

Figure 4   Test3.ASP

<%
Dim rstEmp
Const adLockOptimistic = 3

Set rstEmp = Server.CreateObject("ADODB.Recordset")

'Code fails if the following line is commented
'rstEmp.LockType = adLockOptimistic
rstEmp.Open "emp", "DSN=Pubs"

rstEmp.AddNew

rstEmp.Fields("EmpId").Value = "1234"
rstEmp.Fields("EmpName").Value = "Srinath Vasireddy"

rstEmp.Update
rstEmp.Close
Set rstEmp = Nothing
%>
Figure 5   Test4.ASP

<%
Const adCmdStoredProc = &H0004

Dim cnnPubs, cmnSP, iCtr

Set cnnPubs = Server.CreateObject("ADODB.Connection")
Set cmnSP = Server.CreateObject("ADODB.Command")

cnnPubs.Open "DSN=pubs;database=pubs;uid=sa;pwd=;"

Set cmnSP.ActiveConnection = cnnPubs
cmnSP.CommandText = "sp_MyProc"
cmnSP.CommandType = adCmdStoredProc
cmnSP.Parameters.Refresh
    
For iCtr = 0 To cmnSP.Parameters.Count - 1
        Response.Write "Number    = " & iCtr & "<BR>"
        Response.Write "Name      = " & cmnSP.Parameters(iCtr).Name & "<BR>"
        Response.Write "Direction = " & cmnSP.Parameters(iCtr).Direction & "<BR>"
        Response.Write "Type      = " & cmnSP.Parameters(iCtr).Type & "<BR>"
        Response.Write "Value     = " & cmnSP.Parameters(iCtr).Value & "<BR>"
        Response.Write "VarType   = " & VarType(cmnSP.Parameters(iCtr).Value) & "<BR>"
        Response.Write "<BR>"
Next

cnnPubs.Close
Set cmnSP = Nothing
Set cnnPubs = Nothing

%>