Avatar billede riishoj Nybegynder
20. november 2002 - 21:56 Der er 22 kommentarer og
1 løsning

Vise i tabellen at der findes en record i db'en

Jeg har lavet et skoleskema, hvor det er muligt at indtaste opgaver til de enkelte fag.
Jeg kunne godt tænke mig, at man på skemaet kan se, om der er lagt en opgave ind , altså om der findes en record i db'en. Det skulle så markeres med eks.vis en lille rød kugle, og hvis der ingenting er i db'en, så en lille grøn kugle.

I min db findes tabellerne uge, dag, fag og opgave.

Scriptet til mit skema ser sådan ud

<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>
   
 
    <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>
</html>
Avatar billede eagleeye Praktikant
21. november 2002 - 00:08 #1
Du kan tjekke med at lave en SQL som denne som finder alle opgaver i "uge" her antages det at uge i databasen er et tal:

SQL = "SELECT * FROM xxx WHERE uge = " & uge
Set rs = Conn.Execute(SQL)
if rs.EOF then
  'Ingen opgaver i denne uge

else
  'Der er opgaver i denne uge

end if



Du kan så udvide SQL hvis du vil havde fag og dag med:
fag = "Matematik"  'Eller fra en QueryString("fag")

SQL = "SELECT * FROM xxx WHERE uge = " & uge & " AND fag = '" & fag & "'"
Avatar billede riishoj Nybegynder
21. november 2002 - 00:13 #2
Jeg har prøvet noget lignende det du foreslår. Problemet er, at de dynamiske links, som før var i skemaet ikke virker, når jeg sætter SQL'en ind. Kan du se, hvad der er galt her.

<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.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>

   
   
    <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>
</html>
Avatar billede eagleeye Praktikant
21. november 2002 - 00:16 #3
Jeg ved ikek helt om det har noget at sige men der er kommet et mellemrum ind efter uge og før =

Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

Rettes til:
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=" & uge &"'>matematik</A></font></td>"


----
Eller når du hendter uge så ret det til at den også trimmer så mellemrum fjernes:

uge = Trim(Request.Querystring("uge"))
Avatar billede eagleeye Praktikant
21. november 2002 - 00:20 #4
du kan lave denne if:

if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if



Om til dette:


%>
<td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF">
<% if rs.EOF or rs.BOF then
    Response.Write "<img src=""redball.gif"">"
  Else
    Response.Write "<img src=""greenball.gif"">"
  End if  %>
<A HREF="vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>">matematik</A></font></td>
Avatar billede riishoj Nybegynder
21. november 2002 - 00:21 #5
Nej, det var ikke det der var galt. Det underlige er, at hvis jeg fjerner aspdelen, som indsætter redball.gif og greenball.gif, så virker de dynamiske links i html-tabellen fint.
Avatar billede eagleeye Praktikant
21. november 2002 - 00:25 #6
Det lyder underligt.. hvordan virker linket ikke?
Sker der ikke noget når du trykke eller en tom side?
Avatar billede riishoj Nybegynder
21. november 2002 - 00:31 #7
Linket på f.eks. mandag i 1. time viser

vis_opgave.asp?fag=matematik&dag=mandag&uge=

og ikke

vis_opgave.asp?fag=matematik&dag=mandag&uge=47  som det jo burde gøre
Avatar billede eagleeye Praktikant
21. november 2002 - 00:37 #8
Prøv at rette denne kode så den ikke hendter uge igen:

Jeg har prøvet noget lignende det du foreslår. Problemet er, at de dynamiske links, som før var i skemaet ikke virker, når jeg sætter SQL'en ind. Kan du se, hvad der er galt her.

<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")        '<-------- Udkommenter...

    strSQL = "SELECT opgave FROM skoleskema WHERE dag='Mandag' AND fag='Matematik' AND uge =  '" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>
Avatar billede eagleeye Praktikant
21. november 2002 - 00:38 #9
hmmm jeg prøver lige igen..

Prøv at udkommenterden linie som hendter uge sofr den har du fundet tidligere:

    <%
    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")        '<-------- Udkommenter...

    strSQL = "SELECT opgave FROM skoleskema WHERE dag='Mandag' AND fag='Matematik' AND uge =  '" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>
Avatar billede eagleeye Praktikant
21. november 2002 - 00:47 #10
Når du går ind på siden finder du ugen sådan her:

If Request.Querystring("uge") <> "" Then
      uge = Request.Querystring("uge")
    Else
      uge = DatePart("ww",date())
    End If


Hvis uge ikke er i QueryStringen bliver den over skrevet når du vil vise billedet ud fra en dag...:

uge = Request.Querystring("uge")  'hvis querystringen er tom bliver uge = ""
Avatar billede eagleeye Praktikant
21. november 2002 - 00:49 #11
Jeg er nød til at smutte i seng nu.. Jeg håber det gav lidt inspiration til at du kan komme vidre :)
Avatar billede riishoj Nybegynder
21. november 2002 - 00:57 #12
OK. Lige en oplysning som jeg håber vi kan bruge i morgen.

