Using Command Object with Parameters syntax example

Contributed by aspfree
Rating:

/ 6
March 30, 2002

Rate this Article:
MEH MEH++

SEARCH ASP FREE

Command Object Example

<% @language="vbscript" ENABLESESSIONSTATE = FALSE %>

<%
On Error Resume Next
response.buffer=True
dim conn

set conn = server.createobject("adodb.connection")
conn.open "DSN"

response.write request.form("CompanyName") & "<br>"
strCompanyName = request.form("CompanyName")
strCompanyAddress1 = request.form("CompanyAddress1")
strCompanyAddress2 = request.form("CompanyAddress2")
strCompanyCity = request.form("CompanyCity")
strCompanyState =request.form("CompanyState")
strCompanyZip = request.form("CompanyZip")
strCompanyCountry =request.form("CompanyCountry")
strCompanyURL = request.form("CompanyURL")
strContactName = request.form("ContactName")
strContactPhone = request.form("ContactPhone")
strContactEmail = request.form("ContactEmail")
strComponentName = request.form("ComponentName")
strComponentDownloadlink = request.form("ComponentDownloadLink")
strComponentDemoLink = request.form("ComponentDemoLink")
strComponentDesc = request.form("ComponentDesc")
strPrice = request.form("Price")
strCompanyID = request.form("CompanyID")

set cmd1 = server.createobject("adodb.command")
with cmd1
    .activeconnection = strconn
    .commandtext = "sp_updateComponentInfo"
    .CommandType = acCmdStoredProc
'    .parameters.append .createparameter("@CompanyName", adVarChar, adParamInput, 150, strCompanyName)
    .parameters.append .createparameter("@CompanyAddress1", adVarChar, adParamInput, 255 , strCompanyAddress1)
    .parameters.append .createparameter("@CompanyAddress2", adVarChar, adParamInput, 255 , strCompanyAddress2)
    .parameters.append .createparameter("@CompanyCity", adVarChar, adParamInput, 150 , strCompanyCity)
    .parameters.append .createparameter("@CompanyState", adVarChar, adParamInput, 50 , strCompanyState)
    .parameters.append .createparameter("@CompanyZip", adVarChar, adParamInput, 50 , strCompanyZip)
    .parameters.append .createparameter("@CompanyCountry", adVarChar, adParamInput, 100 , strCompanyCountry)
    .parameters.append .createparameter("@CompanyURL", adVarChar, adParamInput, 255 , strCompanyURL)
    .parameters.append .createparameter("@ContactName", adVarChar, adParamInput, 100 , strContactName)
    .parameters.append .createparameter("@ContactPhone", adVarChar, adParamInput, 100 , strContactPhone)
    .parameters.append .createparameter("@ContactEmail", adVarChar, adParamInput, 150, strContactEmail)
    .parameters.append .createparameter("@ComponentName", adVarChar, adParamInput, 100 , strComponentName)
    .parameters.append .createparameter("@ComponentDownloadlink", adVarChar, adParamInput, 255 , strComponentDownloadLink)
    .parameters.append .createparameter("@ComponentDemoLink", adVarChar, adParamInput, 255 , strComponentDemoLink)
    .parameters.append .createparameter("@ComponentDesc", adVarChar, adParamInput, 255 , strComponentDesc)
    .parameters.append .createparameter("@Price", adVarChar, adParamInput, 50 , strPrice)
    .parameters.append .createparameter("@companyID", adInteger, adParamInput, 0 , strCompanyID)
    .parameters.append .createparameter("@CompanyName", adVarient, adParamInput, 150, strCompanyName)
    .execute lngRecs, , adExecuteNoRecords
End With
set cmd1 = nothing
If err.number <> 0 Then
response.write err.number
response.write err.description
response.end
End If
%>

<html>
<head><title></title></head>
Your information is updated!
</body>
</html>