<% Function ValidateEmail(email) Dim regEx Set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" ValidateEmail = regEx.Test(email) End Function Function IsInternalField(value) IsInternalField = False Dim internalFieldsArray(3) Dim lvalue internalFieldsArray(0) = "submit" internalFieldsArray(1) = "reset" internalFieldsArray(2) = "send" lvalue = LCase(value) Response.Write lvalue For Each item In internalFieldsArray If item = lvalue Then IsInternalField = True End If Next End Function If Request.ServerVariables("REQUEST_METHOD") = "POST" Then On Error Resume Next Dim strMailTo Dim strMailFrom Dim strSubject Dim strBody Dim strSuccessUrl Dim strErrorUrl Dim strError Dim strLine strMailTo = "yourname@yourdomain.com" strMailFrom = Request.Form("email") If strMailFrom = "" Then strMailFrom = strMailTo End If strSubject = "Contact Information" strBody = "Values submitted from web site form:" strSuccessUrl = "success.html" strErrorUrl = "error.html" strError = "" If ValidateEmail(strMailFrom) <> True Then Response.Redirect strErrorUrl Response.End End If strBody = strBody & vbCrLF For each inputField in Request.Form If IsInternalField(inputField) <> True Then For each inputValue in Request.Form(inputField) strLine = inputField & " : " & inputValue & vbCrLF strBody = strBody & strLine Next End If Next Dim mailObject Set mailObject = CreateObject("CDO.Message") If err.number <> 0 Then Response.redirect error_url Response.End End If mailObject.To = strMailTo mailObject.From = strMailFrom mailObject.Subject = strSubject mailObject.TextBody = strBody ' dim mailConfig ' set mailConfig = CreateObject("CDO.Configuration") ' mailConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort ' mailConfig.Fields(cdoSMTPServer) = "smtp_server_name" ' mailConfig.Fields(cdoSMTPServerPort) = 25 ' mailConfig.Fields(cdoSMTPConnectionTimeout) = 10 ' mailConfig.Fields(cdoSMTPAuthenticate) = cdoBasic ' mailConfig.Fields(cdoSendUserName) = "username" ' mailConfig.Fields(cdoSendPassword) = "password" ' mailConfig.Fields.Update ' set mailObject.configuration = mailConfig mailObject.Send If err.number <> 0 Then Response.Redirect strErrorUrl else Response.Redirect strSuccessUrl end if Set mailObject = Nothing Response.End End If %> Главная
Ремонт, отделка помещений
Строительство
Услуги в области земельного права
Продажа строительных материалов
Чегоряев  Виталий Викторович
МЫ ПОСТРОИМ ДЛЯ ВАС ДОМ ВАШЕЙ МЕЧТЫ!
Закажите обратный звонок!
Строительство домов и коттеджей
"Мы построим вашу мечту!"
Наша компания начала свою деятельность с 2007 года, как бригада строителей, а на сегодняшний день мы перспективная строительная компания ООО «Капитальное Строительство» с небольшим, но опытным коллективом!
"Капитальное строительство"
652644, Россия, Кемеровская область,
город  Белово, пгт. Инской
мкр-н Технологический 10; 2 этаж
"МЫ ПОСТРОИМ ВАШУ МЕЧТУ"
        Основное направление нашей деятельности - это малоэтажное строительство. За последние годы мы построили «с нуля» 15 эксклюзивных коттеджей, площадью от 100 до 400 м2 под проекты «Заказчика» которые и сегодня радуют своих владельцев. Так же имеется большой опыт в строительстве промышленных, хозяйственных, торговых объектов из различных строительных материалов на территории Кемеровской области.

        В ходе нашей деятельности, мы поняли, что любая стройка не начинается с самого строительства, а начинается с выбора земельного, оформления прав на данный участок, оформления разрешительных документов, различных согласований, получения тех. условий на коммуникации (свет, вода, тепло). Поэтому у нас появилось ЮРИДИЧЕСКОЕ подразделение, которое решает вопросы наших Клиентов в области ЗЕМЕЛЬНОГО ПРАВА.

       Так же мы имеем базу по продаже строительных материалов, которая обеспечивает наших Клиентов доступными и качественными строительными материалами по умеренным ценам
.

С  Уважением, Генеральный директор ООО  «Капитал Строй»
                                                
Услуги в области земельного права
Ремонт и отделка помещений
Продажа строительных материалов
Все права защищены.
© ООО «КапиталСтрой"», 2007-2016
8-950-260-81-52
stroimbelovo@rambler.ru
Наши контакты:
652644, Россия, Кемеровская область,
город  Белово, пгт. Инской
мкр-н Технологический 10; 2 этаж
Яндекс.Метрика