% 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 %>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 |