Hvordan skal jeg ændre denne sætning?

<td>
  <%
    If ObjRS("images") <> "" Then
      Response.Write "<img src='"& ObjRS("images") &"'>"
    Else
      Response.Write "Tekst i stedet for billede!"
    End If
  %>
</td>

Kan du ikke gøre sådanne her:
<%
if ObjRS("images")<>"" then
Response.write "<img src='"& ObjRS("images") & "'>"
else
Response.write "ObjRs er tom! "
end if
%>

he he 9 sek.

hmmmm den laver stadigvæk et link , er det nødvendigt at teste på filtyper mon ?

Det kommer an på hva' du vil? Hvis ObjRS("images") indeholder noget, så skal den vise billedet (jeg går ud fra at det du får fra databasen indeholder en sti til billedet, ikke?), og hvis der ikke står noget, hvad skal den så vise?

Forklar det lidt bedre, så skal vi nok finde en løsning...

Det jeg gerne vil er at uploade tekst eller billede til det samme felt i databasen og så udskrive hhv billede eller tekst. Jeg havde tænkt mig at gøre således da jeg vil have mulighed for at indsætte tekst under billeder.

Taler jeg helt i taager ? 
8>)

...slet ikke! Jeg går ud fra at billedtypen altid vil være enten .jpg eller .gif?

I så fald, så prøv sådan her:

<td>
  <%
    If ObjRS("images") <> "" Then
      If Right(ObjRS("images"), 4) = ".jpg" or Right(ObjRS("images"), 4) = ".gif" Then
        Response.Write "<img src='"& ObjRS("images") &"'>"
      Else
        Response.Write ObjRS("images")
      End If
    End If
  %>
</td>

ok , nu kommer vi da ud af stedet 8>)

nu forsvandt det røde kryds der indikere et dødt billede link men den skrive stadigvæk ikke teksten der bare er noget jeg har skrevet i feltet. Den laver godt nok mine id numre men den mangler bare at skrive teksten ud . Herunder min database forbindelse :
<%
Dim objConnads
Set objConnads = Server.CreateObject ("ADODB.Connection")
objConnads.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\aconsult.us\www\upload\ads.mdb"
objConnads.Open () 

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT id,images FROM comments" ,objConnads, adOpenDynamic, adLockOptimistic
%>                   
                    <td valign="top" width="350">
                        <table width="100%" border="0" cellspacing="5" cellpadding="5">
                            <tr>
                                <td>ID</td>
                                <td colspan="2">
                                    <div align="center">
                                        aconsult har for tiden disse oplysninger : </div>
                                </td>
                            </tr>
                           
<%
Set objRS=objConnads.Execute("SELECT id, images FROM comments")
Do while Not objRS.EOF
Response.Write"<tr><td>" & objRS("id") &"</td>"
%>
<td><<%
    If ObjRS("images") <> "" Then
      If Right(ObjRS("images"), 4) = ".jpg" or Right(ObjRS("images"), 4) = ".gif" Then
        Response.Write "<img src='"& ObjRS("images") &"'>"
      Else
        Response.Write ObjRS("images")
      End If
    End If
  %>
</td>                   
                            </tr>
                           
                       
                    </td>
<%
objRS.Movenext
Loop

objRS.Close
Set objRS = Nothing


objConnads.Close
Set objConnads = Nothing
%>

det virker , jeg havde en < for meget , tak, tusind tak, nu mangler jeg bare mit upload til teksten. Forklar venligst hvad Right samt ,4) gør så jeg kan lære lidt !

TAKKER

Det ser ud til at der er et < for meget inden den metode jeg strikkede sammen til dig. Prøv at slette den. Og prøv at checke den source den genererer for at se om tabelstrukturen er helt korrekt. Det kunne godt være det dér spændte ben for at teksten ikke blev vist ordentligt.

Og kontroller så lige for en sikkerheds skyld at der står noget i images-felterne i databasen ;)

Du har fået point

8>)