Jag har lagt in alla veckans dagar i en tabell... så när man publicerar den tabellen publicerar man menyn för hela veckan så att säga. (Jag tror ni fattar!)
Jag kör Access och undrar hur jag ska skriva för att endast aktuell vecka ska bli publicerad. Om dom glömmer att skriva in en ny vecka blir sidan blank, alltså, den ska inte fyllas i...
' ## SELECT THE SELECTED POST
SQL = "SELECT intID, strName, strRollOver, dteCreated, dteViewFrom, dteViewTo, intSortfield, bolView " _
& ", strPasta, strSallad, strVegetarian " _
& ", strMonday, bolMonday, strTuesday, bolTuesday, strWednesday, bolWednesday " _
& ", strThursday, bolThursday, strFriday, bolFriday, strSaturday, strSunday " _
& " FROM [menu] WHERE [b]dteCreated >= " & dateAdd("d", +7, date()) _
& " AND dteCreated < " & dateAdd("d", +7, date())[/b] _
& " AND bolView = TRUE ORDER BY dteCreated;"
Måste tyvärr återuppliva denna tråden. Det fungerar fortfarande inte... Det har kommit rapporter om att det inte har fungerat under hela veckan och jag förstår inte varför.
<!-- #INCLUDE VIRTUAL="/admin/open.asp" -->
<%
' ## SELECT THE SELECTED POST
SQL = "SELECT intID, strName, strRollOver, dteCreated, dteViewFrom, dteViewTo, intSortfield, bolView " _
& ", strPasta, strSallad, strVegetarian " _
& ", strMonday, bolMonday, strTuesday, bolTuesday, strWednesday, bolWednesday " _
& ", strThursday, bolThursday, strFriday, bolFriday, strSaturday, strSunday " _
& " FROM [menu] WHERE dteCreated >= #" & date() & "#" _
& " AND dteCreated < #" & dateAdd("d", +7, date()) & "#" _
& " AND bolView = TRUE ORDER BY dteCreated;"
'response.write sql
set mySQL = Conn.Execute(SQL)
'on error resume next
' ## ERRORHANDLING
' ## CHECK FOR FALSE ID, NOT IN THE DATABASE
IF NOT mySQL.EOF THEN
listSelectedPost = mySQL.GetRows()
ELSE
Conn.close
set Conn = nothing
' response.redirect "index.asp"
END IF
%>
<!-- #INCLUDE VIRTUAL="/admin/close.asp" -->
Felmeddelande:
Microsoft VBScript runtime error '800a01a8'