No value given for one or more required parameters =
Inget värde är angett för en eller flera nödvändiga parametrar
Vid liknande fel skriv alltid ut frågan.
Response.write "Debug: "& strSQL
Response.end
Antagligen saknas veckan
Frågan#1
Hallå!
Nu var det dags att göra entré igen. Ett snabbt kik i "Kolla min hemsida" berättar att den nya versionen av uhamn.tk har kommit upp efter många om och men. Dock är det så att en av underavdelningarna på sidan buggar ganska rejält.
Avdelningen jag talar om är "Evenemang". (länk).
Koden som visar (skall visa) vad som händer i veckan ser ut som följer:
<%vecka = DatePart("WW", now(),vbMonday,vbFirstFourDays)
Set Databas = Server.CreateObject( "Adodb.Connection" )
Databas.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath( "../../db/evenemang.mdb" )
Databas.ConnectionString = "Data Source='" & MdbFilePath & "'"
Databas.open
strSQL = "SELECT * FROM handelser WHERE vecka = " & vecka & " AND dag = 1 ORDER BY ID DESC"
Set objRS = Databas.Execute(strSQL)
IF objRS.EOF THEN
response.write ""
ELSE response.write "<table border='0' border-color='#000000' width='100%'>"
response.write "<tr>"
response.write "<td width='100%' style='border-left-width: 0; border-right-width: 0; border-top-width: 0; border-bottom-style: dotted; border-bottom-width: 1px;'><b><center><font face='Tahoma' style='font-size: 8pt; color: #000000;'>MÅNDAG</font></center></b></td>"
response.write "</tr>"
response.write "</table>"
Do Until objRS.EOF
titel = (objRS("titel"))
pris = (objRS("pris"))
id = (objRS("id"))
response.write "<table border='0' border-color='#000000' width='100%'>"
response.write "<tr>"
response.write "<td width='80%' valign='top'><font face='Tahoma' style='font-size: 8pt'><a href='javascript:popup(""info.asp?id=" & id & """,420,250);' class=""bio""> " & titel & "</a></font></td>"
response.write "<td width='20%' valign='top'><font face='Tahoma' style='font-size: 8pt; align: right; color: #000000;'>Pris: " & pris & ",-</font></td>"
response.write "</tr>"
response.write "</table>"
objRS.MoveNext
Loop
Set objRS = Nothing
END IF
strSQL = "SELECT * FROM handelser WHERE vecka = " & vecka & " AND dag = 2 ORDER BY ID DESC"
Set objRS = Databas.Execute(strSQL)
IF objRS.EOF THEN
response.write ""
ELSE response.write "<table border='0' border-color='#000000' width='100%'>"
response.write "<tr>"
response.write "<td width='100%' style='border-left-width: 0; border-right-width: 0; border-top-width: 0; border-bottom-style: dotted; border-bottom-width: 1px;'><b><center><font face='Tahoma' style='font-size: 8pt; color: #000000;'>TISDAG</font></center></b></td>"
response.write "</tr>"
response.write "</table>"
Do Until objRS.EOF
titel = (objRS("titel"))
pris = (objRS("pris"))
id = (objRS("id"))
response.write "<table border='0' border-color='#000000' width='100%'>"
response.write "<tr>"
response.write "<td width='80%' valign='top'><font face='Tahoma' style='font-size: 8pt'><a href='javascript:popup(""info.asp?id=" & id & """420,250);' class=""bio""> " & titel & "</a></font></td>"
response.write "<td width='20%' valign='top'><font face='Tahoma' style='font-size: 8pt; align: right; color: #000000;'>Pris: " & pris & ",-</font></td>"
response.write "</tr>"
response.write "</table>"
objRS.MoveNext
Loop
Set objRS = Nothing
Och så fortsätter den med samma kodsnutt tills "vecka = " & vecka & " AND dag=7".
Rendera sidan några gånger så förstår ni snart problemet. För säkerhets skull lägger jag dock upp felmeddelandet här:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/uhamn/undersidor/evenemang/veckan.asp, line 285
Raden kan variera, men innehållet är det samma, bara olika dagars kodsnuttar. Kodraden:
Set objRS = Databas.Execute(strSQL)
Vad är det som är fel. Varför uppstår felet bara ibland?
Tack//
