Se om der er knyttet en opgave til timen

kombinere hvilke to ting?

Ja, min SQL Select med siden med skoleskemaet, så jeg får indsat et lille billede redball.gif i cellen, hvis der er en opgave tilknyttet timen i db'en og greenball.gif, hvis der ingen opgave er til timen.

såvidt jeg lige kan se er der ingen steder hvor du spørger til om der er nogle lektier

Prøver lige at forklare:

På siden skema.asp er der et link "indsæt opgave" som via indsaet_opgave indsætter følgende i db'en: uge, dag, fag og opgave.
Via linkene på fagene på skoleskemaet kaldes opgaverne ved hjælp af vis.asp. So far so good. Det jeg nu gerne vil have, er at jeg kan se på siden skema.asp om der er tilknyttet en opgave til faget den pågældende dag og time. Det skulle så markeres med en rød kugle, hvis der er en opgave og en grøn kugle, hvis recordsettet er tomt.
Håber at det er til at forstå nu?

hvorledes ligger lektierne lagret i databasen

Er jeg helt forkert på den om man bare kan spørge til om der et indhold i kolonnen opgave for de enkelte dage og fag

hvis der er noget i feltet er der lektier for hvis ikke ingen lektier? - er det korrekt

uge, dag, fag og opgave

Ja, det er korrekt!

har du et link til siden?

Og så er det er der skal indsættes en rød kugle, hvis der er en opgave, og en grøn kugle, hvis der ingen opgave er.

Mener du et link til en www.url? Nej, det hele ligger på min pc.

Jeg kan vise dig indsaet_opgave.asp og vis_opgave.asp, hvis det er nogen hjælp?

OK....

Det må være noget i stil med:

strSQL = "SELECT opgave FROM skoleskema WHERE (og så alle dine kriterer)"
set rs = Conn.Execute(strSQL)

if rs("opgave") = null then
  response.write("<img src="redball.gif">")
else
  response.write("<img src="greemball.gif">")
end if

efter hvad jeg lige kan se bliver skemaet ikke genereret ud fra DB men er fastlagt på forhånd af dig?

kan det bruges?

Ja, det er rigtigt. Skemaet er det samme hele året igennem, så det er kun ugenummeret, som ændrer sig. Skemaet er en alm. html-tabel.

Jeg tror, at du er inde på noget af det rigtige. Prøver lige at teste det. Hvis det virker få du lige en hurtigt besked. Hvis ikke bliver jeg nødt til at vente til i morgen med at fortsætte. Er det ok?

jeps......

Jeg tror det virker. Jeg kan bare ikke finde ud af at putte det du foreslår ind i tabellen. Hvad gør jeg i eksemplet her, som er cellen med 1. time (matematik) om mandagen?

<td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>

Det bliver lidt omstændigt fordi det er defineret autonomt og ikke ud fra databasen.

Du bliver nødt til at lave en masse SQL-sætninger, der hver især spørger til det enkelte fag den enkelte dag og så lade ugen være en variabel.

Du kan så oprette en boolean variabel der eks. hedder matmandag og så gemmen resultatet af den SQL i det (true/false)

SQL for matmandag skal være som følger.

strSQL = "SELECT opgave FROM skoleskema WHERE dag=mandag AND fag=matematik"
set rs = Conn.Execute(strSQL)

if rs("opgave") = null then
  <td><img src="redball.gif"></td>
else
  <td><img src="greenball.gif"></td>
end if
<td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>

Det skulle gøre det :-).... du skal lige være opmærksom på at jeg har placeres ball.gif i en kolonne for sig således at det ikke smadrer hele dig design...

Den sætning med boolean variablen skal du lige se bort fra!!! det er 3. afsnit :-)

Det virker desværre ikke. Det tætteste jeg kan komme på en løsning er med dette her

<%
    strSQL = "SELECT opgave FROM skoleskema WHERE dag=mandag AND fag=matematik"
set rs = Conn.Execute(strSQL)

if rs("opgave") = null then
Response.Write"<td><img src="redball.gif"></td>"
else
  Response.Write"<td><img src="greenball.gif"></td>"
end if
%>
    <td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>

men det giver fejlen

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0401'

Slut på sætning var ventet

/skoleskema2/skema.asp, linje 49

Response.Write"<td><img src="redball.gif"></td>"
-----------------------------^

Skal variablen & uge & ikke med i SQL-sætningen?

jo selvfølgelig :-) og så skal " rettes til ' under response.write hvis du vil bruge dem....

<%
    strSQL = "SELECT opgave FROM skoleskema WHERE dag=mandag AND fag=matematik"
set rs = Conn.Execute(strSQL)

if rs("opgave") = null then
Response.Write("<td><img src='redball.gif'></td>")
else
  Response.Write("<td><img src='greenball.gif'></td>")
end if
%>
    <td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>


nu burde det virke :-)

jo selvfølgelig :-) og så skal " rettes til ' under response.write hvis du vil bruge dem....

<%
    strSQL = "SELECT opgave FROM skoleskema WHERE dag=mandag AND fag=matematik AND uge = '"& uge &"'"
set rs = Conn.Execute(strSQL)

if rs("opgave") = null then
Response.Write("<td><img src='redball.gif'></td>")
else
  Response.Write("<td><img src='greenball.gif'></td>")
end if
%>
    <td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>


nu burde det virke :-)

Desværre virker ikke! Får fejlen

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'
Et objekt er obligatorisk: ''

/skoleskema2/skema.asp, linje 48

når det ser sådan her ud

<%
    uge = Request.Querystring("uge")

    strSQL = "SELECT opgave FROM skoleskema WHERE dag=mandag AND fag=matematik AND uge = '" & uge & "'"
set rs = Conn.Execute(strSQL)

if rs("opgave") = null then
Response.Write"<td><img src='redball.gif'></td>"
else
  Response.Write"<td><img src='greenball.gif'></td>"
end if
%>

Linje 48 er

set rs = Conn.Execute(strSQL)

Jeg prøver lige at smide hele scriptet op som det ser ud nu. Jeg har rettet en fejl i db connection, men det virker stadig ikke. Nu får jeg fejlen

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e10'
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 2.

/skoleskema2/skema.asp, linje 55


<html>

<head>
<title>Skema</title>
</head>

<body>

<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolor="#0000FF" bordercolorlight="#0000FF" bordercolordark="#FFFFFF">
  <tr>
    <td width="125%" colspan="6" bgcolor="#669999">
      <p align="center">
     
<font color="#FFFFFF" face="Verdana" size="5">
     
Uge</font>&nbsp <%
If Request.Querystring("uge") <> "" Then
      uge = Request.Querystring("uge")
    Else
      uge = DatePart("ww",date())
    End If
   
    Response.Write "<font color=white face=verdana size=5>"
    Response.Write uge
    %>
</td>
  </tr>
  <tr>
    <td width="14%" bgcolor="#669999">&nbsp;</td>
    <td width="18%" bgcolor="#669999">
      <p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Mandag</b></font></td>
    <td width="18%" bgcolor="#669999">
      <p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Tirsdag</b></font></td>
    <td width="18%" bgcolor="#669999">
      <p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Onsdag</b></font></td>
    <td width="18%" bgcolor="#669999">
      <p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Torsdag</b></font></td>
    <td width="18%" bgcolor="#669999">
      <p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b>Fredag</b></font></td>
  </tr>
  <tr>
    <td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">1. time</font></td>
   
    <%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath ("/skoleskema2/skema.mdb")
    Conn.Open DSN

    fag = Request.Querystring("fag")
    dag = Request.Querystring("dag")
    uge = Request.Querystring("uge")

    strSQL = "SELECT opgave FROM skoleskema WHERE dag=mandag AND fag=matematik AND uge = '" & uge & "'"
set rs = Conn.Execute(strSQL)

if rs("opgave") = null then
Response.Write"<td><img src='redball.gif'></td>"
else
  Response.Write"<td><img src='greenball.gif'></td>"
end if
%>
    <td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>
    <td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge=<%=uge%>'>matematik</A></font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
    <td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=engelsk&dag=torsdag&uge=<%=uge%>'>engelsk</A></td>
    <td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=natur/teknik&dag=fredag&uge=<%=uge%>'>natur/teknik</A></td>
  </tr>
  <tr>
    <td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">2. time</font></td>
    <td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></font></td>
    <td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge=<%=uge%>'>matematik</A></font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
    <td width="18%" height="40" bgcolor="#FF99CC"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=kristendom&dag=torsdag&uge=<%=uge%>'>kristendom</A></td>
    <td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=natur/teknik&dag=fredag&uge=<%=uge%>'>natur/teknik</A></td>
  </tr>
  <tr>
    <td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">3. time</font></td>
    <td width="18%" height="40" bgcolor="#FFFFCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=idræt&dag=mandag&uge=<%=uge%>'>idræt</A></font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=dansk&dag=tirsdag&uge=<%=uge%>'>dansk</A></font></td>
    <td width="18%" height="40" bgcolor="#00CC99"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=billedkunst&dag=onsdag&uge=<%=uge%>'>billedkunst</A></font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
    <td width="18%" height="40" bgcolor="#00CC99"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=håndarbejde&dag=fredag&uge=<%=uge%>'>håndarbejde</A></td>
  </tr>
  <tr>
    <td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">4. time</font></td>
    <td width="18%" height="40" bgcolor="#FFFFCC"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=idræt&dag=mandag&uge=<%=uge%>'>idræt</A></font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><font color="#FFFFFF"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=dansk&dag=tirsdag&uge=<%=uge%>'>dansk</A></font></td>
    <td width="18%" height="40" bgcolor="#00CC99"><font color="#FFFFFF"><!-- Luft --> <A HREF='vis_opgave.asp?fag=billedkunst&dag=onsdag&uge=<%=uge%>'>billedkunst</A></font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
    <td width="18%" height="40" bgcolor="#00CC99"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=håndarbejde&dag=fredag&uge=<%=uge%>'>håndarbejde</A></td>
  </tr>
  <tr>
    <td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">5. time</font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=dansk&dag=mandag&uge=<%=uge%>'>dansk</A></td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=musik&dag=onsdag&uge=<%=uge%>'>musik</A></td>
    <td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=musik&dag=torsdag&uge=<%=uge%>'>musik</A></td>
    <td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=engelsk&dag=fredag&uge=<%=uge%>'>engelsk</A></td>
  </tr>
  <tr>
    <td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">6. time</font></td>
    <td width="18%" height="40" bgcolor="#FF9999"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40" bgcolor="#CCFF99"><!-- Luft -->&nbsp;<A HREF='vis_opgave.asp?fag=historie&dag=onsdag&uge=<%=uge%>'>historie</A></td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
  </tr>
  <tr>
    <td width="14%" height="40" align="center" bgcolor="#669999"><font face="Verdana" size="2" color="#FFFFFF">7. time</font></td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
    <td width="18%" height="40"><!-- Luft -->&nbsp;</td>
  </tr>
  </table>
  <br>
  <%
If request.querystring("uge") <> "" Then
  uge = request.querystring("uge")
Else
  uge = DatePart("ww",date())
End If
fuge = uge - 1
If fuge < 1 then
  fuge = 52
End If
Response.Write"<A HREF='skema.asp?uge=" & fuge & "'>Forrige uge<&nbsp></A>"


If request.querystring("uge") <> "" Then
  uge = request.querystring("uge")
Else
  uge = DatePart("ww",date())
End If
nuge = uge + 1
If nuge > 52 then
  nuge = 1
End If
Response.Write"<A HREF='skema.asp?uge=" & nuge & "'>Næste uge</A>"%><br>
<p><a href="indsaet_opgave_form.asp">Indsæt opgave</a></p>
</body>

kovalt>er du med endnu?

Lukker spørgsmålet