Web Products ExpressA D V E R T I S I N G Web Products Express
webproexpress shopping mall logo
Shopping for values Everyday! Home  |  Feedback  |  Chat  |  Calendar  |  Depts  |  Site Map   |  Add Url


Please enter your name:
Your E-mail Address:
How did you find us?


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 %>