<%@ Language=VBScript CodePage=1254 %> <% Response.Buffer = TRUE %> <% if Session("Mail_Tamam")=True then Session.TimeOut=10 end if Function SifreUret(Boy) Dim sifre,KarakterBoyu,KacinciKarakter Const Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNOPRQSTUVYZ" Randomize KarakterBoyu = Len(Karakterler) For x = 1 To Boy KacinciKarakter = Int((KarakterBoyu * Rnd) + 1) sifre = sifre & Mid(Karakterler,KacinciKarakter,1) Next SifreUret = sifre End Function flood= SifreUret(25) %> <% '***************************************************************************************************** FUNCTION FIXQUOTES(THESTRING) FIXQUOTES=REPLACE(THESTRING, "'", "''") END FUNCTION '***************************************************************************************************** company = TRIM(REQUEST("company")) adsoyad = TRIM(REQUEST("adsoyad")) email = TRIM(REQUEST("email")) tel = TRIM(REQUEST("tel")) faks = TRIM(REQUEST("faks")) adres = TRIM(REQUEST("adres")) sehir = TRIM(REQUEST("sehir")) paket = TRIM(REQUEST("paket")) tessek = TRIM(REQUEST("tessek")) ttar = TRIM(REQUEST("ttar")) mesaj = TRIM(REQUEST("mesaj")) plas220 = TRIM(REQUEST("plas220")) plas120 = TRIM(REQUEST("plas120")) plas60 = TRIM(REQUEST("plas60")) plas30 = TRIM(REQUEST("plas30")) celik220 = TRIM(REQUEST("celik220")) celik120 = TRIM(REQUEST("celik120")) kutu20 = TRIM(REQUEST("kutu20")) kutu10 = TRIM(REQUEST("kutu10")) kutu5 = TRIM(REQUEST("kutu5")) clamps220 = TRIM(REQUEST("clamps220")) clamps120 = TRIM(REQUEST("clamps120")) clamps60 = TRIM(REQUEST("clamps60")) clamps20 = TRIM(REQUEST("clamps20")) clamps5 = TRIM(REQUEST("clamps5")) kulp = TRIM(REQUEST("kulp")) flanj = TRIM(REQUEST("flanj")) Yaz = TRIM(REQUEST("Yaz")) ip = Request.ServerVariables("REMOTE_ADDR") %> <% '***************************************************************************************************** If Request ("mailekle") = "Kontrol" Then Call Kontrol Else End If '***************************************************************************************************** SUB Kontrol '***************************************************************************************************** if request("id") <> Session.SessionID then Yaz="-----------------------------------------------
Warning !
-----------------------------------------------" else '***************************************************************************************************** If adsoyad="" OR LEN(adsoyad)<3 THEN Yaz="--------------------------------------------
Adınızı ve Soyadınızı Yazmadınız !
--------------------------------------------" else '***************************************************************************************************** If Len(email) < 5 Then bIsValid = "False" Else If Instr(1, email, " ") <> 0 Then bIsValid = "False" Else If InStr(1, email, "@", 1) < 2 Then bIsValid = "False" Else If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then bIsValid = "False" End If End If End If End If if bIsValid = "False" THEN Yaz="-------------------------------------------------
Lütfen Geçerli Bir E-Mail Adresi Girin !
-------------------------------------------------" else '***************************************************************************************************** If mesaj="" or LEN(mesaj)<3 THEN Yaz="-------------------------------------------------
Ek Bilgi Alanını Boş Bıraktınız !
-------------------------------------------------" else '***************************************************************************************************** '***************************************************************************************************** if Session("Mail_Tamam")=True then Sql="SELECT * FROM Veriler_1;" Set RS=bag.Execute(Sql) Do While not RS.eof If Session("Flood")=RS("flood") Then Yaz="------------------------------------------------
Siparişiniz Alınamadı - Flood Koruma !
------------------------------------------------" End If RS.movenext Loop else '***************************************************************************************************** sqlString= "INSERT INTO Veriler_1" &_ "(company, adsoyad, email, tel, faks, adres, sehir, paket, tessek, ttar, mesaj, plas220, plas120, plas60, plas30, celik220, celik120, kutu20, kutu10, kutu5, clamps220, clamps120, clamps60, clamps20, clamps5, kulp, flanj, ip, flood) VALUES (" &_ " '" & fixQuotes(company) & "' , "&_ " '" & fixQuotes(adsoyad) & "' , "&_ " '" & email & "' , "&_ " '" & tel & "' , "&_ " '" & faks & "' , "&_ " '" & fixQuotes(adres) & "' , "&_ " '" & sehir & "' , "&_ " '" & paket & "' , "&_ " '" & tessek & "' , "&_ " '" & ttar & "' , "&_ " '" & fixQuotes(mesaj) & "' , "&_ " '" & plas220 & "' , "&_ " '" & plas120 & "' , "&_ " '" & plas60 & "' , "&_ " '" & plas30 & "' , "&_ " '" & celik220 & "' , "&_ " '" & celik120 & "' , "&_ " '" & kutu20 & "' , "&_ " '" & kutu10 & "' , "&_ " '" & kutu5 & "' , "&_ " '" & clamps220 & "' , "&_ " '" & clamps120 & "' , "&_ " '" & clamps60 & "' , "&_ " '" & clamps20 & "' , "&_ " '" & clamps5 & "' , "&_ " '" & kulp & "' , "&_ " '" & flanj & "' , "&_ " '" & ip & "' , "&_ " '" & flood & "')" bag.execute sqlString '***************************************************************************************************** Yaz="------------------------------------------------------------------
Teşekkürler, Siparişiniz alınmıştır, en kısa süre içerisinde sizinle irtibata geçilecektir.
------------------------------------------------------------------" '***************************************************************************************************** Session("Mail_Tamam")=True Session("Flood")=flood end if end if end if end if end if '***************************************************************************************************** '***************************************************************************************************** '***************************************************************************************************** End SUB %> <% CodePage="iso-8859-9" %> <% kelebek_msg=REQUEST("kelebek_msg") email=REQUEST("email") If Request ("KelebekASP") = "Yolla" Then CALL Webmail Else End if SUB Webmail id=Trim(Request("id")) IF id <> Session.SessionID THEN Response.Write "" Response.Write "" Response.Write "" Response.End END IF If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then kelebek_msg= "" Else If Len(email) < 5 Then bIsValid = "False" Else If Instr(1, email, " ") <> 0 Then bIsValid = "False" Else If InStr(1, email, "@", 1) < 2 Then bIsValid = "False" Else If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then bIsValid = "False" End If End If End If End If IF bIsValid = "False" THEN kelebek_msg= "" Else '-------------------------------------------------------------------------- If not REQUEST("tel")="" and not IsNumeric(REQUEST("telefon")) Then kelebek_msg= "" Else '-------------------------------------------------------------------------- If REQUEST("adres")="" or len(REQUEST("adres"))<3 or len(REQUEST("adres"))>1000 Then kelebek_msg= "" Else '-------------------------------------------------------------------------- If Session("KelebekGuvenlik")=TRUE Then kelebek_msg= "" Else '----------------------------------------------------------------------------------------------------------------------------- ip = Request.ServerVariables("REMOTE_ADDR") Dim objMailKelebek, KelebekMyBody Set objMailKelebek = Server.CreateObject("CDO.Message") objMailKelebek.From = TRIM(REQUEST("email")) objMailKelebek.To = "info@kirmakmakina.com" objMailKelebek.Subject = "Sipariş Formu" KelebekMyBody = "Kirmak Sipariş Formu" & vbCrLf KelebekMyBody = KelebekMyBody & "----------------------FIRMA-BILGILERI---------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # FIRMA ADI: " & TRIM(REQUEST("company")) & vbCrLf KelebekMyBody = KelebekMyBody & " # AD SOYAD : " & TRIM(REQUEST("adsoyad")) & vbCrLf KelebekMyBody = KelebekMyBody & " # EPOSTA : " & TRIM(REQUEST("email")) & vbCrLf KelebekMyBody = KelebekMyBody & " # TELEFON : " & TRIM(REQUEST("tel")) & vbCrLf KelebekMyBody = KelebekMyBody & " # FAKS : " & TRIM(REQUEST("faks")) & vbCrLf KelebekMyBody = KelebekMyBody & " # ADRES : " & TRIM(REQUEST("adres")) & vbCrLf KelebekMyBody = KelebekMyBody & " # ŞEHİR : " & TRIM(REQUEST("sehir")) & vbCrLf KelebekMyBody = KelebekMyBody & "---------------------TESLIMAT-BILGILERI-------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # PAKETLEME : " & TRIM(REQUEST("paket")) & vbCrLf KelebekMyBody = KelebekMyBody & " # TESLİM ŞEKLİ : " & TRIM(REQUEST("tessek")) & vbCrLf KelebekMyBody = KelebekMyBody & " # TESLİM TARİHİ: " & TRIM(REQUEST("ttar")) & vbCrLf KelebekMyBody = KelebekMyBody & " # EK BİLGİ : " & TRIM(REQUEST("mesaj")) & vbCrLf KelebekMyBody = KelebekMyBody & "-----------------PLASTIK-VARIL-CEMBERLERI-----------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # 220lt : " & TRIM(REQUEST("plas220")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 120lt : " & TRIM(REQUEST("plas120")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 60lt : " & TRIM(REQUEST("plas60")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 30lt : " & TRIM(REQUEST("plas30")) & vbCrLf KelebekMyBody = KelebekMyBody & "------------------CELIK-VARIL-CEMBERLERI------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # 220lt : " & TRIM(REQUEST("celik220")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 120lt : " & TRIM(REQUEST("celik120")) & vbCrLf KelebekMyBody = KelebekMyBody & "----------------------KUTU-CEMBERLERI---------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # 20lt : " & TRIM(REQUEST("kutu20")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 10lt : " & TRIM(REQUEST("kutu10")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 5lt : " & TRIM(REQUEST("kutu5")) & vbCrLf KelebekMyBody = KelebekMyBody & "---------------------------CLAMPS-------------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # 220lt : " & TRIM(REQUEST("clamps220")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 120lt : " & TRIM(REQUEST("clamps120")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 60lt : " & TRIM(REQUEST("clamps60")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 20lt : " & TRIM(REQUEST("clamps20")) & vbCrLf KelebekMyBody = KelebekMyBody & " # 5lt : " & TRIM(REQUEST("clamps5")) & vbCrLf KelebekMyBody = KelebekMyBody & "----------------------------KULP--------------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # Adet : " & TRIM(REQUEST("kulp")) & vbCrLf KelebekMyBody = KelebekMyBody & "----------------------------FLANJ-------------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # Adet : " & TRIM(REQUEST("flanj")) & vbCrLf KelebekMyBody = KelebekMyBody & "----------------------------------------------------------" & vbCrLf KelebekMyBody = KelebekMyBody & " # IP: " & ip & vbCrLf objMailKelebek.TextBody = KelebekMyBody on Error Resume Next objMailKelebek.Send kelebek_msg= "" Session("KelebekGuvenlik")=TRUE Set objMailKelebek = Nothing '----------------------------------------------------------------------------------------------------------------------------- End If End If End If End If End If '----------------------------------------------------------------------------------------------------------------------------- End SUB %> Kirmak Online Sipariş Formu
 
 
Firma Adı ">
Ad Soyad ">
Eposta ">
Telefon ">
Faks ">
Adres
Şehir
Paketleme ">
Teslim Şekli ">
Teslim Tarihi ">
Ek Bilgi
 
  " style="font-family: Tahoma; font-size: 8pt; border: 1px solid #F5F5F5; ; background-image:url('images/cerceve/arka.jpg'); color:#808080">

Plastik Varil Çemberi
Boyut Adet
220 lt ">
120 lt ">
60 lt ">
30 lt ">

Çelik Varil Çemberi
Boyut Adet
220 lt ">
120 lt ">

Teneke Kutu Çemberi
Boyut Adet
20 lt ">
10 lt ">
5 lt ">

Kulplar
 

Adet

 ">  

Flanj Kapakları
 

Adet

 ">  
 
 

<%Response.write "Disabled"%><%End If %> onClick="javascript:this.disabled=disabled;return true;">

 <%=Yaz%>