Hent fra DB og Response.Write If...

Halløj

Jeg skal hente noget data fra en DB og opbygge en tabel med det hvis det findes.

Jeg troede jeg kunne gøre som følger, men den går i gang med at skrive tabellen selvom der ikke er nogen records.

Hvordan skrives det så den først laver tabellen hvis den finder en/flere records?


strSQL = \"SELECT link FROM Tabel WHERE id = \" & strID & \";\"

Set objRecordSet = Server.CreateObject(\"ADODB.Recordset\")

objRecordSet.Open strSQL, objConnection

If Not objRecordSet.BOF Or objRecordSet.EOF = True Then

    Response.Write \"<table>\"

        While Not objRecordSet.EOF = True
            Response.Write \"<tr><td>\" & objRecordSet(\"link\") & \"</td></tr>\"
        objRecordSet.MoveNext
        Wend

    Response.Write \"</table>\" & vbCrLf

End If