Forums :: Multiple Record

DwZone Forum
Welcome to the DwZone-it Forum

FAQ

Memberlist

Usergroups

Multiple Record

DwZone Forum Index -> Multiple Record
.
Moderators: Administrators, Moderators

Mark all topics read

Hint: For improved responsiveness, use Internet Explorer 4 (or above) with Javascript enabled, choose 'Dynamic' from the View dropdown and hit 'Set Options' to save your changes.

	Search for
View Per page Messages Since

Messages 1 to 10 of 66 (Total: 66)

First | Prev | Next | Last

Subject

Author

Date

Multiple Delete Error: Unknown Column

Gary

10:24 28 Mar 2019

Error on Multi delete

Ken

12:53 17 Dec 2016

I am getting the following error.

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'RequestForm'

/dwzMultipleRecord/MultipleRecord.asp, line 167

Here is the page code
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
'*********************************
'* DELETE MULTIPLE RECORD
'* http://www.DwZone-it.com
'* Version 1.1.11
'*********************************
Dim dwzMultiple_1, editAction
Set dwzMultiple_1 = New dwzDeleteMultipleRecord
dwzMultiple_1.init
dwzMultiple_1.setUniqueColumnKey "plant_list_id"
dwzMultiple_1.setUniqueFormKey "plant_list_id"
dwzMultiple_1.setColIsNum ""
dwzMultiple_1.setRedirectPage "/secure/customer/turf/application/plant_list/index.asp"
dwzMultiple_1.setConnection MM_d_r_o_plet_STRING
dwzMultiple_1.setEditTable "dbo.plant_list"
dwzMultiple_1.setFormName "form2"
dwzMultiple_1.setMultipleType "Delete"
editAction = dwzMultiple_1.getEditAction()
dwzMultiple_1.e_x_e_cute()
%>
<%
Dim rsDelete__MMColParam
rsDelete__MMColParam = "10"
If (Session("application_id") <> "") Then
rsDelete__MMColParam = Session("application_id")
End If
%>
<%
Dim rsDelete
Dim rsDelete_cmd
Dim rsDelete_numRows

Set rsDelete_cmd = Server.CreateObject ("ADODB.Command")
rsDelete_cmd.ActiveConnection = MM_d_r_o_plet_STRING
rsDelete_cmd.CommandText = "SELECT * FROM dbo.plant_list WHERE application_id = ? AND plant_quantity IS NULL"
rsDelete_cmd.Prepared = true
rsDelete_cmd.Parameters.Append rsDelete_cmd.CreateParameter("param1", 5, 1, -1, rsDelete__MMColParam) ' adDouble

Set rsDelete = rsDelete_cmd.e_x_e_cute
rsDelete_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsDelete_numRows = rsDelete_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Delete Blank Records</title>
</head>
<body>
<form ACTION="<%=editAction%>" id="form2" name="form2" method="post">

<%
While ((Repeat1__numRows <> 0) AND (NOT rsDelete.EOF))
%>
<div>
<input name="plant_list_id" type="hidden" id="plant_list_id" value="<%=(rsDelete.Fields.Item("plant_list_id").Value)%>" />
</div>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsDelete.MoveNext()
Wend
%>
<input type="submit" name="button2" id="button2" value="Submit" />
<input type="hidden" name="DW_delete" value="form2" />
</form>
</body>
</html>
<%
rsDelete.Close()
Set rsDelete = Nothing
%>