text boxes do not disappear in an asp
When the user hits delete button, the text boxes assigned
do not disapper from the web, but records get deleted from database.
I want text boxes to disappear from the web.
if Request.Form("txtMode")="R" then
' objHistoryRate.Requery
delFrom = Request.Form("txtdelFrom")
delTo = Request.Form("txtdelTo")
delRate = Request.Form("txtdelRate")
' strDel = " delete from tblCustRate "&_
'" where iEmpID = " & iEmpID &_
'" and iTaskiD = " & iTaskID&_
'" and iProjDetiD = " & iProjDetID&_
'" and dtRateFrom ='" & delFrom& "'" &_
'" and dtRateTo ='" & delTo& "'" &_
'" and decHourlyRate = " & delRate
strDel = "delete from tblCustRate"
if resType ="E" then
strDel = strDel & " where iEmpID =" & iEmpID
else
strDel = strDel & " where iSubcontID =" & iSubcontID
end if
strDel = strDel & " and iTaskiD = " & iTaskID&_
" and iProjDetiD = " & iProjDetID&_
" and dtRateFrom =' " & delFrom& "'"&_
" and dtRateTo =' " & delTo& "'"&_
" and decHourlyRate = " & delRate
'end if
'if dateFrom = "" then
if delFrom ="" then
strDel = strDel + " and dtRateFrom is null"
else
strDel = strDel + " and dtRateFrom='" & delFrom &"'"
end if
'if dateUntil = "" then
if delTo="" then
strDel = strDel + " and dtRateTo is null"
else
strDel = strDel + " and dtRateTo='" & delTo &"'"
end if
set rsStrDelete=Server.CreateObject("ADODB.Recordset")
rsStrDelete.ActiveConnection = objConn
Response.Write strDel
objConn.Execute(strDel)
'rsStrDelete.Open strDel
'objHistoryRate.Requery
end if
|