:: DreamMakers Bahrain | Partner With Us ::

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then if request.QueryString("cmd")="add" then dim myMail, cdoConfig, cdoMessage sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.dreammakersit.com" cdoConfig.fields.update myHTML="Feedback
" myHTML=myHTML & "" myHTML = " FeedBack

" myHTML = myHTML & "

" myHTML = myHTML & "" myHTML = myHTML & "" myHTML = myHTML & "" myHTML = myHTML & "" myHTML = myHTML & "" myHTML = myHTML & "" myHTML = myHTML & "" myHTML = myHTML & "" myHTML = myHTML & "

Company Name :	" & Request.Form("company_name") & "
Website :	" & Request.Form("website") & "
Mailing Address :	" & Request.Form("mailing_address") & "
Country :	" & Request.Form("country") & "
Phone No :	" & Request.Form("Phone") & "
Fax No :	" & Request.Form("faxno") & "
E-mail :	" & Request.Form("email") & "
Comments :	" & Request.Form("comments") & "

" Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.HTMLBody = True cdoMessage.From = Request.Form("email") cdoMessage.To = "tbc@dreammakersit.com" cdoMessage.Subject = "Feedback" cdoMessage.HTMLBody = myHTML cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.Redirect("partner_with _us.asp") end if else %> <% end if end if %>

home

about us

services

products

dreampool

contact

sitemap

	Overview
	The Team
	Industries
	Parther With Us

We welcome you or your organization to join the dreamPOOL to offer your expertise, products or services in our region. We need the following information

Terms: These information shall be kept confidential.

Company Name	*
Web Site
Mailing Address
Select your country
Phone No
Fax No
Email	*
Comments