---
title: "Tom databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12211-tom-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dahlgren"
published: "2001-10-21T17:43:00.000Z"
updated: "2001-10-21T18:24:00.000Z"
replies: 13
views: 205
page: 1
pages: 1
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/12211-tom-databas"
---

# Tom databas

## #1 — dahlgren, 2001-10-21T17:43Z

Jag har en länksamling med olika kategorier på min sida. Om en katergoriär tom och man klickar på den så kommer då naturliktvis inget upp mewn jag vill att det då står "tyvär finns inget här" eller nått sånt. Hur gör jag?

Permalänk: https://www.webforum.nu/p/12211

## #2 — icaaq, 2001-10-21T17:46Z

```
strSQL= "SELECT Kategorier FROM databasen"
Set ObjRS = ObjConn.execute(strSQL)
If ObjRS.EOF Then
Response.Write "<b>Det fanns inget här</>"
Else
Do until ObjRS.EOF
'skriv ut kategorierna
End If
```

typ ;)

\[red. jäkla stavfel\]

Permalänk: https://www.webforum.nu/p/292565

## #3 — LarsG, 2001-10-21T17:47Z

```
sql = "select ..."
set rs = connect.execute(sql)

if rs.eof then
   response.write "din käcka text om att det är tomt"
else
   while not rs.eof
'gängse utskrift
   rs.movenext
  wend
end if
```

red: kontaminasammanblandning

Permalänk: https://www.webforum.nu/p/292566

## #4 — icaaq, 2001-10-21T17:49Z

en följd fråga till LarsG:
Är det nån skillnad på **do until ObjRS.EOF** och **while not rs.eof**??

Prestanda messigt alltså!

\[red.kontaminasammanblandning

Permalänk: https://www.webforum.nu/p/292567

## #5 — LarsG, 2001-10-21T17:51Z

Det är ingen funktionell skillnad.

(Om man skriver rätt, det vill säga, det skall inte vara do.)

Permalänk: https://www.webforum.nu/p/292568

## #6 — icaaq, 2001-10-21T17:56Z

ok då har vi rätt ut det ;)

Permalänk: https://www.webforum.nu/p/292569

## #7 — dahlgren, 2001-10-21T18:01Z

allt funkar förutom texten om att det är tomt. Vad är felet?

```
	SET Con = Server.CreateObject("ADODB.Connection")
	Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../databas.mdb")
SQLStmt = "SELECT * FROM lank  where typ='"& t_id & "'order by namn" 
	SET RecSET = Server.CreateObject("ADODB.Recordset")
		RecSet.Open SQLStmt, Con, adOpenStatic, adLockOptimistic 
set rs = connect.execute(sqlstmt)
if rs.eof then
response.write "din käcka text om att det är tomt"
else
while not rs.eof
'gängse utskrift
rs.movenext
wend
end if
```

Permalänk: https://www.webforum.nu/p/292570

## #8 — @nders, 2001-10-21T18:03Z

Ta bort dessa två rader:

```
SET RecSET = Server.CreateObject("ADODB.Recordset")
RecSet.Open SQLStmt, Con, adOpenStatic, adLockOptimistic
```

och ändra raden under dem till:

```
set rs = Con.execute(sqlstmt)
```

Mvh,

Permalänk: https://www.webforum.nu/p/292571

## #9 — jorgen, 2001-10-21T18:07Z

> Do until ObjRS.EOF
> 'skriv ut kategorierna
> End If

Men använder du Do loop måste **loop** finnas med :e

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/292572

## #10 — dahlgren, 2001-10-21T18:08Z

så här ser hela koden ut nu

```
	t_id=request.querystring("t_id")
	SET Con = Server.CreateObject("ADODB.Connection")
	Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../databas.mdb")
SQLStmt = "SELECT * FROM lank  where typ='"& t_id & "'order by namn" 
	
set rs = Con.execute(sqlstmt)
if rs.eof then
response.write "din käcka text om att det är tomt"
else
while not rs.eof
<a href=<%=RecSet("url")%> target="_blank"><%=RecSet("namn")%></a> 
                <br>
rs.movenext
wend
end if
```

Permalänk: https://www.webforum.nu/p/292573

## #11 — @nders, 2001-10-21T18:11Z

Byt ut RecSet mot rs i din loop.

Permalänk: https://www.webforum.nu/p/292574

## #12 — jorgen, 2001-10-21T18:12Z

Hej!

Du måste skriva ut länken med response.write eller skilja HTML / asp-kod med avgränsare.

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/292575

## #13 — @nders, 2001-10-21T18:15Z

Rätt och riktigt. Jag ber om ursäkt för att jag är blind.

Annars kan man bryta asp-blocket:

```
t_id=request.querystring("t_id")
SET Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../databas.mdb")
SQLStmt = "SELECT * FROM lank where typ='"& t_id & "'order by namn" 

set rs = Con.execute(sqlstmt)
if rs.eof then
response.write "din käcka text om att det är tomt"
else
while not rs.eof
%>
<a href=<%=rs("url")%> target="_blank"><%=rs("namn")%></a> 
<br>
<%
rs.movenext
wend
end if
```

Mvh,

Permalänk: https://www.webforum.nu/p/292576

## #14 — dahlgren, 2001-10-21T18:24Z

Stort tack till alla som hjälpt mig nu funkar det.

Permalänk: https://www.webforum.nu/p/292577

---

Tråden på webben: https://www.webforum.nu/amne/asp/12211-tom-databas