Vise dagens emne fra database..

Set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DRIVER={Microsoft Access Driver *.mdb)};DBQ=\" & server.mappath(\"temp.mdb\")
set rs = Conn.Execute(\"SELECT * FROM UName\")

response.write rs(\"felt\")

Håber det kan bruges

Kedde

Jeg kan ikke rigtig se hvor du får datoen fra ?
Såvidt jeg kan se så er der ikke nogen steder hvor du finder datoen for i dag ?

hvis du har access så kan du bruge sådan noget her:

strSQL = \"SELECT * FROM tabel WHERE dato=#\"&date()&\"#;\"
set rs = Conn.Execute(strSQL)

if not (rs.BOF and rs.EOF) then
  tema = rs(\"felt\")
else
  tema = \"default tema eller ingenting\"
end if

Ja jeg ved det, jeg er dum, men jeg kan altså ikke finde ud af det, jeg prøver godtnok, men på et tidspunkt så bliver der sku formeget :)

Hvordan gør jeg nu ??

<%
    Set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"DRIVER={Microsoft Access Driver *.mdb)};DBQ=\" & server.mappath(\"../../fpdb/test.mdb\")


    strSQL = \"SELECT * FROM tabel WHERE dato=#\"&date()&\"#;\"
    set rs = Conn.Execute(strSQL)

    if not (rs.BOF and rs.EOF) then
      tema = rs(\"felt\")
    else
      tema = \"default tema eller ingenting\"
    end if
%>

<HTML>
<HEAD>
  <LINK href=\"../../css/style.css\" rel=\"stylesheet\" type=\"text/css\">
  <TITLE>Kalender <%=now%> </TITLE>
</HEAD>
<BODY>
<%response.write rs(\"felt\")%>
</BODY>
</HTML>

Får du en fejl eller? for der ser da udemærket ud du bør nok lige havde hvade conn.close med, også udskrive tema istedet for rs(\"felt\"):


<%
    Set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"DRIVER={Microsoft Access Driver *.mdb)};DBQ=\" & server.mappath(\"../../fpdb/test.mdb\")


    strSQL = \"SELECT * FROM tabel WHERE dato=#\"&date()&\"#;\"
    set rs = Conn.Execute(strSQL)

    if not (rs.BOF and rs.EOF) then
      tema = rs(\"felt\")
    else
      tema = \"\"
    end if
%>

<HTML>
<HEAD>
  <LINK href=\"../../css/style.css\" rel=\"stylesheet\" type=\"text/css\">
  <TITLE>Kalender <%=now%> </TITLE>
</HEAD>
<BODY>
<%response.write tema%>
</BODY>
</HTML>
<% conn.close %>

Selve databasens start tabel heder \"CalendarInfo\" derunder er der 2 fælter \"date\" og \"memo\" date er den dato hvor der skal vises det sok står i memo.

her er siden med fejlen
http://www.mor-far.dk/blandet/kalender/forside2.asp


<%
    Set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"DRIVER={Microsoft Access Driver *.mdb)};DBQ=\" & server.mappath(\"../../fpdb/test.mdb\")
   
    strSQL = \"Select * FROM CalendarInfo WHERE dato=#\"&date()&\"#;\"
    set rs = Conn.Execute(strSQL)

    if not (rs.BOF and rs.EOF) then
      tema = rs(\"memo\")
    else
      tema = \"\"
    end if
%>

<HTML>
<HEAD>
  <LINK href=\"../../css/style.css\" rel=\"stylesheet\" type=\"text/css\">
  <TITLE>Kalender <%=now%> </TITLE>
</HEAD>
<BODY>
<%response.write tema%>
</BODY>
</HTML>
<% conn.close %>

så skal der i SQL\'en stå date og ikke dato:


strSQL = \"Select * FROM CalendarInfo WHERE [date]=#\"&date()&\"#;\"

Hmm det er bare for mystisk, har du ICQ det er lidt nemmere end det her.
3464929

Har øget til 60 da det åbenbart ikke var et mellem SPM :)

Ja men jeg har ikke ICQ liger her..

Er stien ti databasen rigtig?

DBQ=\" & server.mappath(\"../../fpdb/test.mdb\")

HA nu virker det, tak for hjælper..

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"../../fpdb/test.mdb\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
   
    strSQL = \"Select * FROM CalendarInfo WHERE [date]=#\"&date()&\"#;\"
    set rs = Conn.Execute(strSQL)

    if not (rs.BOF and rs.EOF) then
      tema = rs(\"memo\")
    else
      tema = \"\"
    end if
%>

<HTML>
<HEAD>
  <LINK href=\"../../css/style.css\" rel=\"stylesheet\" type=\"text/css\">
  <TITLE>Kalender <%=now%> </TITLE>
</HEAD>
<BODY>
<%response.write \"<PRE>\" & tema &\"</PRE>\"%>


</BODY>
</HTML>
<% conn.close %>