Notifikationer

Markér alle som læst Log ud

riishoj Nybegynder

19. november 2002 - 22:44 Der er 10 kommentarer og
1 løsning

Hvem kan se fejlen?

Jeg har et skema, som jeg kan lægge opgaver ind på. På skemaet skal der være en rød bold, hvis der er en opgave knyttet til timen, og en grøn bold, hvis der ingen opgave er, men jeg kan ikke få det til at virke. Får 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

Linje 55 er set rs = Conn.Execute(strSQL)

Her er mit script

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




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

Response.Write ""
Response.Write uge
%>
</td>
</tr>
<tr>
<td width="14%" bgcolor="#669999"> </td>
<td width="18%" bgcolor="#669999">
Mandag</td>
<td width="18%" bgcolor="#669999">
Tirsdag</td>
<td width="18%" bgcolor="#669999">
Onsdag</td>
<td width="18%" bgcolor="#669999">
Torsdag</td>
<td width="18%" bgcolor="#669999">
Fredag</td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999">1. time</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"> <A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></td>
<td width="18%" height="40" bgcolor="#33CCCC"> <A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge=<%=uge%>'>matematik</A></td>
<td width="18%" height="40" bgcolor="#FF9999"> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00FFCC"> <A HREF='vis_opgave.asp?fag=engelsk&dag=torsdag&uge=<%=uge%>'>engelsk</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"> <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">2. time</td>
<td width="18%" height="40" bgcolor="#33CCCC"> <A HREF='vis_opgave.asp?fag=matematik&dag=mandag&uge=<%=uge%>'>matematik</A></td>
<td width="18%" height="40" bgcolor="#33CCCC"> <A HREF='vis_opgave.asp?fag=matematik&dag=tirsdag&uge=<%=uge%>'>matematik</A></td>
<td width="18%" height="40" bgcolor="#FF9999"> <A HREF='vis_opgave.asp?fag=dansk&dag=onsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#FF99CC"> <A HREF='vis_opgave.asp?fag=kristendom&dag=torsdag&uge=<%=uge%>'>kristendom</A></td>
<td width="18%" height="40" bgcolor="#00CCFF"> <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">3. time</td>
<td width="18%" height="40" bgcolor="#FFFFCC"> <A HREF='vis_opgave.asp?fag=idræt&dag=mandag&uge=<%=uge%>'>idræt</A></td>
<td width="18%" height="40" bgcolor="#FF9999"> <A HREF='vis_opgave.asp?fag=dansk&dag=tirsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"> <A HREF='vis_opgave.asp?fag=billedkunst&dag=onsdag&uge=<%=uge%>'>billedkunst</A></td>
<td width="18%" height="40" bgcolor="#FF9999"> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"> <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">4. time</td>
<td width="18%" height="40" bgcolor="#FFFFCC"> <A HREF='vis_opgave.asp?fag=idræt&dag=mandag&uge=<%=uge%>'>idræt</A></td>
<td width="18%" height="40" bgcolor="#FF9999"> <A HREF='vis_opgave.asp?fag=dansk&dag=tirsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"> <A HREF='vis_opgave.asp?fag=billedkunst&dag=onsdag&uge=<%=uge%>'>billedkunst</A></td>
<td width="18%" height="40" bgcolor="#FF9999"> <A HREF='vis_opgave.asp?fag=dansk&dag=torsdag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40" bgcolor="#00CC99"> <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">5. time</td>
<td width="18%" height="40" bgcolor="#FF9999"> <A HREF='vis_opgave.asp?fag=dansk&dag=mandag&uge=<%=uge%>'>dansk</A></td>
<td width="18%" height="40"> </td>
<td width="18%" height="40" bgcolor="#CCCC00"> <A HREF='vis_opgave.asp?fag=musik&dag=onsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#CCCC00"> <A HREF='vis_opgave.asp?fag=musik&dag=torsdag&uge=<%=uge%>'>musik</A></td>
<td width="18%" height="40" bgcolor="#00FFCC"> <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">6. time</td>
<td width="18%" height="40" bgcolor="#FF9999"> </td>
<td width="18%" height="40"> </td>
<td width="18%" height="40" bgcolor="#CCFF99"> <A HREF='vis_opgave.asp?fag=historie&dag=onsdag&uge=<%=uge%>'>historie</A></td>
<td width="18%" height="40"> </td>
<td width="18%" height="40"> </td>
</tr>
<tr>
<td width="14%" height="40" align="center" bgcolor="#669999">7. time</td>
<td width="18%" height="40"> </td>
<td width="18%" height="40"> </td>
<td width="18%" height="40"> </td>
<td width="18%" height="40"> </td>
<td width="18%" height="40"> </td>
</tr>
</table>
 
<%
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>"%> 
<a href="indsaet_opgave_form.asp">Indsæt opgave</a>
</body>
</html>

Synes godt om

nordclc Nybegynder

19. november 2002 - 22:46 #1

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

//CLC

Synes godt om

riishoj Nybegynder

19. november 2002 - 22:47 #2

Jeg har kun forsøgt at få det til at virke på 1. time mandag. Er godt klar over, at jeg skal have en SQL select til hver time på skemaet. Det kunne måske være lavet på en smartere måde?

Synes godt om

nordclc Nybegynder

19. november 2002 - 22:47 #3

Jeg går ud fra at mandag og matematik står med småt i databasen også!

Synes godt om

riishoj Nybegynder

19. november 2002 - 22:58 #4

Næ, mandag og matematik var med stort bg.bogstav, men det har jeg rettet. Får nu fejlen

fejl '80020009'
Undtagelse opstod.

/skoleskema2/skema.asp, linje 57

linje 57 er

If rs("opgave") = null Then

Synes godt om

nordclc Nybegynder

19. november 2002 - 23:03 #5

Prøv med:
Jeg formoder du ikke får nogen record retur, så kan du prøve med denne her:

if rs.EOF or rs.BOF then
' Hvis den ikke findes
else
' Hvis den findes
end if

Synes godt om

riishoj Nybegynder

19. november 2002 - 23:34 #6

Ja, det virker nu, bortset fra, at "bolden" som bliver indsat skubber alle cellerne en tand til højre. Hvordan får jeg indsat img scr=xxxball.gif uden at det sker

Synes godt om

riishoj Nybegynder

19. november 2002 - 23:45 #7

Hvordan kan det være, at skemaet som jo viser uge 47 når jeg åbner det, ikke vil vise, at der er en opgave til matematik om mandagen, før jeg kører det enten frem eller tilbage (uge 48 eller uge 46) og derefter tilbage til uge 47

Synes godt om

nordclc Nybegynder

19. november 2002 - 23:46 #8

Har du en url til siden, så jeg kan se hvad der sker?

Synes godt om

nordclc Nybegynder

19. november 2002 - 23:51 #9

Ahhhh, nu er det vist på tide at oprette et ekstra spørgsmål ;o)

Synes godt om

riishoj Nybegynder

20. november 2002 - 00:04 #10

Ja, det har du nok ret i. Tak for hjælpen:)

Synes godt om

nordclc Nybegynder

20. november 2002 - 00:10 #11

Tak selv, og tak for point'ne

//CLC

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS