<%@ LANGUAGE="VBScript" %>
<% option explicit %>
<%
Dim CellColor
Dim FontColor
Dim OddCell
Dim CurrentNumber
Dim ItemNumber
Dim Amount
Dim ItemArray()
Dim ItemId
Dim ItemCode
Dim ItemAmount
Dim ItemDetail
Dim ItemThumb
Dim ItemPrice
Dim ItemTotal
Dim I
Dim J
Dim TheType
Dim SendType
Dim SendName
Dim SendCity
Dim SendTown
Dim SendMail
Dim SendWeb
Dim SendNote
Dim SendPhone
Dim SendFax
Dim Subject
Dim SendMessage
Dim mailObj
function displaymessage(themessage)
response.write " "
response.write "