<% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %>

Contact Us

USCreativeDesigns Call US
Call Us

You can call us in week days 9 AM -6 PM EST at our number (800) 928-7214 for any questions you may have. Our friendly customer care team are always happy to help you with best possible answers to all your questions.

Start Live Chat

Start live chat with one of our representative and get all the help that you need.

Email Us

Send email us at CustomerSupport@USCreativeDesigns.com and get a guaranteed response within 24 hours.

Fax Us

Fax us at 732 658 1169 for any questions that you may have regarding our service or your order.We will response with in 24 Hrs

US Corporate Office

USCreativeDesigns.com
21H Andover Cir
Princeton
New Jersey, USA, 08540 
(800) 928-7214

<% if not IsEmpty(Request.Form("btnTest")) then Response.Write("" & vbCrLf) end if %>

Submit your enquiry and Receive a free quotes

Name*
Company*
Email*
Phone*
Message*
Which services are you interested in?
Logo Design
Web Design
Brochure Design
Banner Design

Change Image
Enter the characters in the image above
") if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then Dim strMsg Dim subject ' send e-mail Set myMail=CreateObject("CDO.Message") myMail.Subject="Enquiry from " & trim(request.form("fname")) & ", Company: " & trim(request.form("comp")) & ", Phone: " & trim(request.form("phone")) & ", Email: " & trim(request.form("email")) myMail.From="customersupport@uscreativedesigns.com" myMail.To="customersupport@uscreativedesigns.com" myMail.TextBody="Message: " & trim(request.form("msg")) & ".Services Interested on [ Logo Design: " & request.form("logo_design") & ", Website Design: " & request.form("web_design") & ", Brochure Design: " & request.form("brochure_design") & ", Banner Design: " & request.form("banner_design") & "]" myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="relay-hosting.secureserver.net" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing Response.Write("Your enquiry has been sent successfully. You will receive a response in 24 Hours.") 'end of send e-mail else Response.Write("You entered the wrong code. Please re enter again.") end if Response.Write("