8 svar · 185 visningar · startad av jwradhe
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/visa_artiklar.asp, line 24
vad är fel?
line 24 =
Set RecSet = Connect.execute(VISA)
Omöjligt att se med den bifogade koden, skriv ut sqlsatsen.
Och posta mera kod.
<%
Function WordLeft(strText, intNoOfWords)
Dim arrText, strippedText, I
arrText = Split(strText, " ")
If UBound(arrText) => intNoOfWords Then
For I = 0 To (intNoOfWords - 1)
If i = (intNoOfWords - 1) Then
strippedText = strippedText & arrText(i) & "..."
Else
strippedText = strippedText & arrText(i) & " "
End if
Next
Else
strippedText = strText
End If
WordLeft = strippedText
End Function
%>
<% Set Connect = Server.CreateObject("ADODB.connection")
Connect.open = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/artiklar.mdb")
VISA = "SELECT TOP 6 * FROM artiklar ORDER by datum DESC "
Set RecSet = Connect.execute(VISA)
%>
<%
strRubrik = "=RecSet(rubrik)"
%>
<% do until RecSet.EOF %>
<a href="las_artikel.asp?id=<%=RecSet("id")%>">
<%Response.Write WordLeft(strRubrik, 10)%>
</a><BR>
<% RecSet.MoveNext
loop
RecSet.close
Connect.close
Set RecSet = nothing
Set Connect = nothing %>
<%
strRubrik =RecSet("rubrik")
%>
det står fortfarande det där felmeddelandet.
Kanske?!
do until RecSet.EOF
strRubrik = RecSet("rubrik")
Response.write "<a href=""las_artikel.asp?id="& RecSet("id")&">"" &_
WordLeft(strRubrik, 10)&"</a><BR>"
RecSet.MoveNext
jesper...står ..
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/visa_artiklar.asp, line 31
Response.write "<a href=""las_artikel.asp?id="& RecSet("id")&">"" &_
--------------------------------------------------------------------^
do until RecSet.EOF
strRubrik = RecSet("rubrik")
Response.write "<a href=""las_artikel.asp?id="& RecSet("id")&">""" &_
WordLeft(strRubrik, 10)&"</a><BR>"
RecSet.MoveNext
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/artiklar.mdb")
VISA = "SELECT TOP 6 * FROM artiklar ORDER by datum DESC "
Du hade ett = direkt efter connect.open.