<% Response.buffer=True %> <% ' making diabled days strin from the db with days closed 'declare the variable that will hold the connection string 'Dim ConnectionString DIM disabled_dates(50) 'get last record Jahr=Year(Now) if len(month(Now))=1 then monat="0" & month(Now) else monat= month(Now) end if if len(day(Now))=1 then tag="0" & day(Now) else tag=day(Now) end if xdate=jahr & "/" & monat & "/" & tag rekord=0 conn = StrAdminProvider strSqlStmt = "select * FROM days_closed WHERE xdate<>'' ORDER by xdate ASC" Set rs=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt rs.open strSqlStmt, conn do until rs.eof rekord=rekord+1 rs.movenext loop conn = StrAdminProvider strSqlStmt = "select * FROM days_closed WHERE xdate-1 > '" & xdate & "' ORDER by xdate ASC" strSqlStmt = "select * FROM days_closed ORDER by xdate ASC" Set rs=Server.CreateObject("ADODB.Recordset") rs.open strSqlStmt, conn 'response.write "Here: " & strSqlStmt & "(" & rs("xdate") & ")" if rs.eof then else do until rs.eof 'response.write "->:"&rs("xdate") zaehlrekord=zaehlrekord+1 testday = Right(Day(rs("xdate")),2) testmonth = Right(month(rs("xdate")),2) testyear = Right(year(rs("xdate")),4) closing_date=testday & "." & testmonth & "." & testyear ' closing date for jquery (date-calendar) '' not wotking with datemonth=1 - must be '01' if len(testmonth)=1 then testmonth="0" & testmonth end if if len(testday)=1 then testday="0" & testday end if disabled_dates(zaehlrekord)=testyear & "/" & testmonth & "/" & testday 'response.write "aaa"&disabled_dates(zaehlrekord) xtestday = Right(Day(rs("xdatum")),2) xtestmonth = Right(month(rs("xdatum")),2) xtestyear = Right(year(rs("xdatum")),4) making_date=xtestday & "." & xtestmonth & "." & xtestyear rs.movenext loop end if %> <% ' buld my own string for 'var disableDates' disabled_dates_string="[" for i=1 to zaehlrekord disabled_dates_string=disabled_dates_string & """" & disabled_dates(i) & """," next disabled_dates_string=disabled_dates_string & "]" 'response.write "diasbaled dates:" & disabled_dates_string %> <% =title_text %>Reservation <% response.buffer = true %>

reservation

?lang=es&id=<% =id %>&#onres">picture ?lang=de&id=<% =id %>&#onres">picture ?lang=fr&id=<% =id %>&#onres">picture ?lang=en&id=<% =id %>&#onres">picture
<% if session("lang")="es" then %> picture <% end if %> <% if session("lang")="de" then %> picture <% end if %> <% if session("lang")="fr" then %> picture <% end if %> <% if session("lang")="en" then %> picture <% end if %>

<% =fields_required %>

<% =l_vorname %> :
<% Response.Cookies ("nombre").Expires = DATE + 2365 %>"/> <% =l_nachname %> <% Response.Cookies ("apellidos").Expires = DATE + 2365 %>"/> *
<% =sec_user_nationality %> :
<% ' generate categories list from database conn = strAdminProvider strSqlStmt2 = "select * FROM countries ORDER by countries_" & session("lang") & " ASC" 'response.write strSqlStmt2 Set rs2=Server.CreateObject("ADODB.Recordset") rs2.open strSqlStmt2, conn ' extract translated country name from table country (rs2) do until rs2.eof rs2.movenext loop %>
<% Response.Cookies ("email").Expires = DATE + 2365 %>" /> *
<% Response.Cookies ("phone").Expires = DATE + 2365 %>" />
<% =type_of_reservation %> :
<% ' name of databse for pulldown-menu pulldownselect="reservation_type" ' generate pulldown from the above table conn = StrAdminProvider strSqlStmt4 = "select * FROM " & pulldownselect & "" Set rs4=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt4 rs4.open strSqlStmt4, conn %> * <% if request.querystring("reservation")="missing" then response.write "Please indicate" end if %>
<% Response.Cookies ("diners").Expires = DATE + 2365 %>" /> <% if request.querystring("diners")="missing" then response.write "Please indicate" end if %> *
<% =l_fecha %> :
>

picture <% =date_enter_advise %>
<% if request.querystring("wrong_date")="wrong_date" then response.write date_correction end if %>
 

<% ' name of databse for pulldown-menu if request.querystring("lunchperiod")="yes" then pulldownselect="lunchtime" dataselect="dinnertime" else pulldownselect="dinnertime" dataselect="lunchtime" end if conn = StrAdminProvider ' gnerate the alternate times strSqlStmt4 = "select * FROM " & dataselect Set rs4=Server.CreateObject("ADODB.Recordset") rs4.open strSqlStmt4, conn dim times(), i redim times(10) i = 0 do until rs4.eof times(i) = rs4("eatingtime") if i = ubound(times) then redim Preserve times(ubound(times)+5) end if i = i + 1 rs4.movenext loop datatimes = "[""" & Join(times,""",""") & """]" rs4.close set rs4 = nothing ' generate pulldown from the above table strSqlStmt4 = "select * FROM " & pulldownselect & "" Set rs4=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt4 rs4.open strSqlStmt4, conn %> <% response.write essenszeit %> <% =uhrzeit %>      <% '=lunch_dinner_valentines %>

<% =how_did_you_find_us %> : <% ' name of databse for pulldown-menu pulldownselect="how_did_you_find_us" ' generate pulldown from the above table conn = StrAdminProvider strSqlStmt4 = "select * FROM " & pulldownselect & " ORDER BY id DESC" Set rs4=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt4 rs4.open strSqlStmt4, conn %>

 


INFORMACION SOBRE PROTECCION Y TRATAMIENTO DE DATOS PERSONALES: De acuerdo con lo dispuesto en la vigente normativa, le informamos de que los datos que usted pueda facilitarnos quedaran incluidos en un fichero del que es responsable <% =company_name %>, donde puede dirigirse para ejercitar sus derechos de acceso, rectificacion, oposicion o cancelacion de la informacion obrante en el mismo. La finalidad del mencionado fichero es la de poderle remitir informacion sobre novedades y ofertas que pudieran ser de su interes.

Ley de Proteccion de Datos de Caracter Personal 15/1999