Update parameterized query with vbscript

[dpdoug]

Please help me with this, I've been struggling with it for 2 days now. It's a classic asp app with vbscript. I'm trying to do an update parameterized query, but I'm getting errors.

	set cnn = server.CreateObject("ADODB.Connection")
 	cnn.Open cnnstr()
	set cmd = server.CreateObject("ADODB.Command")
	cmd.ActiveConnection = cnn
	cmd.CommandText = _
		"UPDATE Users1 SET First_Name = @First_Name, " & _
		"Last_Name = @Last_Name, HPhone = @HPhone, " & _
		"WPhone = @WPhone, Cell_Phone = @Cell_Phone, " & _
		"Email = @Email, Move_Date = @Move_Date, " & _
		"[Password] = @Password, HearAbout = @HearAbout, " & _
		"Metro_Area = @Metro_Area, Area_Town = @Area_Town, " & _
		"Beds = @Beds, Price = @Price, Street_Address = @Street_Address, " & _
		"City = @City, State = @State, Zip_Code = @Zip_Code, " & _
		"SalesPerson = @SalesPerson, PropertyViewed = @PropertyViewed, " & _
		"Status = @Status, Curr_Date = @Curr_Date, Curr_Time = @Curr_Time, " & _
		"CreateDate = @CreateDate, Notes = @Notes " & _
		"WHERE UserID = " & request.Form("txtUserID")	
	
	cmd.CommandType = adCmdText 

	cmd.Parameters.Append cmd.CreateParameter("@First_Name",129,1,30, request.Form("txtFirst_Name")) 
	cmd.Parameters.Append cmd.CreateParameter("@Last_Name",129,1,30, request.Form("txtLast_Name"))
	cmd.Parameters.Append cmd.CreateParameter("@HPhone",129,1,15, request.Form("txtHPhone"))
	cmd.Parameters.Append cmd.CreateParameter("@WPhone",129,1,15, request.Form("txtWPhone"))
	cmd.Parameters.Append cmd.CreateParameter("@Cell_Phone",129,1,15, request.Form("txtCell_Phone"))
	cmd.Parameters.Append cmd.CreateParameter("@Email",129,1,70, request.Form("txtEmail"))
	cmd.Parameters.Append cmd.CreateParameter("@Move_Date",129,1,, request.Form("txtMove_Date"))
	cmd.Parameters.Append cmd.CreateParameter("@Password",129,1,20, request.Form("txtPassword"))
	cmd.Parameters.Append cmd.CreateParameter("@HearAbout",,1,, request.Form("cboHear_About"))
	cmd.Parameters.Append cmd.CreateParameter("@Metro_Area",129,1,20, request.Form("txtMetro_Area"))
	cmd.Parameters.Append cmd.CreateParameter("@Area_Town",,1,, request.Form("cboAreaTown"))
	cmd.Parameters.Append cmd.CreateParameter("@Beds",,1,, request.Form("cboBeds"))
	cmd.Parameters.Append cmd.CreateParameter("@Price",,1,, request.Form("cboPrice"))
	cmd.Parameters.Append cmd.CreateParameter("@Street_Address",129,1,150, request.Form("txtStreet_Address"))
	cmd.Parameters.Append cmd.CreateParameter("@City",129,1,30, request.Form("txtCity"))
	cmd.Parameters.Append cmd.CreateParameter("@State",129,1,2, request.Form("txtState"))
	cmd.Parameters.Append cmd.CreateParameter("@Zip_Code",129,1,10, request.Form("txtZip_Code"))
	cmd.Parameters.Append cmd.CreateParameter("@SalesPerson",129,1,50, request.Form("txtSalesPerson"))
	cmd.Parameters.Append cmd.CreateParameter("@PropertyViewed",129,1,50, request.Form("txtPropertyViewed"))
	cmd.Parameters.Append cmd.CreateParameter("@Status",129,1,15, request.Form("cboStatus"))
	cmd.Parameters.Append cmd.CreateParameter("@Curr_Date",133,1,, request.Form("txtCurr_Date"))
	cmd.Parameters.Append cmd.CreateParameter("@Curr_Time",137,1,, request.Form("txtCurr_Time"))
	cmd.Parameters.Append cmd.CreateParameter("@CreateDate",,1,, request.Form("txtCreateDate"))
	cmd.Parameters.Append cmd.CreateParameter("@Notes",129,1,, request.Form("txtNotes"))

	cmd.Execute 
	cnn.Close

One of the errors I have been getting is:
"Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another."

I'd really appreciate any help you guys can give me.

David

 

[DreXor]

on what line?


DreX
aKa - Robert