Når jeg har udkommenteret, så virker de dynamiske links igen, lige undtagen den time, hvor bolden bliver sat ind. Selv om der er en opgave til denne time (mandag-matematik) så finder den ikke opgaven i db'en. Og url'en er også underlig, nemlig

http://riishoj/skoleskema2/vis_opgave.asp?fag=matematik&dag=mandag&uge=%2047
Avatar billede riishoj Nybegynder
21. november 2002 - 09:31 #13
Når jeg skriver at url'en er underlig så er det selvfølgelig fordi at der burde stå



Søg 


Dine data
Brugernavn  riishoj
Point  425
Point ude  130
Placering  6.044
Spørgsmål data
Kategori  Programmering : Script : ASP
Point  100
Oprettet  20/11 2002
Tidspunkt  21:56:13
Funktioner
Kommenter / Svar
Afsæt flere point
Vis fuld skærm
Tip en ven
Anmeld misbrug
Translate this page
Skjulte indlæg
Bliv Eksperten Pro medlem  Du er her : Eksperten : Programmering : Script : ASP : Vise i tabellen at der findes en record i db'en :


Sidste nyt fra Eksperten : Mere Ram til serveren
For at gøre Eksperten hurtigere og mere stabil, har vi købt mere hukommelse til serveren. Dette vil betyde, at Eksperten ikke vil være tilgængelig i morgen onsdag mellem kl. 7.30 og 7.45.... læs mere



Vise i tabellen at der findes en record i db'en    100 point fra riishoj
Jeg har lavet et skoleskema, hvor det er muligt at indtaste opgaver til de enkelte fag.
Jeg kunne godt tænke mig, at man på skemaet kan se, om der er lagt en opgave ind , altså om der findes en record i db'en. Det skulle så markeres med eks.vis en lille rød kugle, og hvis der ingenting er i db'en, så en lille grøn kugle.

I min db findes tabellerne uge, dag, fag og opgave.

Scriptet til mit skema ser sådan ud

<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>
   
 
    <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>
</html> 
 
Kommentar: eagleeye
21/11-2002 00:08:16    Du kan tjekke med at lave en SQL som denne som finder alle opgaver i "uge" her antages det at uge i databasen er et tal:

SQL = "SELECT * FROM xxx WHERE uge = " & uge
Set rs = Conn.Execute(SQL)
if rs.EOF then
  'Ingen opgaver i denne uge

else
  'Der er opgaver i denne uge

end if



Du kan så udvide SQL hvis du vil havde fag og dag med:
fag = "Matematik"  'Eller fra en QueryString("fag")

SQL = "SELECT * FROM xxx WHERE uge = " & uge & " AND fag = '" & fag & "'"
 

 
Kommentar: riishoj
21/11-2002 00:13:40    Jeg har prøvet noget lignende det du foreslår. Problemet er, at de dynamiske links, som før var i skemaet ikke virker, når jeg sætter SQL'en ind. Kan du se, hvad der er galt her.

<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.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>

   
   
    <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>
</html>
 

 
Kommentar: eagleeye
21/11-2002 00:16:27    Jeg ved ikek helt om det har noget at sige men der er kommet et mellemrum ind efter uge og før =

Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

Rettes til:
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=" & uge &"'>matematik</A></font></td>"


----
Eller når du hendter uge så ret det til at den også trimmer så mellemrum fjernes:

uge = Trim(Request.Querystring("uge"))
 

 
Kommentar: eagleeye
21/11-2002 00:20:20    du kan lave denne if:

if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if



Om til dette:


%>
<td width="18%" height="40" bgcolor="#33CCCC"><font color="#FFFFFF">
<% if rs.EOF or rs.BOF then
    Response.Write "<img src=""redball.gif"">"
  Else
    Response.Write "<img src=""greenball.gif"">"
  End if  %>
<A HREF="vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>">matematik</A></font></td>
 

 
Kommentar: riishoj
21/11-2002 00:21:52    Nej, det var ikke det der var galt. Det underlige er, at hvis jeg fjerner aspdelen, som indsætter redball.gif og greenball.gif, så virker de dynamiske links i html-tabellen fint.
 

 
Kommentar: eagleeye
21/11-2002 00:25:41    Det lyder underligt.. hvordan virker linket ikke?
Sker der ikke noget når du trykke eller en tom side?
 

 
Kommentar: riishoj
21/11-2002 00:31:34    Linket på f.eks. mandag i 1. time viser

vis_opgave.asp?fag=matematik&dag=mandag&uge=

og ikke

vis_opgave.asp?fag=matematik&dag=mandag&uge=47  som det jo burde gøre
 

 
Kommentar: eagleeye
21/11-2002 00:37:56    Prøv at rette denne kode så den ikke hendter uge igen:

Jeg har prøvet noget lignende det du foreslår. Problemet er, at de dynamiske links, som før var i skemaet ikke virker, når jeg sætter SQL'en ind. Kan du se, hvad der er galt her.

