Salve!
Sono abbastanza nuovo ad ASP. Ho provato a collegare un DB con ASP ma mi sono trovato di fronte a questo errore:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/list.asp, line 198
Usando il percorso di ricerca:
list.asp?go=composer&word=blabla
Il codice "incriminato" è:
<%
'rsBooks.Close
if request.QueryString("new")<> "" then
idc=request.QueryString("new")
else
idc = request.QueryString("id")
end if
if request.QueryString("new")= "1" then
passToPage="new=1"
query="SELECT Books.* FROM Books WHERE (((Books.new)=True)) ORDER BY Books.id DESC;"
elseif request.QueryString("id") => "1" then
query="SELECT Books.*, Books.id FROM Books WHERE Books.id="+idc+";"
elseif request.QueryString("all")="1" then
passToPage="all=1"
query="SELECT Books.*, Books.id FROM Books WHERE ((Books.offer)=False) ORDER BY Books.id DESC;"
elseif request.QueryString("A4p")="1" then
passToPage="A4p=1"
query="SELECT Books.*, Books.id FROM Books WHERE ((Books.A4p)=True) ORDER BY Books.id DESC;"
elseif request.QueryString("A4l")="1" then
passToPage="A4l=1"
query="SELECT Books.*, Books.id FROM Books WHERE ((Books.A4l)=False) ORDER BY Books.id DESC;"
elseif request.QueryString("other")="1" then
passToPage="other=1"
query="SELECT Books.*, Books.id FROM Books WHERE ((Books.other)=True) ORDER BY Books.id DESC;"
elseif request.QueryString("go")<>"" then
query="SELECT Books.id, Books.composer, Books.year, Books.publisher,"
query=query+" Books.title, Books.file, Books.new,"
query=query+" Books.offer, Books.A4p, Books.status, Books.catalog,"
query=query+" Books.dpi, Books.location, Books.A4l, Books.other,"
query=query+" Books.special, Books.pages, Books.details, Books.scanner"
query=query+" FROM Titles,Books WHERE Books.id = Titles.id AND "
if request.QueryString("go")="notes" then
query=query+"Titles."+request.QueryString("go")+" like '%"+request.QueryString("word")+"%'"
else
query=query+"Books."+request.QueryString("go")+" like '%"+request.QueryString("word")+"%'"
end if
query=query+"GROUP BY Books.id, Books.composer, Books.year, Books.publisher,"
query=query+" Books.title, Books.file, Books.new,"
query=query+" Books.offer, Books.A4p, Books.status, Books.catalog,"
query=query+" Books.dpi, Books.location, Books.A4l, Books.other,"
query=query+" Books.special, Books.pages, Books.details, Books.scanner"
end if
Set rsBooks= Server.CreateObject("ADODB.Recordset")
itemsPerPage = 5
page = request.QueryString("page")
if page="" then page=1
rsBooks.ActiveConnection = MM_DB_STRING
rsBooks.Source = query
rsBooks.CursorType = 3
rsBooks.CursorLocation = 2
rsBooks.LockType = 1
rsBooks.Open()
rsBooks.PageSize = itemsPerPage
rsBooks.AbsolutePage = page
If rsBooks.Eof=True or rsBooks.Bof=True then
Response.Write "
Sorry. No items found.</p>"
Else
For i=1 to itemsPerPage
if Not rsBooks.EOF then
%>
Non riesco a capire cosa sia...
spero in qualche aiuto. Grazie!!!
Rispondi quotando