---

Hej NG!

Jeg har lavet en asp-side, hvor man kan slette og redigere poster
i min db (access 2000). Problemet opstår, når alle poster i db'en
er slettet så får jeg nedenstående fejlmeddelse, idet min
asp-side lister alle de poster man kan slette og redigere:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been
deleted. Requested operation requires a current record.

default.asp, line 77

Hvordan får jeg asp'en til at checke om pågældende tabel er tom
eller indeholder poster og derefter laver et udtræk?(check og
derefter ..Response.Write "Tabellen indeholder ingen poster")

Med venlig hilsen

Jimmy Snedker




--
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

---

"Jimmy Snedker" skrev

> Jeg har lavet en asp-side, hvor man kan slette og redigere poster
> i min db (access 2000). Problemet opstår, når alle poster i db'en
> er slettet så får jeg nedenstående fejlmeddelse, idet min
> asp-side lister alle de poster man kan slette og redigere:

> Hvordan får jeg asp'en til at checke om pågældende tabel er tom
> eller indeholder poster og derefter laver et udtræk?(check og
> derefter ..Response.Write "Tabellen indeholder ingen poster")

det er faktisk ligetil!
If rs.EOF og rs.BOF Then
Response.Write "Tabellen indeholder ingen poster"
else
udskriv fra tabellen

--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk

---

Hej pepss!

> If rs.EOF og rs.BOF Then

Jeg går ud fra du mener 'or' i stedet for 'og', dog ender jeg op med
den fejlmeddelelse:

Microsoft VBScript compilation error '800a03f4'

Expected 'If'

default.asp, line 98

End Select

Linie 98: <% End Select %>

Her har du resten af min kode:
<% Case Else %>
<span class="fedtxt10">Rediger Tilbud/nyhed</span> <br />
<%

If rs.EOF OR rs.BOF Then
Response.Write "Der er på nuværende tidspunkt ingen tilbud"
else

strSQL = "Select * From mintabel Order by id"
Set rs = Conn.Execute(strSQL)

%>
<% Do %>
<%

      strOver = rs("overskr")
      strBsk = rs("tekst")
      strPris = rs("pris")
      strId = rs("id")
      
      strLink = "<span class='fedtxt10'>" & strOver & "</span>" & "<br
/><span class='smallprinttxt'>" & strBsk & " " & strPris &
",-</span>" & "&nbsp;&nbsp;<a href='tilbudredi2.asp?id=" & strId & "'
class='fedblue' title='Rediger denne post'>Rediger</a> | <a
href='tilbudredi.asp?mode=slet&id=" & strId & "' class='fedblue'
title='Slet denne post'>Slet</a><br/>"

Response.Write strLink

%><%   
rs.MoveNext
   Loop While Not rs.EOF
%>
<%
End Select %>

Mvh

jimmy snedker



--
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

---

Jimmy Snedker skrev:

> Microsoft VBScript compilation error '800a03f4'
>
> Expected 'If'
>
> default.asp, line 98
>
> End Select

Du skriver "End Select", men parseren forventer "End If".
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Hej Jens!

> Du skriver "End Select", men parseren forventer "End If".

Hvis jeg ændre "End Select" til "End if" får jeg denne
fejlmeddelelse:


Microsoft VBScript compilation error '800a03f6'

Expected 'End'

default.asp, line 104


<%
' Luk databaseforbindelse
Conn.Close

'linie 104
Set Conn = Nothing
%>

Mvh

Jimmy



--
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

---

"Jimmy Snedker" skrev
> > If rs.EOF og rs.BOF Then
>
> Jeg går ud fra du mener 'or' i stedet for 'og', dog ender jeg op med
> den fejlmeddelelse:

ja



strSQL = "Select * From mintabel Order by id"
Set rs = Conn.Execute(strSQL)

If rs.EOF OR rs.BOF Then
Response.Write "Der er på nuværende tidspunkt ingen tilbud"
else
Do
strOver = rs("overskr")
strBsk = rs("tekst")
strPris = rs("pris")
strId = rs("id")
o.s.v.

sådan skal det være(hvis jeg da har fået kaffe nok til ikke at skrive noget
mærkelig )

--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk

---

>
> strSQL = "Select * From mintabel Order by id"
> Set rs = Conn.Execute(strSQL)
>
Hej pepps

> If rs.EOF OR rs.BOF Then
> Response.Write "Der er på nuværende tidspunkt ingen tilbud"
> else
> osv..

dette giver denne fejlmeddelelse:
Microsoft VBScript compilation error '800a03f4'

