Using the With Statement

'This is using the new WITH statement that comes with the latest scripting engine. One of the benefits of using this is you don't have to constantly refer to your object.

'Create an connection to the db.
 set conn = server.createobject("adodb.connection") "dsn=sqlsvr;database=pubs;uid=sa;pwd=;"
'Set local variables equals to the form data
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")
 strPrice = request.form("Price")
 strCompanyID = request.form("CompanyID")
Create Command Object
set cmd1 = server.createobject("adodb.command")
'Start Your WITH statement
 'Notice after that you can just put a period then the method your calling
 With cmd1
     .activeconnection = strconn
     .commandtext = "sp_update"
     .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("@Price", adVarChar, adParamInput, 50 , strPrice)
     .parameters.append .createparameter("@companyID", adInteger, adParamInput, 0 , strCompanyID)
     .execute lngRecs, , adExecuteNoRecords
 'Once done put End WITH
 End With
 set cmd1 = nothing

IIS5 ASP Window 2000 With Statement SQL SQL Server

Back To Top
© 1998 - 2022
Version 7.21 | Advertise on this site