<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1254 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("rezervasyon_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Sonuçlar", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(20) Dim arFormDBFields0(20) Dim arFormValues0(20) arFormFields0(0) = "gelis_tarihi" arFormDBFields0(0) = "Gelis_Tarihi" arFormValues0(0) = Request("gelis_tarihi") arFormFields0(1) = "odeme_sekli" arFormDBFields0(1) = "Odeme_Sekli" arFormValues0(1) = Request("odeme_sekli") arFormFields0(2) = "telefon" arFormDBFields0(2) = "Telefon_No" arFormValues0(2) = Request("telefon") arFormFields0(3) = "Sehir_Ulke" arFormDBFields0(3) = "Sehir_Ulke" arFormValues0(3) = Request("Sehir_Ulke") arFormFields0(4) = "Kart_Gecerlilik_Tarihi" arFormDBFields0(4) = "Gecerlilik_Tarihi" arFormValues0(4) = Request("Kart_Gecerlilik_Tarihi") arFormFields0(5) = "odatipi" arFormDBFields0(5) = "odatipi" arFormValues0(5) = Request("odatipi") arFormFields0(6) = "Vergi_dairesi_adi" arFormDBFields0(6) = "Vergi_Dairesi_adi" arFormValues0(6) = Request("Vergi_dairesi_adi") arFormFields0(7) = "fax" arFormDBFields0(7) = "Fax_No" arFormValues0(7) = Request("fax") arFormFields0(8) = "adres" arFormDBFields0(8) = "Adres" arFormValues0(8) = Request("adres") arFormFields0(9) = "fatura_adresi" arFormDBFields0(9) = "Adres1" arFormValues0(9) = Request("fatura_adresi") arFormFields0(10) = "email" arFormDBFields0(10) = "e_mail" arFormValues0(10) = Request("email") arFormFields0(11) = "Sirket_Unvani" arFormDBFields0(11) = "Sirket_Unvani" arFormValues0(11) = Request("Sirket_Unvani") arFormFields0(12) = "Adi_Soyadi" arFormDBFields0(12) = "Adi_Soyadi" arFormValues0(12) = Request("Adi_Soyadi") arFormFields0(13) = "Vergi_Dairesi_No" arFormDBFields0(13) = "Vergi_Dairesi_No" arFormValues0(13) = Request("Vergi_Dairesi_No") arFormFields0(14) = "Kart_uzerindeki_isim" arFormDBFields0(14) = "Kart_uzerindeki_isim" arFormValues0(14) = Request("Kart_uzerindeki_isim") arFormFields0(15) = "Kredi_Karti" arFormDBFields0(15) = "Kredi_Karti" arFormValues0(15) = Request("Kredi_Karti") arFormFields0(16) = "Pansiyon_durumu" arFormDBFields0(16) = "Pansiyon_Durumu" arFormValues0(16) = Request("Pansiyon_durumu") arFormFields0(17) = "ayrilis_tarihi" arFormDBFields0(17) = "Ayrilis_Tarihi" arFormValues0(17) = Request("ayrilis_tarihi") arFormFields0(18) = "Kart_no" arFormDBFields0(18) = "Kart_No" arFormValues0(18) = Request("Kart_no") arFormFields0(19) = "Not" arFormDBFields0(19) = "Not" arFormValues0(19) = Request("Not") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Kullanıcı_adı" End If FP_SaveFieldToDB fp_rs, Now, "Zaman_damgası" If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tarayıcı_türü" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Uzak_bilgisayar_adı" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1254",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "rezervation.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Name Surname
Name Surname :

Adress :

City / Country :

Tel. Number :

Fax Number :

E-mail :

Arrival Date :

Departure Date :

Suite Room

Sgl Room

Dbl Room

TRP Room

 
Pension :

BB

 :

 

HB

:

FB

:

NOTE :    
Credit Card Information
Payment Type :

Cash

 Credit Card

:

Credit Card Type :

Card No

 :
Name On Card :

 Invoise Date

:

Billing Information
Company Name :

Address :

Name Of Tax Office :

Tax Number :