Fejl i script med sql
<%if request.querystring("holdid") <> "" then
'**** DEBUG
' url1 = "http://localhost/dds/udviklingssted/holdlisten.asp"
'**** REAL
url1 = "http://www.dedansendestjerner.dk/holdlisten.asp"
' Holdet
dburl = server.mappath("db/DDS.mdb")
Set con = Server.CreateObject("ADODB.Connection")
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dburl
con.Open
'******** FIND MEDLEMMER TIL HOLDET
strSQL = "SELECT * FROM tblMedlemsregister WHERE [Holdnummer] LIKE '%" & request.querystring("holdid") & "%' ORDER BY Navn"
Set rs=con.execute(strSQL)
IF NOT rs.EOF OR NOT rs.BOF THEN
arrkursister=rs.getrows()
antalkursister=ubound(arrkursister,2)
else
antalkursister = -1
end if
'********
'******** FIND
rs.close
con.close
Response.Write("<!-- " & vbcrlf)
Response.Write(" 1 ) Reference to the files containing the javascript. " & vbcrlf)
Response.Write(" These files must be located on your server. " & vbcrlf)
Response.Write("-->" & vbcrlf)
Response.Write("<script type=""text/javascript"" src=""scripts/highslide/highslide.js""></script>" & vbcrlf)
Response.Write("<script type=""text/javascript"" src=""scripts/highslide/highslide-html.js""></script>" & vbcrlf)
Response.Write("<!-- " & vbcrlf)
Response.Write(" 2) Optionally override the settings defined at the top" & vbcrlf)
Response.Write(" of the highslide.js file. The parameter hs.graphicsDir is important!" & vbcrlf)
Response.Write("-->" & vbcrlf)
Response.Write("<script type=""text/javascript""> " & vbcrlf)
Response.Write(" hs.graphicsDir = 'scripts/highslide/graphics/';" & vbcrlf)
Response.Write(" hs.outlineType = 'rounded-white';" & vbcrlf)
Response.Write(" hs.outlineWhileAnimating = true;" & vbcrlf)
Response.Write(" hs.objectLoadTime = 'after';" & vbcrlf)
Response.Write("</script>" & vbcrlf)
Response.Write("<!-- " & vbcrlf)
Response.Write(" 3) These CSS-styles are necessary for the script to work. You may also put" & vbcrlf)
Response.Write(" them in an external CSS-file. See the webpage for documentation." & vbcrlf)
Response.Write("-->" & vbcrlf)
Response.Write("<style type=""text/css"">" & vbcrlf)
Response.Write("* {" & vbcrlf)
Response.Write(" font-family: Verdana, Helvetica;" & vbcrlf)
Response.Write(" font-size: 9pt;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-html {" & vbcrlf)
Response.Write(" background-color: white;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-html-content {" & vbcrlf)
Response.Write(" position: absolute;" & vbcrlf)
Response.Write(" display: none;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-loading {" & vbcrlf)
Response.Write(" display: block;" & vbcrlf)
Response.Write(" color: black;" & vbcrlf)
Response.Write(" font-size: 8pt;" & vbcrlf)
Response.Write(" font-family: sans-serif;" & vbcrlf)
Response.Write(" font-weight: bold;" & vbcrlf)
Response.Write(" text-decoration: none;" & vbcrlf)
Response.Write(" padding: 2px;" & vbcrlf)
Response.Write(" border: 1px solid black;" & vbcrlf)
Response.Write(" background-color: white;" & vbcrlf)
Response.Write(" " & vbcrlf)
Response.Write(" /*padding-left: 22px;" & vbcrlf)
Response.Write(" background-image: url(scripts/highslide/graphics/loader.white.gif);" & vbcrlf)
Response.Write(" background-repeat: no-repeat;" & vbcrlf)
Response.Write(" background-position: 3px 1px;*/ " & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".control {" & vbcrlf)
Response.Write(" float: right;" & vbcrlf)
Response.Write(" display: block;" & vbcrlf)
Response.Write(" /*position: relative;*/" & vbcrlf)
Response.Write(" margin: 0 5px;" & vbcrlf)
Response.Write(" font-size: 9pt;" & vbcrlf)
Response.Write(" font-weight: bold;" & vbcrlf)
Response.Write(" text-decoration: none;" & vbcrlf)
Response.Write(" text-transform: uppercase;" & vbcrlf)
Response.Write(" color: #999;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".control:hover {" & vbcrlf)
Response.Write(" color: black !important;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-move {" & vbcrlf)
Response.Write(" cursor: move;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-display-block {" & vbcrlf)
Response.Write(" display: block;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write(".highslide-display-none {" & vbcrlf)
Response.Write(" display: none;" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write("</style>" & vbcrlf)
Response.Write("<body topmargin=""0"" leftmargin=""0"" style=""border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"">")
Response.Write("<p><b>HOLD " & request("holdid") & "</b></p>" & vbcrlf)
if antalkursister >= 0 then
response.write("<a href=""printholdlisten.asp?holdid=" & request.querystring("holdid") & """ target=""_blank""><img border='0' src='themes/theme/images/print.gif' width='25' height='22' align='middle'></a>")
Response.Write("<table border='1' align='center' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber1'>" & vbcrlf)
Response.Write(" <tr>" & vbcrlf)
Response.Write(" <td width='22%'><b>Navn</b></td>" & vbcrlf)
Response.Write(" <td width='9%' align='center'><b>Telefon</b></td>" & vbcrlf)
Response.Write(" <td width='11%' align='center'><b>Mobil</b></td>" & vbcrlf)
Response.Write(" <td width='14%' align='center'><b>Fødselsdato</b></td>" & vbcrlf)
Response.Write(" <td width='14%'> </td>" & vbcrlf)
Response.Write(" </tr>" & vbcrlf)
for x = 0 to antalkursister
Response.Write(" <tr>" & vbcrlf)
Response.Write(" <td width='22%'>" & arrkursister(0,x) & "</td>" & vbcrlf)
Response.Write(" <td width='9%' align='center'>" & arrkursister(1,x) & "</td>" & vbcrlf)
Response.Write(" <td width='11%' align='center'>" & arrkursister(2,x) & "</td>" & vbcrlf)
Response.Write(" <td width='14%' align='center'>" & arrkursister(3,x) & "</td>" & vbcrlf)
Response.Write(" <td width='14%' align='center'>" & vbcrlf)
if arrkursister(5,x) = "FLYT" or arrkursister(5,x) = "NYE DATA" then
Response.write("<center><b>Afventer svar</center></b>" & vbcrlf)
else
Response.Write("<a href=""http://dedansendestjerner.dk/kursistflyt.asp?id=" & arrkursister(4,x) & "&holdet=" & request("holdid") & """ onclick=""return hs.htmlExpand(this, { contentId: 'highslide-html', objectType: 'iframe', objectWidth: 300, objectHeight: 300} )"" class=""highslide""><img border='0' src='themes/theme/images/holdlister/Replace.gif' width='25' height='25' alt='Overflyt medlem'></a><a href=""http://dedansendestjerner.dk/kursistdata.asp?id=" & arrkursister(4,x) & "&holdet=" & request("holdid") & """ onclick=""return hs.htmlExpand(this, { contentId: 'highslide-html', objectType: 'iframe', objectWidth: 500, objectHeight: 300} )"" class=""highslide""><img border='0' src='themes/theme/images/holdlister/edit.gif' width='25' height='25' alt='Ændring af kursistdata'></a></td>" & vbcrlf)
'<img border='0' src='themes/theme/images/holdlister/Replace.gif' width='25' height='25' alt='Anmodning om holdflytning'>
end if
Response.Write(" </tr>" & vbcrlf)
next
Response.Write("</table>")
else
Response.Write("<center><b>Aktuelt ingen kursister her</b></center>")
end if
Response.Write("<div class=""highslide-html-content"" id=""highslide-html"" style=""width: 300px"">" & vbcrlf)
Response.Write(" <div class=""highslide-move"" style=""border: 0; height: 18px; padding: 2px; cursor: default"">" & vbcrlf)
Response.Write(" <a href=""#"" onclick=""hs.close(this); window.location.reload(); return false"" class=""control"">LUK</a>" & vbcrlf)
Response.Write(" </div>" & vbcrlf)
Response.Write(" " & vbcrlf)
Response.Write(" <div class=""highslide-body""></div>" & vbcrlf)
Response.Write(" " & vbcrlf)
Response.Write(" <div style=""text-align: center; border-top: 1px solid silver; padding: 5px 0"">" & vbcrlf)
Response.Write(" <small>" & vbcrlf)
Response.Write(" Powered by <i>CPC Data</i>" & vbcrlf)
Response.Write(" </small>" & vbcrlf)
Response.Write(" </div>" & vbcrlf)
Response.Write("</div>" & vbcrlf)
Response.Write("</div>")
Response.Write("</body>")
else
response.write "<body bgcolor='#CC99FF'>" & vbcrlf
response.write "</body>" & vbcrlf
end if
%>
Giver følgende fejl:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/holdlisten.asp, line 18
