<%@LANGUAGE="VBscript"%> <% 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 else if Session("Language") = "" then Session("Language") = "en" end select if Request("posaljiMail") = "1" then m_from = "info@manora-losinj.hr" m_tel_number = Request("tel_number") m_to = "manora@manora-losinj.hr" m_ime = Request("firstname") & " " & Request("lastname") m_od = Request("dolazakD") & "." & Request("dolazakM") & "." & Request("dolazakG") m_do = Request("odlazakD") & ":" & Request("odlazakM") 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 = m_from .To = m_to .Subject = "Upit za poziv na broj - Hotel Manora" .TextBody = "Ime i prezime: " & m_ime & vbCrLf & vbCrLf & _ "Broj telefona: " & m_tel_number & vbCrLf & vbCrLf & _ "Datum i vrijeme poziva " & m_od & " do " & m_do .Send End With Set cdoMessage = Nothing end if Call OpenDBConnection %> Hotel, Restaurant Manora, Nerezine, Mali Lošinj
HOTEL RESTAURANT
MANORA
NEREZINE MALI LOŠINJ
CROATIA
Book now Powered by Booking.com


Kroatien Urlaub

<%=getXMLValue("online_reception")%>

<% if not Request("posaljiMail") = "1" then %>

<%=getXMLValue("osobni_podaci")%> " />
" />
" />

:
');" value="<%=getXMLValue("posalji")%>" tabindex="5" /> " type="reset" id="reset" tabindex="6" />
<%else%>

<%=getXMLValue("zahvala_upit")%>

<%end if%>