<%=getXMLValue("rezervacije")%>

<%@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 appID = Request.QueryString("appID") if Request("posaljiMail") = "1" then email = Request("email") m_from = email m_to = "manora@manora-losinj.hr" m_ime = Request("firstname") & " " & Request("lastname") m_email = email m_od = Request("dolazakD") & "." & Request("dolazakM") & "." & Request("dolazakG") m_do = Request("odlazakD") & "." & Request("odlazakM") & "." & Request("odlazakG") m_naziv_smjestaja = Request("tipSmjestaja") m_odrasli = Request("brojOdraslih") m_djece = Request("brojDjece") m_nacin_placanja = Request("nacinPlacanja") m_dodatne_zelje = Request("comments") 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 smještaj - Hotel Manora" .TextBody = "Ime i prezime: " & m_ime & vbCrLf & vbCrLf & _ "Email: " & email & vbCrLf & vbCrLf & _ "Termin boravka od " & m_od & " do " & m_do & vbCrLf & vbCrLf & _ "Naziv smještaja: " & m_naziv_smjestaja & vbCrLf & vbCrLf & _ "Broj odraslih: " & m_odrasli & vbCrLf & vbCrLf & _ "Broj djece: " & m_djece & vbCrLf & vbCrLf & _ "Nacin placanja: " & m_nacin_placanja & vbCrLf & vbCrLf & _ "Dodatne želje: " & m_dodatne_zelje .Send End With Set cdoMessage = Nothing end if Call OpenDBConnection %> <%=getXMLValue("rezervacije")%> - <%=getXMLValue("title")%>

HOTEL RESTAURANT

MANORA

NEREZINE MALI LOŠINJ

CROATIA

Manora in Nerezine has 2 reviews

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

<%=getXMLValue("osobni_podaci")%> <%=getXMLValue("ime")%>: " />
<%=getXMLValue("prezime")%>: " />
<%=getXMLValue("email")%>: " />
<%=getXMLValue("dolazak")%>:
<%=getXMLValue("odlazak")%>:
<%=getXMLValue("smjestaj")%>:
<%=getXMLValue("broj_odraslih")%>:
<%=getXMLValue("broj_djece")%>:
<%=getXMLValue("nacin_placanja")%>:
<%=getXMLValue("dodatne_zelje")%>:
');" value="<%=getXMLValue("posalji")%>" tabindex="5"> " type="reset" id="reset" tabindex="6">

<%else%>

<%=getXMLValue("zahvala_upit")%>

<%=getXMLValue("24_sata")%>

<%end if%>