<%option explicit%>
<%
const langwishcleansuccess="Delete Successful"
'**********************************************************
' Deletes entries from the savecarts table
' Version 6.50 Mar 01, 2003
'*********************************************************
ShopCheckAdmin "shopa_wishclean.asp"
Dim sAction
dim dateselect,dateinput
dim deletesql
dim deletedate
sAction=Request("Action")
if saction="" then
sAction=Request("Action.x")
end if
Serror=""
adminPageHeader
generatedisplayheader "Clear Wish Lists"
generatedisplaybodyheader
response.write ""
If sAction = "" Then
DisplayForm
Else
ValidateData()
if sError = "" Then
generatedates
deletewishlists
else
DisplayForm
end if
end if
response.write ""
generatedisplaybodyfooter
adminPageTrailer
Sub DisplayForm()
Displayerrors
shopwriteheader getlang("langwishlist") & " " & getlang("langcommondelete")
Response.Write(""
' End if customer table
End Sub
Sub ValidateData
dateselect=Request("dateselect")
dateinput=Request("dateinput")
if dateinput<>"" then
validatedate(dateinput)
end if
if dateinput="" and dateselect="" then
serror=serror & getlang("LangInvaliddate")& "
"
end if
End Sub
Sub DisplayErrors
if sError<> "" then
shopwriteError SError
Serror=""
end if
end Sub
sub generatedates
dim monthval
monthval=dateinput
If monthval="" then
monthval=dateselect
end if
monthval=-clng(monthval)
deletedate=dateadd("m",monthval,date)
deletedate=datedelimit(deletedate)
end sub
sub deletewishlists
dim sql, rs, cartcount, dbc
shopopendatabase dbc
sql="SELECT count(savedcarts.id) AS countofid FROM savedcarts "
sql = sql & " WHERE savedate<=" & deletedate
set rs=dbc.execute(sqL)
cartcount=rs(0)
closerecordset rs
deletesql="Delete from savedcarts where savedate<=" & deletedate
dbc.execute(deletesql)
shopclosedatabase dbc
shopwriteheader cartcount & " " & getlang("LangCartDeleted") & " " & deletedate
end sub
Sub ValidateDate(datevalue)
If not Isnumeric(datevalue) then
serror=getlang("langReportInvalidDate") & " " & datevalue & "
"
end if
end sub
%>