hi Thanks for your reply here is the code
KitSchedulelist.asp
<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Buffer = True%>
<% Response.Expires = -1 %>
<%'=========================================================
'PURPOSE:
'Schedule Date list.
'========================================================================
'=== Page interfaces
'========================================================================
'/admintool/kittooladmin/kitschedule.asp
'/admintool/kittooladmin/default.asp
'========================================================================
'=== Declarations
'========================================================================
Dim objKitTool, objKit
Dim adoCmd
Dim rs
Dim intKitNumber
'========================================================================
'=== Initialization
'========================================================================
intKitNumber = Request("kitnumber")
'========================================================================
'=== Main Code
'========================================================================
Set objKitTool = Server.CreateObject("KitTool.Application")
objKitTool.ConnectionString = Application("DBConnect")
Set objKit = objKitTool.Kit
Select Case Request.QueryString("action")
Case "adddate": 'add new date
objKit.InsertScheduleDate intKitNumber, Request.Form("scheduletypeid"), Request.Form("scheduledate"), sIDSID
Case "deletedate": 'delete date
objKit.DeleteScheduleDate cint(Request.QueryString("scheduleid"))
End Select
WriteDocTypeHeader 'from /common/pagebuilder.asp (included above)
%>
<html>
<html>
<head><title>Master-Child Kit: Master Kit</title></head>
<% WriteStandardStyles %>
<body class="body">
<table class="table" width=100%>
<tr>
<th class="th"></th>
<th class="th">Schedule Item</th>
<th class="th">Target Date</th>
<th class="th">Status</th>
</tr>
<%
Set rs = objKit.GetSelectedScheduleDates(intKitNumber)
Do While Not rs.EOF
%>
<tr>
<td class="td"><input class="input" type=button value="del" onClick="javascript:document.location='/admintool/kittooladmin/kitschedulelist.asp?action=deletedate&kitnumber=<%=intKitNumber%>&scheduleid=<%=rs.Fields("ScheduleID").Value%>';"></td>
<td class="td"><%=rs.Fields("Type").Value%></td>
<td class="td"><%=rs.Fields("TargetDate").Value%></td>
<td class="td"><%=rs.Fields("ScheduleStatusName").Value%></td>
</tr>
<%
rs.MoveNext
Loop
Set rs = Nothing
Set objKit = Nothing
Set objKitTool = Nothing
%>
</table>
<!-- #include virtual="/include/logout.asp" -->
</body>
</html>
