%
dim sPL
dim sCL
dim sCR
sPL="mdp@moderndyestuffs.com"
sCL="mdp@moderndyestuffs.com"
sCR="mdp@moderndyestuffs.com"
if request("Action")="ADD" Then
dim sEmailAddress
dim sData
if request("chkProduct")=1 then
sEmailAddress=sPL
end if
if request("chkCompany")=1 then
if sEmailAddress <> "" then
sEmailAddress=sEmailAddress & "," & sCL
else
sEmailAddress=sCL
end if
end if
if request("chkSales")=1 then
if sEmailAddress<> "" then
sEmailAddress=sEmailAddress & "," & sCR
else
sEmailAddress=sCR
end if
end if
'response.write ("EMAIL ADDRESS : " & sEmailAddress & "
")
sData="Name : " & request("txtName") & vbcrlf
sData=sData & "Title : " & request("txtTitle") & vbcrlf
sData=sData & "Company : " & request("txtCompanyName") & vbcrlf
sData=sData & "Street Address: " & request("txtAddress") & vbcrlf
sData=sData & "Address (cont.) : " & request("txtAddress2") & vbcrlf
sData=sData & "City : " & request("txtCity") & vbcrlf
sData=sData & "State/Province : " & request("txtProvince") & vbcrlf
sData=sData & "Zip/Postal code : " & request("txtPostal") & vbcrlf
sData=sData & "Country : " & request("txtCountry") & vbcrlf
sData=sData & "Work Phone : " & request("txtTel") & vbcrlf
sData=sData & "FAX : " & request("txtFax") & vbcrlf
sData=sData & "E-mail : " & request("txtEMail") & vbcrlf
call sendMail(request("txtEMail"),request("txtName"),sEmailAddress,sData)
end if
%>
MODERN DYESTUFFS and PIGMENTS CO., LTD.