%@LANGUAGE="VBscript"%> <% bEmailSent = false select case Request("task") case "hr": Session("Language") = "hr" case "en": Session("Language") = "en" case "de": Session("Language") = "de" case "it": Session("Language") = "it" case "posaljiMail": sendEmail case else if Session("Language") = "" then Session("Language") = "en" end select sub sendEmail() sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "mail.manora-losinj.hr" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Request("email") .To = "manora@manora-losinj.hr" .Subject = "Zahtjev za kontakt" .TextBody = "Ime: " & Request("firstname") & chr(13) & chr(10) & "Prezime: " & Request("lastname") & chr(13) & chr(10) & "Poruka: " & Request("comments") .Send End With Set cdoMessage = Nothing bEmailSent = true end sub Call OpenDBConnection %>