Tom databas

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?

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"

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]
------------------
Icaaq, mannen med korven. (!)

[Redigerat av icaaq den 21 okt 2001]

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
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 21 okt 2001]

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

------------------
Icaaq, mannen med korven. (!)

[Redigerat av icaaq den 21 okt 2001]

Det är ingen funktionell skillnad.

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

------------------
essentitia preter non sans multiplicandum

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

------------------
Icaaq, mannen med korven. (!)

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

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"

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,

------------------
All your base are belong to me.

Do until ObjRS.EOF
'skriv ut kategorierna
End If

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

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

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

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"

Byt ut RecSet mot rs i din loop.

------------------
All your base are belong to me.

Hej!

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

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

[Redigerat av jorgen den 21 okt 2001]

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,

------------------
All your base are belong to me.

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

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"