<% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function function veri(degisken) if not degisken = "" then degisken = replace(Trim(degisken), "'", "`") degisken = replace(Trim(degisken), "--", "--", 1, -1, 1) degisken = replace(Trim(degisken), "<", "[", 1, -1, 1) degisken = replace(Trim(degisken), ">", "]", 1, -1, 1) degisken = replace(Trim(degisken), "\", "", 1, -1, 1) degisken = replace(Trim(degisken), "*", "", 1, -1, 1) degisken = replace(Trim(degisken), "#", "", 1, -1, 1) degisken = replace(Trim(degisken), "join", "join", 1, -1, 1) degisken = replace(Trim(degisken), "union", "union", 1, -1, 1) degisken = replace(Trim(degisken), "where", "where", 1, -1, 1) degisken = replace(Trim(degisken), "insert", "insert", 1, -1, 1) degisken = replace(Trim(degisken), "delete", "delete", 1, -1, 1) degisken = replace(Trim(degisken), "update", "update", 1, -1, 1) degisken = replace(Trim(degisken), "select", "select", 1, -1, 1) degisken = replace(Trim(degisken), "add", "add", 1, -1, 1) degisken = replace(Trim(degisken), "like", "like", 1, -1, 1) degisken = replace(Trim(degisken), "drop", "drop", 1, -1, 1) degisken = replace(Trim(degisken), "create", "create", 1, -1, 1) degisken = replace(Trim(degisken), "modify", "modify", 1, -1, 1) degisken = replace(Trim(degisken), "rename", "rename", 1, -1, 1) degisken = replace(Trim(degisken), "alter", "alter", 1, -1, 1) degisken = replace(Trim(degisken), "cast", "cast", 1, -1, 1) degisken = replace(Trim(degisken), Chr(10), "", 1, -1, 1) degisken = replace(Trim(degisken), Chr(34), "", 1, -1, 1) end if veri = degisken end function %> Asa Plastik San. Tic. Ltd. Şti.

Contact Form

Telephone0224 466 00 40 – 41
Fax0224 466 00 42
E-Mailinfo@asaplastik.com

Contact Form

<% durum = veri(request.form("durum")) if durum = "gonderildi" then adsoyad = veri(request.form("Adiniz_Soyadiniz")) telefon = veri(request.form("Telefonunuz")) email = veri(request.form("E_Mail_Adresiniz")) mesaj = veri(request.form("Mesajiniz")) if not TestCaptcha("ASPCAPTCHA", Request.Form("Guvenlik_Kodu")) then hata = 1 end if if adsoyad<>"" and email<>"" and mesaj<>"" and not hata = 1 then mesaj2 = replace(mesaj,chr(13),"
") mailicerik = "
Ad Soyad: "& adsoyad &"
Telefon: "& telefon &"
E-Mail: "& email &"
Mesaj: "& mesaj2 &"
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Charset = "Windows-1254" Mail.Host = "mail.asaplastik.com" Mail.From = "admin@asaplastik.com" Mail.Username = "admin@asaplastik.com" Mail.Password = "lK5P81" Mail.FromName = "AsaPlastik.Com" Mail.AddAddress "info@asaplastik.com" Mail.Subject = "İletişim Formu - English" Mail.Body = mailicerik Mail.Send if err then response.Write err.Description & "
Error Message" end if set Mail = nothing islem = "ok" end if end if if durum = "" or hata = 1 then %>
<% if hata = 1 then %> Please check verification code. <% end if %>
<% else %> Mr/Mrs <%=adsoyad%>,

Your message has been submitted.

Thank you for your time. <% end if %>