strConn = "Provider=SQLOLEDB;Data Source=(local);" & _
 "Database=Northwind;Integrated Security=SSPI"

 Set cnn = Server.CreateObject("ADODB.Connection")

 cnn.Open  strConn

 Set cmdQuery = Server.CreateObject("ADODB.Command")

 Set cmdQuery.ActiveConnection = cnn

 cmdQuery.CommandType = 4

 cmdQuery.CommandText = "procGetContactName"

 Set prm = cmdQuery.CreateParameter("@CustomerID", _
 130, 1, 5)

 cmdQuery.Parameters.Append prm

 cmdQuery.Parameters("@CustomerID").Value = _
 Request.Form("CustomerID")

 Set rstResults = cmdQuery.Execute

 Response.Write(rstResults.Fields("CompanyName").Value)