Wiklund!!Medlem sedan juli 2002556 inlägg
Får inte min sql sats att fungera! Nån som kan ta en titt?
Detta är all kod if dokumentet.
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath ("db\data.mdb")&";pwd=detdu"
sql = "select from users.*, guestbook.* from users inner join guestbook on users.id = guestbook.fromid"
set recset = connect.execute(sql)
If recset.EOF Then
response.write "You have no messages in your guestbook."
Else do until recset.EOF%>
<%recset.MoveNext
Loop
End If
recset.Close
%>
Felmess:
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] SELECT-uttrycket innehåller ett reserverat ord eller argument som antingen är felstavat eller utelämnat, eller så är skiljetecknen felaktigt använda.
/style/sql.asp, line 7
@ndersMedlem sedan juni 200026 914 inlägg
ett litet from för mycket.
sql = "select users.*, guestbook.* from users inner join guestbook on users.id = guestbook.fromid"
mvh,
Wiklund!!Medlem sedan juli 2002556 inlägg
Yes, äntligen fungerar det. Stort tack!
Edit: Som vanligt när man får till saker så dyker ett nytt problem upp direkt :(
Försökte använda paging på samma sätt som jag brukar göra, fast får felmeddelandet: Objektet eller providern kan inte utföra den begärda åtgärden.
På raden: RecSet.AbsolutePage = page
<%
Const perSida = 10
If Request.QueryString("page") = "" then
page = 1
Else
page = Request.QueryString("page")
End If
RecSet.CursorLocation = 3
RecSet.CacheSize = perSida
sql = "select users.*, guestbook.* from users inner join guestbook on users.id = guestbook.fromid"
set ReCset = connect.execute(sql)
If recset.EOF Then
response.write "You have no messages in your guestbook."
Else
RecSet.MoveFirst
RecSet.PageSize = perSida
TotalPages = RecSet.PageCount
RecSet.AbsolutePage = page
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize
RecSet.MoveNext
Count = Count + 1
Loop
End If
RecCet.Close
%>
SebbeMedlem sedan jan. 20031 603 inlägg
RecSet.AbsolutePage = CInt(page)
Kanske?