---
title: "vill ha databasen listad på samma sida"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92729-vill-ha-databasen-listad-på-samma-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-12-15T18:31:20.000Z"
updated: "2003-12-16T15:23:26.000Z"
replies: 25
views: 551
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/92729-vill-ha-databasen-listad-på-samma-sida"
---
# vill ha databasen listad på samma sida
_Sida 1 av 2._
## #1 — plelkes, 2003-12-15T18:31Z
[Hela databasen listas](http://www12.brinkster.com/vatskebalans/1.asp) på denna sida.
Jag vill ha lite förändringar med tilllägg av bla: kryssrutor och textfält.
Därför har jag snickrat:
```
<%
Set vbalans = Server.CreateObject("ADODB.Connection")
vbalans.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vbalans.ConnectionString = "Data Source='" & MdbFilePath & "'"
vbalans.open
strSQL1 =" SELECT * FROM tblFluidRelat, tblFluids, tblFluidTypes WHERE tblFluidRelat.FluidID = tblFluids.FluidID AND tblFluidRelat.typeID = tblFluidTypes.typeID ORDER by tblFluidTypes.typeNamn"
typ =""
Response.Write "
"
Response.Write "
"
%>
```
[När sidan körs](http://www12.brinkster.com/vatskebalans/allt_po_1sida11.asp)
> ADODB.Recordset error '800a0cc1'
> Item cannot be found in the collection corresponding to the requested name or ordinal.
Felmeddelandet torde väl tyda på fel i strSQL1 eller? Hittar dock inte felet...
Bifogar koden till sidan som funkar
Bilagor:
- [1.zip](https://www.webforum.nu/a/2432.zip)
Permalänk: https://www.webforum.nu/p/92729
## #2 — @nders, 2003-12-15T18:42Z
> Felmeddelandet torde väl tyda på fel i strSQL1 eller? Hittar dock inte felet...
Nej, felmeddelandet tyder på att du försöker skriva ut värdet från ett fält som inte finns i ditt recordset. Kontrollera så du skrivit rätt på alla fältreferenser i asp-koden och se så de verkligen finns i ditt recordset.
Mvh
Permalänk: https://www.webforum.nu/p/1229389
## #3 — Jesper T, 2003-12-15T18:42Z
Verkar som ett kolumn i databasen inte finns som du försöker att hänvisa till. Testa med denna:
```
strSQL1 ="SELECT * FROM tblFluidRelat as tFR,tblFluids as tF,tblFluidTypes as fFT WHERE tFR.FluidID = tF.FluidID AND tFR.typeID = tFT.typeID ORDER by tFT.typeNamn"
```
Jag brukar döpa kolumnerna med tabellnamnets förkortning först så slipper det att bli så struligt när du skall hämta ifrån flera tabeller.
ex. tf_fluidID, tfr_fluidID osv.
Permalänk: https://www.webforum.nu/p/1229392
## #4 — plelkes, 2003-12-15T18:47Z
Jesper T:
När jag bytte mitt strSQL1 mot ditt får jag fel:
> Microsoft JET Database Engine error '80040e10'
>
> No value given for one or more required parameters
Permalänk: https://www.webforum.nu/p/1229395
## #5 — Jesper T, 2003-12-15T18:52Z
Så fel det kan gå... ;)
Permalänk: https://www.webforum.nu/p/1229396
## #6 — plelkes, 2003-12-15T18:57Z
> **@nders skrev:**
>
> Kontrollera så du skrivit rätt på alla fältreferenser i asp-koden och se så de verkligen finns i ditt recordset.
Men det konstiga är att det fungerat på andra sidor. Det enda jag har gjort är klippa och klistra\*suckochsnyft\*
Sidor det funkar på:
[1\.asp](http://www12.brinkster.com/vatskebalans/1.asp)
[2\.asp](http://www12.brinkster.com/vatskebalans/2.asp)
För att spara uttrymme bifogar jag ovanstående 2 koderna
Kan det vara så att det är fältegenskaper som spökar?
Bilagor:
- [ny mapp.zip](https://www.webforum.nu/a/2433.zip)
Permalänk: https://www.webforum.nu/p/1229399
## #7 — @nders, 2003-12-15T19:28Z
Vilken rad är rad 24 i koden? Det verkar vara på den raden adp-tolken påstår att du försöker skriva ut ett fält som inte finns i recordsetet.
Permalänk: https://www.webforum.nu/p/1229415
## #8 — plelkes, 2003-12-16T06:50Z
> **@nders skrev:**
>
> Vilken rad är rad 24 i koden? Det verkar vara på den raden adp-tolken påstår att du försöker skriva ut ett fält som inte finns i recordsetet
```
Response.Write "
"
```
Men som skrivet: ytterligt förbryllande att det funkar på de två andra sidorna, och jag bara har kopierat och klistrat in..
Permalänk: https://www.webforum.nu/p/1229577
## #9 — plelkes, 2003-12-16T08:26Z
kan inte förstå varför inte det funkar.....
Eftersom de två sidorna funkar, borde även sammanslagning av dessa två funka...
Permalänk: https://www.webforum.nu/p/1229595
## #10 — plelkes, 2003-12-16T08:45Z
Försökt med ytterligare variant
```
<%
If Request.QueryString("type") = "" Then
intType = 1
Else
intType = CInt(Request.QueryString("type"))
End If
Set vbalans = Server.CreateObject("ADODB.Connection")
vbalans.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vbalans.ConnectionString = "Data Source='" & MdbFilePath & "'"
vbalans.open
strSQL1 =" SELECT * FROM tblFluidRelat, tblFluids, tblFluidTypes WHERE tblFluidRelat.FluidID = tblFluids.FluidID AND tblFluidRelat.typeID = tblFluidTypes.typeID ORDER by tblFluidTypes.typeNamn"
typ =""
Response.Write "
"
Response.Write "
"
%>
```
NU blir felutskriften
> Microsoft VBScript runtime error '800a01a8'
>
> Object required: ''
>
> /vatskebalans/12.asp, line 27
line 27 = fet-stil
Permalänk: https://www.webforum.nu/p/1229607
## #11 — solbulle, 2003-12-16T08:50Z
Du har som sagt inget objekt som heter objConn.
Vad händer om du klipper ut det stycke som ger dig felet i din första kod? Får du något annat fel då?
Permalänk: https://www.webforum.nu/p/1229611
## #12 — plelkes, 2003-12-16T08:59Z
> **solbulle skrev:**
>
> Du har som sagt inget objekt som heter objConn
När är det sagt\*ler\*?
När jag ersatt den raden till
```
Set objRS = vbalans.Execute(strSQL)
```
Får jag
> Microsoft JET Database Engine error '80040e14'
>
> Syntax error (missing operator) in query expression 'tblFluidRelat.FluidID = tblFluids.FluidID ANDtblFluidRelat.typeID = tblFluidTypes.typeID AND tblFluidTypes.TypeID = 1'.
>
> /vatskebalans/12.asp, line 27
> **solbulle skrev:**
>
> Vad händer om du klipper ut det stycke som ger dig felet i din första kod? Får du något annat fel då?
Menar du att jag skall ta bort rad 24?
Om ja [så ser sida ut så här](http://www12.brinkster.com/vatskebalans/11.asp)
Permalänk: https://www.webforum.nu/p/1229614
## #13 — @nders, 2003-12-16T09:01Z
> **plelkes skrev:**
>
> Microsoft JET Database Engine error '80040e14'
>
> Syntax error (missing operator) in query expression 'tblFluidRelat.FluidID = tblFluids.FluidID ANDtblFluidRelat.typeID = tblFluidTypes.typeID AND tblFluidTypes.TypeID = 1'.
>
> /vatskebalans/12.asp, line 27
Om man läser det felmeddelandet så ser man att det saknas ett mellanslag efter AND.
Permalänk: https://www.webforum.nu/p/1229615
## #14 — plelkes, 2003-12-16T09:07Z
> **@nders skrev:**
>
> Om man läser det felmeddelandet så ser man att det saknas ett mellanslag efter AND.
Tack för det @nders.... [Nu börjar det ju bli bättre](http://www12.brinkster.com/vatskebalans/12.asp) men inte bra
Permalänk: https://www.webforum.nu/p/1229619
## #15 — solbulle, 2003-12-16T09:25Z
> **plelkes skrev:**
>
> När är det sagt\*ler\*?
I felmeddelandet: Object required ;)
Du verkar inte få något felmeddelande nu på den sista länken du postar?
Permalänk: https://www.webforum.nu/p/1229625
## #16 — plelkes, 2003-12-16T09:34Z
Som ni [ser](http://www12.brinkster.com/vatskebalans/12.asp) börjar det se bättre ut...
Men jag hittar inte felet
```
<%
If Request.QueryString("type") = "" Then
intType = 1
Else
intType = CInt(Request.QueryString("type"))
End If
Set vbalans = Server.CreateObject("ADODB.Connection")
vbalans.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vbalans.ConnectionString = "Data Source='" & MdbFilePath & "'"
vbalans.open
strSQL1 =" SELECT * FROM tblFluidRelat, tblFluids, tblFluidTypes WHERE tblFluidRelat.FluidID = tblFluids.FluidID AND tblFluidRelat.typeID = tblFluidTypes.typeID ORDER by tblFluidTypes.typeNamn"
typ =""
Response.Write "
"
Response.Write "
"
%>
```
Permalänk: https://www.webforum.nu/p/1229629
## #17 — plelkes, 2003-12-16T10:00Z
Eftersom jag [INTE får till det hela](http://www12.brinkster.com/vatskebalans/12.asp)
Har jag försökt med nedanstående ändring
```
<%
If Request.QueryString("type") = "" Then
intType = 1
Else
intType = CInt(Request.QueryString("type"))
End If
Set vbalans = Server.CreateObject("ADODB.Connection")
vbalans.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vbalans.ConnectionString = "Data Source='" & MdbFilePath & "'"
vbalans.open
strSQL1 =" SELECT * FROM tblFluidRelat, tblFluids, tblFluidTypes WHERE tblFluidRelat.FluidID = tblFluids.FluidID AND tblFluidRelat.typeID = tblFluidTypes.typeID ORDER by tblFluidTypes.typeNamn"
typ =""
Response.Write "
"
Response.Write "
"
%>
```
Dåck får jag
> Microsoft VBScript compilation error '800a03fb'
>
> Expected 'Loop'
>
> /vatskebalans/1o21.asp, line 50
>
> Else
> ^
Raderna 49 - 52
```
49 : <%
50: Else
51: Response.Write "
"
52: %>
```
Permalänk: https://www.webforum.nu/p/1229641
## #18 — solbulle, 2003-12-16T10:10Z
Grej nummer ett. Jag får inget felmess på den sida du länkar till.
Grej nummer två. Det har lagt in en "Else" mitt i din loop, det fungerar inte.
Permalänk: https://www.webforum.nu/p/1229643
## #19 — plelkes, 2003-12-16T10:15Z
> **solbulle skrev:**
>
> Jag får inget felmess på den sida du länkar till
Nej den länken visar bara att jag inte klarar av att loopa databasen, eller egentligen objRS("FluidID")
[sidan med felmesset](http://www12.brinkster.com/vatskebalans/1o21.asp)
> **solbulle skrev:**
>
> Det har lagt in en "Else" mitt i din loop, det fungerar inte.
har oxå provat detta
Permalänk: https://www.webforum.nu/p/1229646
## #20 — solbulle, 2003-12-16T11:15Z
Vad händer om du skriver så här:
```
<%
Set vbalans = Server.CreateObject("ADODB.Connection")
vbalans.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
vbalans.ConnectionString = "Data Source='" & MdbFilePath & "'"
vbalans.open
strSQL1 =" SELECT * FROM tblFluidRelat, tblFluids, tblFluidTypes WHERE tblFluidRelat.FluidID = tblFluids.FluidID AND tblFluidRelat.typeID = tblFluidTypes.typeID ORDER by tblFluidTypes.typeNamn"
typ =""
Response.Write "