| |
|
|
| |
E-Mail
<%
if trim(request.QueryString("submit")="true") then
dim mailobj
set mailobj= Server.CreateObject("CDO.message")
'mailobj.Mailformat = 0
'mailobj.Bodyformat= 0
if trim(request("toemail"))="support@hexlogicals.com" then
mailobj.TO ="jobs@hexlogicals.com"
else
mailobj.TO = request("toemail")
'mailobj.CC = "sales@illusions-online.com"
'mailobj.BCC = "designcell@illusions-online.com"
end if
mailobj.FROM = request("fromemail")
mailobj.SUBJECT ="Mailto Feedback"
body1=""
body1=body1 & request("fromname") & " has given the following comments for you from the Hexlogicals website:
" & request("comments")
mailobj.HtmlBody=body1
mailobj.Send
response.Redirect ("mailtothankyou.htm")
'server.Transfer("mailtothankyou.htm")
end if
%> |
|
|
|
|
| |
|
|
|
|