Expected 'If'

/restaurant/admin/tilbudredi.asp, line 96

End Select

Linie 96: <% End Select %>

Du må hellere få hele min kode...



<%
strMode = Request.QueryString("mode")

%>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("mindatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Rediger/Slet Tilbud/Nyhed</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="Robots" content="NONE" />
<link href="../css/admin.css" rel="stylesheet" type="text/css" />
</head>

<body>
<div id="adminspalte">
<div id="indryk" class="fedhvid"><br />
<br />
<a href="login.asp" class="fedhvid">Start</a><br />
<br />
   <a href="menuer.asp" class="fedhvid">Tilf&oslash;j menu/vin</a><br />
<br />
<a href="tilbud.asp" class="fedhvid">Tilføj Tilbud/Nyhed</a><br />
<br />
Rediger Tilbud/Nyhed<br />
<br />
<a href="tid.asp" class="fedhvid">Rediger Åbningstider</a><br />
<br />
<a href="redimenu.asp" class="fedhvid">Rediger menu/vin</a><br />
<br />
<a href="../scripts/logaf.asp" class="fedhvid">Log af</a></div>
</div>
<div id="Contentspalte">
<%
Select Case strMode
Case "slet"

' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("mindatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

' SQL sletter record
strSQL = "Delete from tilbud where Id =" & Request.Querystring("id")
Conn.Execute(strSQL)

%><br />
<br />
<span class="fedtxt10">Posten er SLETTET</span><br />
<br />
<a href="tilbudredi.asp" class="fedblue">Tilbage til Rediger
Tilbud/Nyhed</a><br />
<br />
<% Case Else %><br />
<br />
<span class="fedtxt10">Rediger Tilbud/nyhed</span> <br />
<%

strSQL = "Select * From tilbud Order by id"
Set rs = Conn.Execute(strSQL)

If rs.EOF OR rs.BOF Then
Response.Write "Der er på nuværende tidspunkt ingen tilbud"
else

Do


      strOver = rs("overskr")
      strBsk = rs("tekst")
      strPris = rs("pris")
      strId = rs("id")
      
      strLink = "<span class='fedtxt10'>" & strOver & "</span>" & "<br /><span
class='smallprinttxt'>" & strBsk & " " & strPris & ",-</span>" &
"&nbsp;&nbsp;<a href='tilbudredi2.asp?id=" & strId & "' class='fedblue'
title='Rediger denne post'>Rediger</a> | <a
href='tilbudredi.asp?mode=slet&id=" & strId & "' class='fedblue' title='Slet
denne post'>Slet</a><br/>"

Response.Write strLink

%><%   
rs.MoveNext
   Loop While Not rs.EOF
%><br />
<% End Select %>
</div>
</body>
</html>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Mvh

Jimmy

--
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

---

"Jimmy Snedker" skrev
> Hej pepps
>
> > If rs.EOF OR rs.BOF Then
> > Response.Write "Der er på nuværende tidspunkt ingen tilbud"
> > else
> > osv..
>
> dette giver denne fejlmeddelelse:
> Microsoft VBScript compilation error '800a03f4'
>
> Expected 'If'
>
> /restaurant/admin/tilbudredi.asp, line 96
>
> End Select
>
> Linie 96: <% End Select %>
>
> Du må hellere få hele min kode...

hels ikke men det du skal er at slutte din if og det skal du gøre efter din
Loop da det jo er det den ikke skal gøre hvis der ikke er noget i tabellen.

> strSQL = "Select * From tilbud Order by id"
> Set rs = Conn.Execute(strSQL)
>
> If rs.EOF OR rs.BOF Then
> Response.Write "Der er på nuværende tidspunkt ingen tilbud"
> else
>
> Do

[snip]

> rs.MoveNext
> Loop While Not rs.EOF

END IF


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk

---

Jimmy Snedker skrev:

> Hvis jeg ændre "End Select" til "End if" får jeg denne
> fejlmeddelelse:
>
>
> Microsoft VBScript compilation error '800a03f6'
>
> Expected 'End'

Hvis du har en select højere oppe, skal den også afsluttes. Det er
svært at sige præcist hvad der er galt uden at se hele koden (men
send den venligst _ikke_ hertil - læg om nødvendigt et link til
koden på en webserver).

Et gæt kunne dog være at dit "End Select" fra før var korrekt, men
der blot manglede et "End If" inden.

Det vil sige at der hvor du nu har "End If" skal du skrive:

   End If
   End Select
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html