Command Object Example<% @language="vbscript" ENABLESESSIONSTATE = FALSE %>
<!--#include file="adovbs.inc"-->
<%
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>
|
/ 6 
developerWorks - FREE Tools!