Hmmm... fejl men hvorfor
Nogen der kan sige hvad fejlen er her...Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/Craig/IE/portal/Overskrift.Inc, line 16
---------------------------------------------------
Linie 16 er der hvor jeg exekvere min SQL...
linie 16: set HeadRS = cn.Execute(HeadSQL)
---------------------------------------------------
<%
Dim HeadSQL, HeadRS, Side
Side = Request.QueryString("side")
If Side <> "" Then
HeadSQL = "SELECT menu.[Menu ID], menu.[Navn], menu.[Side], menu.[Overskrift] FROM Menu WHERE (((Menu.Side)=" & Side & "));"
set HeadRS = cn.Execute(HeadSQL)
Do While not HeadRS.EOF
Response.write "<TD Width='348' Height='20' Class='IndholdBoxTD'> " & HeadRS("Overskrift") & "</TD>"
HeadRS.MoveNext
Loop
Else
Response.write "<TD Width='348' Height='20' Class='IndholdBoxTD'> Velkommen til IT-Links Portal</TD>"
End If
%>
