<% set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") cn.open "DSN=PBIK;" if request.Form("action")= "save" then strsql = "insert into JobApplicationTable (" for each item in request.Form if left(item,3)="app" then strsql= strsql & item & "," end if next strsql = left(strsql,len(strsql)-1) & ") values (" for each item in request.Form if left(item,3)="app" then if item = "app_selected_depts" then strsql= strsql & "'" & replace(request(item),",","
") & "'," else strsql= strsql & "'" & replace(request(item),"'","''") & "'," end if end if next strsql = left(strsql,len(strsql)-1) & ")" on error resume next cn.begintrans cn.execute strsql strErr = err.description & "" RS.open "Select @@IDENTITY as UID", CN, 1,3 strUID = RS("UID") rs.close If strErr = "" then CN.committrans else CN.rollback end if with request strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"" strHtml = strHtml &"
Park Bravo Eposta Kayıt
Adı Soyad : " & .form("ad_soyad") & "
Doğum Tarihi : " & .form("dogum_tarihi") & "
Cinsiyeti : " & .form("cinsiyet") & "
Eğitim : " & .form("egitim") & "
Meslek :" & .form("meslek") & "
Medeni Durum :" & .form("medenidurum") & "
Adres :" & .form("adres") & "
İş Telefonu :" & .form("is_telefonu") & "
Eposta :" & .form("eposta") & "
Ev Adresi :" & .form("ev_adresi") & "
Ev Telefonu :" & .form("ev_telefonu") & "
Cep Telefonu :" & .form("cep_telefonu") & "
Müşteri İlişkileri
Cep Telefonu :" & .form("cep_telefonu") & "
" strSonuc = "

Formunuz bize ulaşmıştır...

" end with Const cdoSendUsingPickup = 1 set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Pickup" .Update End With With iMsg Set .Configuration = iConf .To = "guldeng@parkbravo.com.tr" .From = "parkbravo@parkbravo.com.tr" .Subject = "Park Bravo İletişim: Eposta kayıt" .HTMLBody = strHTML .Send End With end if select case request("jobid") case "1" job1=" checked" case "2" job2=" checked" case "3" job3=" checked" end select %> Park Bravo Group

Your important to us

The goal of the Park Bravo Group is to provide quality service to ensure
satisfaction during and after your purchase.

Customer Service department located at the Park Bravo Group headquarters.
We can be reached weekdays 09:00 - 18:00 and Saturdays from 10:00-17:00

Phone: +90 212 289 57 58 ( extension 3231 - 3232)
Fax: +90 212 289 77 67

E-mail: musterihizmetleri@parkbravo.com.tr

    Join our mailing group...

    Personal Information

  • Name, Surname:
  • Date of Birth:
  • Gender:

    Female: Male:

  • Education:
  • Profession:
  • Marital Status :

    Married: Single:

    Address Information

  • Work Title & Address :
  • Work Phone :
  • E-mail:
  • Home Address
  • House Phone :
  • Cellphone :
  • By clicking the SEND button you agree to receive email from the Park Bravo Group





parkbravogroup homepage