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>  <%
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"> </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 --> <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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft --> <A HREF='vis_opgave.asp?fag=engelsk&dag=torsdag&uge=<%=uge%>'>engelsk</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft --> <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 --> <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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#FF99CC"><!-- Luft --> <A HREF='vis_opgave.asp?fag=kristendom&dag=torsdag&uge=<%=uge%>'>kristendom</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft --> <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 --> <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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"><!-- Luft --> <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 --> <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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"><!-- Luft --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=mandag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft --> <A HREF='vis_opgave.asp?fag=musik&dag=onsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft --> <A HREF='vis_opgave.asp?fag=musik&dag=torsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft --> <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 --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40" bgcolor="#CCFF99"><!-- Luft --> <A HREF='vis_opgave.asp?fag=historie&dag=onsdag&uge=<%=uge%>'>historie</A></td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </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 --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </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< ></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>  <%
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"> </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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft --> <A HREF='vis_opgave.asp?fag=engelsk&dag=torsdag&uge=<%=uge%>'>engelsk</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft --> <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 --> <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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></font></td>
<td width="18%" height="40" bgcolor="#FF99CC"><!-- Luft --> <A HREF='vis_opgave.asp?fag=kristendom&dag=torsdag&uge=<%=uge%>'>kristendom</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"><!-- Luft --> <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 --> <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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"><!-- Luft --> <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 --> <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 --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"><!-- Luft --> <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 --> <A HREF='vis_opgave.asp?fag=dansk&dag=mandag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft --> <A HREF='vis_opgave.asp?fag=musik&dag=onsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#CCCC00"><!-- Luft --> <A HREF='vis_opgave.asp?fag=musik&dag=torsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#00FFCC"><!-- Luft --> <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 --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40" bgcolor="#CCFF99"><!-- Luft --> <A HREF='vis_opgave.asp?fag=historie&dag=onsdag&uge=<%=uge%>'>historie</A></td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </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 --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </td>
<td width="18%" height="40"><!-- Luft --> </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< ></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>  <%
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"> </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