<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")        '<-------- Udkommenter...

    strSQL = "SELECT opgave FROM skoleskema WHERE dag='Mandag' AND fag='Matematik' AND uge =  '" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>
 

 
Kommentar: eagleeye
21/11-2002 00:38:57    hmmm jeg prøver lige igen..

Prøv at udkommenterden linie som hendter uge sofr den har du fundet tidligere:

    <%
    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")        '<-------- Udkommenter...

    strSQL = "SELECT opgave FROM skoleskema WHERE dag='Mandag' AND fag='Matematik' AND uge =  '" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>
 

 
Kommentar: eagleeye
21/11-2002 00:47:41    Når du går ind på siden finder du ugen sådan her:

If Request.Querystring("uge") <> "" Then
      uge = Request.Querystring("uge")
    Else
      uge = DatePart("ww",date())
    End If


Hvis uge ikke er i QueryStringen bliver den over skrevet når du vil vise billedet ud fra en dag...:

uge = Request.Querystring("uge")  'hvis querystringen er tom bliver uge = ""
 

 
Kommentar: eagleeye
21/11-2002 00:49:17    Jeg er nød til at smutte i seng nu.. Jeg håber det gav lidt inspiration til at du kan komme vidre :)
 

 
Kommentar: riishoj
21/11-2002 00:57:05    OK. Lige en oplysning som jeg håber vi kan bruge i morgen.


http://riishoj/skoleskema2/vis_opgave.aspfag=matematik&dag=mandag&uge=47
Avatar billede riishoj Nybegynder
21. november 2002 - 09:39 #14
Nu gik der da fuldstændig kuk i det. Det jeg mente var at url'en gerne skulle se sådan ud.

http://riishoj/skoleskema2/vis_opgave.aspfag=matematik&dag=mandag&uge=47
Avatar billede eagleeye Praktikant
21. november 2002 - 17:01 #15
Det jeg mener er prøv at lave disse linier:

    <%
    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.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>


Om til:

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

    strSQL = "SELECT opgave FROM skoleskema WHERE dag='Mandag' AND fag='Matematik' AND uge =  '" & uge & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

    rs.MoveNext
   
    End if
  Conn.Close
%>
Avatar billede riishoj Nybegynder
21. november 2002 - 18:53 #16
Jeg er vist et besværligt tilfælde. Selv om der er en opgave i db'en til matematik, mandag, så bliver den ikke hentet selv om linket ser rigtigt nok ud. Desuden vises den underlige url, når siden med "der er ingen opgaver" vises. Altså

http://riishoj/skoleskema2/vis_opgave.asp?fag=matematik&dag=mandag&uge=%2047
Avatar billede riishoj Nybegynder
21. november 2002 - 18:55 #17
Hvis jeg går i url'en og retter uge=%2047 til uge=47 bliver opgaven godt nok indlæst. Hvor kommer %2047 fra?
Avatar billede eagleeye Praktikant
21. november 2002 - 19:13 #18
Grunden til %20 er fordi der er mellemrum mellem uge=  og " i linket.

Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge= " & uge & "'>matematik</A></font></td>"

Rettes til:

Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=" & uge & "'>matematik</A></font></td>"
Avatar billede eagleeye Praktikant
21. november 2002 - 19:13 #19
det skal så gøres flere steder.
Avatar billede riishoj Nybegynder
21. november 2002 - 19:24 #20
Nu virker det som det skal. Eagleeye, du er simpelthen genial til det her. Og det er jo ikke første gang at du har løst et problem for mig. Ikke for at være grådig, men kan du umiddelbart se en anden mulighed end at gentage db conn. og SQL for hver time i skemaet?
Avatar billede eagleeye Praktikant
21. november 2002 - 19:31 #21
du kan ligge dette op i staten af din fil:

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


..... kode ....

'Her skal linkt for mandag vises


  strSQL = "SELECT opgave FROM skoleskema WHERE dag='Mandag' AND fag='Matematik' AND uge =  '" & uge & "'"
  set rs = Conn.Execute(strSQL)
  if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=" & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=" & uge & "'>matematik</A></font></td>"

  End if
%>

..kode..

'Her skal linkt for tisdag vises:

  strSQL = "SELECT opgave FROM skoleskema WHERE dag='Tirsdag' AND fag='Matematik' AND uge =  '" & uge & "'"
  set rs = Conn.Execute(strSQL)
  if rs.EOF or rs.BOF then
Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='redball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge=" & uge &"'>matematik</A></font></td>"

  Else

    Response.Write"<td width=18% height=40 bgcolor=#33CCCC><font color=#FFFFFF><img src='greenball.gif'><A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge=" & uge & "'>matematik</A></font></td>"

  End if
%>


.... osv ...


og så huske at lukke for connection:

Conn.Close
Avatar billede riishoj Nybegynder
21. november 2002 - 19:43 #22
OK forstået. Endnu en gang tak for hjælpen. Verden ville ikke være den samme uden Eksperten. Send lige et svar, så du kan få dine velfortjente point:)
Avatar billede eagleeye Praktikant
21. november 2002 - 19:57 #23
Ok her et svar :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester