We protect
your privacy! Information will
not be shared without your permission.
Please tell us what you think about our web site, available products,
services, what you like or dislike and give us your comments and
suggestions. Your email address allows us to reach you and respond.
We have received feedback from
those having trouble tracking orders. When you place an order through
one of our stores you should receive a verification email containing
an order tracking number. When you log into the store where the
merchandise was purchased there are links where you can see the
status of your order by entering this tracking number. Please do
not send us your account number to track the order for you. Your
personal info is protected by the store where your made the purchase
and you should be able to track it yourself. We can possibly locate
a transaction using the name of the store, description of the merchandise,
and amount but can not see your personal info. We are here to help
if you have problems and we want you to enjoy a safe shopping experience!
if you have issues that you
would like to share openly please register for open discussion on
our message
board. Here you can express ideas and get responses from others.
If you want your comments to appear under a category that is not
listed please send a request via this page and we will promptly
open an new category for your discussion.
<%
Dim strFrom, strSubject, strBody 'Strings for fromaddress, subject, body
Dim objCDOMail 'The CDO object
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "SMTPServerAddress"
.update
End With
'First we'll read in the values entered
strFrom = Request.Form("from")
'These would read the message subject and body if we let you enter it
strSubject = Request.Form("subject")
strBody = Request.Form("body")
' Some spacing
strBody = strBody & vbCrLf & vbCrLf
' Initiate Is email valid sub function
If strFrom = "" Or Not IsValidEmail(strFrom) Then
' Create Form
%>
<%
Else
' Create an instance of the NewMail object.
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = cdoConfig
' Set the properties of the object
objMessage.From = strFrom
objMessage.To = "info@webproexpress.com"
objMessage.Subject = strSubject
objMessage.TextBody = strBody
' Some useful extra variables
'objMessage.Cc = "user@domain.com;user@domain.com"
'objMessage.Bcc = "user@domain.com;user@domain.com"
' Send the message!
objMessage.Send
' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objMessage = Nothing
' Set your Response after the Send Mail button is pushed.
Response.Write "Your Message was sent!"
End if
' End page logic
%> <% ' Only functions and subs follow!
' A quick email syntax checker.
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
%>
