Tom databas

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]

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

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

Det är ingen funktionell skillnad.

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

ok då har vi rätt ut det

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

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,

Do until ObjRS.EOF
'skriv ut kategorierna
End If

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

mvh Jörgen

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

Byt ut RecSet mot rs i din loop.

Hej!

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

mvh Jörgen

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,

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