<%
Set con = Server.CreateObject("Adodb.connection")
con.open "bilder"
Set rst = Server.CreateObject("Adodb.RecOrdSet")
sql ="select * from bild order by id desc"
rst.open sql,con,1,2
Idd = Request.QueryString("Ida")
%>
hur jag än går inte den framåt.
I databasen finns de följande fällt.

Id = räknare.
Bid = Id nummer för användaren. (om användaren har mer än 1 bild så är de samma bid nummer på användaresn alla bilder. de här fallet är de 1 på de 2 bilderna då de är samma person.
bild = Namne på bilden.
Enda = ändelse på bilden t.ex jpg bmp.
har provat följande.
If not rst.Eof Then
och
Do until Rst.eof
If idd = Rst("Bid") Then
koden som skriver ut filnamn + ändelse via Bild.Enda
rst.moveNext
loop
Else
Response.write "Något blev fel!"
end if
%>
Får error Loop utan Do.
osv. vad är fel?

Testa:
<code>
<%
Idd = Request.QueryString("Ida")

Set con = Server.CreateObject("Adodb.connection")
con.open "bilder"

Set rst = Server.CreateObject("Adodb.RecordSet")
sql = "SELECT * FROM bild WHERE Bid = '" & Replace(Idd, "'", "''") & "'"
rst.open sql, con

If Rst.EOF Then
Response.write "Något blev fel!"
Else
'koden som skriver ut filnamn + ändelse via Bild.Enda
End If

rst.Close
Set rst = Nothing

con.Close
Set con = Nothing
%>
</code>