<% '----------------------- ' sql injection temizliği '----------------------- Private Function cleantexts(ByVal strInputEntry) strInputEntry = Replace(strInputEntry, "<", "<") strInputEntry = Replace(strInputEntry, ">", ">") strInputEntry = Replace(strInputEntry, "[", "[") strInputEntry = Replace(strInputEntry, "]", "]") strInputEntry = Replace(strInputEntry, """", "", 1, -1, 1) strInputEntry = Replace(strInputEntry, "=", "=", 1, -1, 1) strInputEntry = Replace(strInputEntry, "'", "'", 1, -1, 1) strInputEntry = Replace(strInputEntry, "select", "select", 1, -1, 1) strInputEntry = Replace(strInputEntry, "join", "join", 1, -1, 1) strInputEntry = Replace(strInputEntry, "union", "union", 1, -1, 1) strInputEntry = Replace(strInputEntry, "where", "where", 1, -1, 1) strInputEntry = Replace(strInputEntry, "insert", "insert", 1, -1, 1) strInputEntry = Replace(strInputEntry, "delete", "delete", 1, -1, 1) strInputEntry = Replace(strInputEntry, "update", "update", 1, -1, 1) strInputEntry = Replace(strInputEntry, "like", "like", 1, -1, 1) strInputEntry = Replace(strInputEntry, "drop", "drop", 1, -1, 1) strInputEntry = Replace(strInputEntry, "create", "create", 1, -1, 1) strInputEntry = Replace(strInputEntry, "modify", "modify", 1, -1, 1) strInputEntry = Replace(strInputEntry, "rename", "rename", 1, -1, 1) strInputEntry = Replace(strInputEntry, "alter", "alter", 1, -1, 1) strInputEntry = Replace(strInputEntry, "cast", "cast", 1, -1, 1) strInputEntry = Trim(strInputEntry) cleantexts = strInputEntry End Function %>

 

<% If cleantexts(request.querystring("do")) = "sendit" then ' müşteriye giden mail 'On Error Resume Next Set smtp = Server.CreateObject("JMail.Message") msg = "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "

Thank you "&cleantexts(Request.form("name"))&" "&cleantexts(Request.form("surname"))&",

" & chr(13) & chr(10) msg = msg & "

Your application has been received for the Wines of Turkey special tutored tastings at LIWF 2012

    " If cleantexts(Request.form("conferance0")) <> "" then msg = msg & "
  • "& cleantexts(Request.form("conferance0")) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance1")) <> "" then msg = msg & "
  • "& cleantexts(Request.form("conferance1")) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance2")) <> "" then msg = msg & "
  • "& cleantexts(Request.form("conferance2")) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance3")) <> "" then msg = msg & "
  • "& cleantexts(Request.form("conferance3")) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance4")) <> "" then msg = msg & "
  • "& cleantexts(Request.form("conferance4")) & "
  • " & chr(13) & chr(10) End if msg = msg & "
at LIWF 2012.

" & chr(13) & chr(10) msg = msg & "

Please note that this is not a confirmation for your application. You will receive a reply within 48 hours

" & chr(13) & chr(10) msg = msg & "

In the meantime if you have any questions, please do not hesitate to contact us by e-mail info@winesofturkey.org

" & chr(13) & chr(10) msg = msg & "

Thank you and kind regards
The Wines of Turkey Team

" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) smtp.ContentType = "text/html" smtp.Charset = "ISO-8859-9" smtp.AddRecipient cleantexts(Request.form("email")) smtp.AddRecipientBCC "aycao@winesofturkey.org" smtp.AddRecipientBCC "info@winesofturkey.org" smtp.from = "info@winesofturkey.org" smtp.fromname = "Wines of Turkey" smtp.MailServerUserName = "postmaster@winesofturkey.org" smtp.MailServerPassWord = "kuzu1201" smtp.Subject = "Wines of Turkey / LIWF 2012 – Event Registration" smtp.body = msg smtp.Send("mail.winesofturkey.org") set Smtp = Nothing ' yönetime giden mail 'On Error Resume Next Set smtp = Server.CreateObject("JMail.Message") msg = "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "
Wines of Turkey / LIWF 2012 – Event Registration
Title:" & cleantexts(Request.form("title")) & "
First name:" & cleantexts(Request.form("name")) & "
Last name:" & cleantexts(Request.form("surname")) & "
E-mail:" & cleantexts(Request.form("email")) & "
Phone:" & cleantexts(Request.form("phone")) & "
Company:" & cleantexts(Request.form("company")) & "
Job Title:" & cleantexts(Request.form("job")) & "
Address 1:" & cleantexts(Request.form("address1")) & "
Address 2:" & cleantexts(Request.form("address2")) & "
Country:" & cleantexts(Request.form("country")) & "
Postcode:" & cleantexts(Request.form("postcode")) & "
Session Choise:" & chr(13) & chr(10) If cleantexts(Request.form("conferance0")) <> "" then msg = msg & cleantexts(Request.form("conferance0")) & "
" & chr(13) & chr(10) End if If cleantexts(Request.form("conferance1")) <> "" then msg = msg & cleantexts(Request.form("conferance1")) & "
" & chr(13) & chr(10) End if If cleantexts(Request.form("conferance2")) <> "" then msg = msg & cleantexts(Request.form("conferance2")) & "
" & chr(13) & chr(10) End if If cleantexts(Request.form("conferance3")) <> "" then msg = msg & cleantexts(Request.form("conferance3")) & "
" & chr(13) & chr(10) End if If cleantexts(Request.form("conferance4")) <> "" then msg = msg & cleantexts(Request.form("conferance4")) & "
" & chr(13) & chr(10) End if msg = msg & "
" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) msg = msg & "" & chr(13) & chr(10) smtp.ContentType = "text/html" smtp.Charset = "ISO-8859-9" smtp.AddRecipient "aycao@winesofturkey.org" smtp.AddRecipient "info@winesofturkey.org" smtp.from = "info@winesofturkey.org" smtp.fromname = "Wines of Turkey" smtp.MailServerUserName = "postmaster@winesofturkey.org" smtp.MailServerPassWord = "kuzu1201" smtp.Subject = "Wines of Turkey / LIWF 2012 – Event Registration" smtp.body = msg smtp.Send("mail.winesofturkey.org") If Err <> 0 Then %>





Your form could not be send! - (<%=Err.Description%>)

< Please try again by clicking here

<% else %>

Wines of Turkey special tutored tastings at LIWF 2012


Thank you for registering to attend Wines of Turkey special tutored tastings at LIFW 2012

    <% If cleantexts(Request.form("conferance0")) <> "" then response.write("
  • "&cleantexts(Request.form("conferance0"))) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance1")) <> "" then response.write("
  • "&cleantexts(Request.form("conferance1"))) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance2")) <> "" then response.write("
  • "&cleantexts(Request.form("conferance2"))) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance3")) <> "" then response.write("
  • "&cleantexts(Request.form("conferance3"))) & "
  • " & chr(13) & chr(10) End if If cleantexts(Request.form("conferance4")) <> "" then response.write("
  • "&cleantexts(Request.form("conferance4"))) & "
  • " & chr(13) & chr(10) End if%>
 at LIWF 2012.


You will receive a reply within 48 hours.

Kind regards
The Wines of Turkey Team

go to web site...




<% end If set Smtp = Nothing Else %>

Registration for

TUTORED TASTINGS by the
LEADING EXPERTS
LIWF South Hall N20

STRICTLY TRADE & PRESS ONLY

&do=sendit" onsubmit="return check_register_form()">

Title*

First name*

Last name*

E-mail*

Phone*

Company*

Job Title

Address 1

Address 2

Country

Postcode

*   Please register for
at least one session
Tuesday, 22 May at 11.00
Wines of Turkey Stand N20
Panel debate on the "Birth of a Generic"
debated by Willie Klinger
(Director, Austrian Wine Marketing Board),
Robert McIntosh, Gabriella Opaz
(Founders of Vrazon and EWBC)
& Taner Ogutoglu (Director, Wines of Turkey)

Tuesday, 22 May at 13.45
Master Class Theatre Y10,
"Wines from the origin" Indigenous and
International grape varieties from Turkey
hosted by Tim Atkin MW

Wednesday, 23 May at 11.00
Wines of Turkey Stand N20,
"Turkish Wines Listed in UK & New Discoveries"
hosted by Susy Atkins


Wednesday, 23 May at 14.00
Wines of Turkey Stand N20,
"Turkish Wines Listed in UK & New Discoveries"
hosted by Jason Turner

Thursday, 24 May at 14.00
Wines of Turkey Stand N20,
"Turkish Wines Listed in UK & New Discoveries"
hosted by Jason Turner

<% End if %>