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

Address:

Cendere Yolu No:3 Ayazaga / Istanbul 34396 - Turkey

Phone: +90 212 289 57 58
Fax: +90 212 289 77 67

parkbravogroup homepage