---

Jeg kan ikke få nedestående til at virke.
Hvis søgningen i databasen ikke finder noget, og kommer til
sætningen. if rs.eof then

Hvordan får jeg så sat navn1 = Ledig
Eksempel vis ?




'**********************************************
'START   LAMPE 1
'**********************************************
strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
Set rs = Conn.Execute(strSQL)
navn1 = rs("navn")   
'Hvis Case_ID ikke findes

if rs.eof then

navn1 = ????????

Else
End if

'**********************************************
'END   LAMPE 1
'**********************************************

'**********************************************
'START   LAMPE 2
'**********************************************
strSQL = "SELECT * FROM stamsats WHERE Lampe = 2 "
Set rs = Conn.Execute(strSQL)
navn2 = rs("navn")   
'Hvis Case_ID ikke findes

if rs.eof then

navn1 = ????????

Else
End if
'***********************************************
'END   LAMPE 2
'***********************************************

Venlig hilsen

Henrik Johansen

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Henrik Johansen" <henrik-johansen@vip.cybercity.dk> skrev i en meddelelse
news:ak0svj$o9g$1@sunsite.dk...
> Jeg kan ikke få nedestående til at virke.
> Hvis søgningen i databasen ikke finder noget, og kommer til
> sætningen. if rs.eof then
>
> Hvordan får jeg så sat navn1 = Ledig
> Eksempel vis ?
> '**********************************************
> 'START LAMPE 1
> '**********************************************
> strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
> Set rs = Conn.Execute(strSQL)
> navn1 = rs("navn")
> 'Hvis Case_ID ikke findes
>
if rs.eof then
navn1 = "Ledig"
Else
Hvad vil du have her?
End if
>
> '**********************************************
> 'END LAMPE 1
> '**********************************************

Hilsen
SumSum


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.381 / Virus Database: 214 - Release Date: 02-08-2002

---

SumSum wrote in dk.edb.internet.webdesign.serverside.asp:
> "Henrik Johansen" <henrik-johansen@vip.cybercity.dk> skrev i en meddelelse
> news:ak0svj$o9g$1@sunsite.dk...
> > Jeg kan ikke få nedestående til at virke.
> > Hvis søgningen i databasen ikke finder noget, og kommer til
> > sætningen. if rs.eof then
> >
> > Hvordan får jeg så sat navn1 = Ledig
> > Eksempel vis ?
> > '**********************************************
> > 'START LAMPE 1
> > '**********************************************
> > strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
> > Set rs = Conn.Execute(strSQL)
> > navn1 = rs("navn")
> > 'Hvis Case_ID ikke findes
> >
> if rs.eof then
> navn1 = "Ledig" ("JEG VIL GERNE HAVE DENNE LINIE TIL AT VIRKE")
> Else
> Hvad vil du have her? ("JEG VIL IKKE HAVE NOGET HER")
> End if
> >
> > '**********************************************
> > 'END LAMPE 1
> > '**********************************************
>
> Hilsen
> SumSum
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.381 / Virus Database: 214 - Release Date: 02-08-2002
>
>


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Henrik Johansen" <henrik-johansen@vip.cybercity.dk> skrev i en meddelelse
news:ak0u1t$7a$1@sunsite.dk...
> > > strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
> > > Set rs = Conn.Execute(strSQL)
> > > navn1 = rs("navn")
> > > 'Hvis Case_ID ikke findes
> > >
> > if rs.eof then
> > navn1 = "Ledig" ("JEG VIL GERNE HAVE DENNE LINIE TIL AT VIRKE")

Jeps. Det var derfor jeg skrev det. Det virker hvis der ikke findes en post
med lampe=1, for så får du EOF på RS

> > Else
> > Hvad vil du have her? ("JEG VIL IKKE HAVE NOGET HER")

Fint. Så drop else

> > End if

Hilsen
SumSum


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.381 / Virus Database: 214 - Release Date: 02-08-2002

---

