<%option explicit%>
<%
shopcheckadmin "shopa_displayorders.asp"
setsess "currenturl","shopa_trackingorder.asp"
'************************************************
' VP-ASP 4.50 Tracking Format for Merchant
' ordertracking table is updated and e-mail sent to customer
' June 2, 2002, 2002 add order status
'************************************************
Dim sAction, oid, myconn
dim my_to, my_toaddress,my_system,my_from,my_fromaddress,my_subject,mailtype
dim mailer, my_attachment
dim body
dim trackingemail, trackingname, trackingcomment, trackingtemplate
dim trackingview
dim orderstatus, orderstatusdefault, sAction2, StatusTypeCount
dim StatusTypes(50), statuslist
Oid=request("oid")
Openorderdb myconn
sAction=Request("Action")
sAction2=Request("Action2")
Serror=""
adminPageHeader
statuslist=getconfig("xorderstatus")
If statuslist="" then
statustypecount=0
else
parserecord statuslist,StatusTypes,StatusTypeCount,","
end if
If sAction2<>"" Then
orderstatus=Request("orderstatus")
UpdateOrderStatus
end if
If sAction = "" Then
DisplayForm()
Else
ValidateData()
if sError = "" Then
UpdateTrackingRecord
SendTrackingEmail
Writeinfo
else
DisplayForm
end if
end if
ShopCloseDatabase myconn
adminpagetrailer
'
Sub DisplayForm()
Getdefaultvalues
GetStatusValue
Response.Write(getconfig("xfont") & sError & "")
Response.Write("
")
'New Tracking Form
orderstatusdefault=langcommonselect
Response.write getconfig("xfont") & "" & LangProductOrder & " " & LangstatusStatus & ""
Response.Write("")
shopFormattracking myconn, oid,"admin"
End Sub
Sub ValidateData()
oid = Request.Form("oid")
trackingcomment = Request("trackingcomment")
trackingemail=request("trackingemail")
trackingname=request("trackingname")
trackingview=request("trackingview")
stremail=request("stremail")
If trackingview="Yes" then
trackingview=1
else
trackingview=0
end if
If trackingname="" then
sError = sError & LangYourName & LangCustRequired & "
"
end if
If trackingcomment="" then
sError = sError & Langtrackingcomment & LangCustRequired & "
"
end if
If stremail="" then
sError = sError & LangLoginEmail & LangCustRequired & "
"
end if
end sub
'
Sub WriteInfo
Response.write getconfig("xfont") & LangEdit03 & ""
%>
<%=langcommoncontinue%>
<%
end sub
'
Sub SendTrackingEmail
If trackingemail<>"Yes" Then exit sub
ShopTrackingEmailToCustomer myconn, oid, trackingname
end sub
'
Sub UpdateTrackingRecord
dim sql
trackingname=replace(trackingname,"'","''")
trackingcomment=replace(trackingcomment,"'","''")
sql="insert into ordertracking (orderid, trackdate, tracktime, trackcomment, trackname, trackview,trackemail) values ("
sql= sql & oid & "," & datedelimit(date())
sql= sql & "," & timedelimit(time())
sql = sql & "," & "'" & trackingcomment & "'"
sql = sql & "," & "'" & trackingname & "'"
sql = sql & "," & trackingview
sql = sql & "," & "'" & stremail & "'"
sql=sql & ")"
'debugwrite sql
myconn.execute(sql)
end sub
Sub UpdateOrderStatus
dim sql, torderstatus
orderstatus=Request("orderstatus")
orderstatus=replace(orderstatus,"'","''")
If Orderstatus=langcommonselect or orderstatus="" then
torderstatus="NULL"
else
torderstatus="'" & orderstatus & "'"
end if
sql="UPDATE orders SET ostatus =" & torderstatus & " WHERE orderid = " & oid
myconn.execute(sql)
Serror=LangAddUpdate & "
"
end sub
Sub GetStatusValue
dim sql2
dim records
sql2 = "SELECT * FROM orders WHERE "
sql2=sql2 & " orderid=" & oid
'debugwrite sql2
Set records = myconn.execute(sql2)
If Not records.EOF Then
orderstatus=records("ostatus")
If isnull(orderstatus) then
orderstatus=""
end if
end if
records.close
set records=nothing
end sub
Sub Getdefaultvalues
if stremail="" then
stremail=getconfig("xemail")
end if
end sub
%>