SumSum wrote in dk.edb.internet.webdesign.serverside.asp:
> "Henrik Johansen" <henrik-johansen@vip.cybercity.dk> skrev i en meddelelse
> news:ak0u1t$7a$1@sunsite.dk...
> > > > strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
> > > > Set rs = Conn.Execute(strSQL)
> > > > navn1 = rs("navn")
> > > > 'Hvis Case_ID ikke findes
> > > >
> > > if rs.eof then
> > > navn1 = "Ledig" ("JEG VIL GERNE HAVE DENNE LINIE TIL AT
VIRKE")
>
> Jeps. Det var derfor jeg skrev det. Det virker hvis der ikke findes en post
> med lampe=1, for så får du EOF på RS
>
> > > Else
> > > Hvad vil du have her? ("JEG VIL IKKE HAVE NOGET HER")
>
> Fint. Så drop else
>
> > > End if
>
> Hilsen
> SumSum


Det virker ikke.

Her er fejlmeddelesen
Fejltype:
ADODB.Field (0x800A0BCD)
Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den
anmodede handling kræver en aktuel post.
/Lampe.asp, line 61


Og jeg har brugt følgende kode..


'*************************************************
'START   LAMPE 1
'*************************************************
strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
Set rs = Conn.Execute(strSQL)
navn1 = rs("navn")
Farve1 = rs("Farve")   
'Hvis stamsats ikke findes

if rs.eof then
navn1 = "Ledig"
End if

'*************************************************
'END   LAMPE 1
'*************************************************

'*************************************************
'START   LAMPE 2
'*************************************************
strSQL = "SELECT * FROM stamsats WHERE Lampe = 2 "
Set rs = Conn.Execute(strSQL)
navn2 = rs("navn")   
'Hvis stamsats ikke findes

if rs.eof then
navn2 = "Ledig"
End if
'*************************************************
'END   LAMPE 2
'*************************************************

Henrik
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.381 / Virus Database: 214 - Release Date: 02-08-2002
>
>


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Henrik Johasnen" <henrik-johansen@vip.cybercity.dk> skrev i en meddelelse
news:ak3heh$g3u$1@sunsite.dk...
> Det virker ikke.
>
> Her er fejlmeddelesen
> Fejltype:
> ADODB.Field (0x800A0BCD)
> Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet.
Den
> anmodede handling kræver en aktuel post.
> /Lampe.asp, line 61
> Og jeg har brugt følgende kode..
> '*************************************************
> 'START LAMPE 1
> '*************************************************
> strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
> Set rs = Conn.Execute(strSQL)
> navn1 = rs("navn")
> Farve1 = rs("Farve")
> 'Hvis stamsats ikke findes
>
> if rs.eof then
> navn1 = "Ledig"
> End if

Du henter en værdi, der ikke er fundet med navn1=rs("navn"). Du skal huske
at teste for EOF før du bruger RS.

strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
Set rs = Conn.Execute(strSQL)
'Hvis stamsats ikke findes
if rs.eof then
navn1 = "Ledig"
else
navn1 = rs("navn")
Farve1 = rs("Farve")
End if

Ret Lampe2 på samme måde

Hilsen
SumSum


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.381 / Virus Database: 214 - Release Date: 02-08-2002

---

"Henrik Johasnen" <henrik-johansen@vip.cybercity.dk> wrote in message
news:ak3heh$g3u$1@sunsite.dk...
> Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet.
Den
> anmodede handling kræver en aktuel post.
> /Lampe.asp, line 61
>
> navn1 = rs("navn")
> navn2 = rs("navn")
Jeg går ud fra at en af de her er linie 61 i koden?

Ændr koden til:

strSQL = "SELECT * FROM stamsats WHERE Lampe = 2 "
Set rs = Conn.Execute(strSQL)
if rs.eof then
' No data found
navn2 = "Ledig"
Else
' At least one record found, I can use the fields collection
navn2 = rs("navn") ' eller navn2 = rs.fields.item("navn").value
End if

Hvis dit recordset er tomt (eof = End Of File), så får du en runtime error
hvis du prøver at hente værdier i recordsettets Fields Collection

mvh/Peter Lykkegaard

---

SumSum wrote in dk.edb.internet.webdesign.serverside.asp:
> "Henrik Johansen" <henrik-johansen@vip.cybercity.dk> skrev i en meddelelse
> news:ak0u1t$7a$1@sunsite.dk...
> > > > strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
> > > > Set rs = Conn.Execute(strSQL)
> > > > navn1 = rs("navn")
> > > > 'Hvis Case_ID ikke findes
> > > >
> > > if rs.eof then
> > > navn1 = "Ledig" ("JEG VIL GERNE HAVE DENNE LINIE TIL AT
VIRKE")
>
> Jeps. Det var derfor jeg skrev det. Det virker hvis der ikke findes en post
> med lampe=1, for så får du EOF på RS
>
> > > Else
> > > Hvad vil du have her? ("JEG VIL IKKE HAVE NOGET HER")
>
> Fint. Så drop else
>
> > > End if
>
> Hilsen
> SumSum
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.381 / Virus Database: 214 - Release Date: 02-08-2002
>
>


Tak for hjælpen. Jeg fandt løsningen efter et par forsøg

strSQL = "SELECT * FROM stamsats WHERE Lampe = 1 "
Set rs = Conn.Execute(strSQL)
'Hvis stamsats ikke findes
if rs.eof then
navn1 = "Ledig"

Else
navn1 = rs("navn")
End if

Henrik

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials