Hvordan skal billedstien se ud?

Prøv at rette denne linje:

Response.write "<img  border=""0"" width=""50"" height=""75"" src=""/nicetomeetyou/pictures/ & rs1("FILENAME")"">"


Til:

Response.write "<img  border=""0"" width=""50"" height=""75"" src=""/nicetomeetyou/pictures/ & rs1("FILENAME") & """>"

Det ikke sikkert med din if sætning kan give et problem hvis kolonne FILENAME er tom da tom i et recordset ikke nødvendigvis er lig "" men Null så prøv også at rette if sætningen fra:

if rs1("FILENAME") <> "" then

til denne så viker den både hvis den er Null eller "":

if Len(""&rs1("FILENAME")) > 0 then

Hej eagleeeye

Desværre virker det ikke

hvis billedets sti (som du skriver ligger under Filename, så skal du vel ikke have /nicetomeetyou/pictures/ med i den første linie (?)

Sorry - det er kun navnet på billeder . feks. mitbillede.gif som ligger i databasen. Men mappen som billedet er uploadet til ligger på stien: /nicetomeetyou/pictures/

Hvis det ikke er det, så prøv:

if Len(""&rs1("FILENAME")) > 0 then
Response.write "<img  border=""0"" width=""50"" height=""75"" src=""/nicetomeetyou/pictures/" & rs1("FILENAME")&""">"
else
Response.write "<img  border=""0"" width=""50"" height=""75"" src=""/nicetomeetyou/pictures/no_image.jpg"">"
end if

- jeg har sat 2 " ind for at kalde rs1("FILENAME")...

Image = rs1("FILENAME")
if Image <> "" then
%>
<img  border="0" width="50" height="75" src="/nicetomeetyou/pictures/<%=Image%>">
<%
else
%>
Response.write "<img  border="0" width="50" height="75" src="/nicetomeetyou/pictures/no_image.jpg">
<%
end if

bobbedude - godt forslag, men fordi koden ligger i en sub function kastes billedelinierne ned i selve siden - altså efter </head>
Det ser ud som om koden skal skrives i Response.write

Jeg vælger nu at vise Jer hele sub'en i håb om at en af Jer kan hjælpe :-)

' henter nyeste MALES i vores community
sub nyestemale(male)

Dim m_username, m_age, m_country, m_sex, profile, RS2

Select case male
case "male"
Set RS2 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT TOP 10 * FROM Forum_members where m_sex= 'Male' and profile <>'""' ORDER BY Member_ID DESC "
RS2.Open sql, Conn

end select

if( LEN(sql) > 0) then
Set RS2 = Conn.Execute( sql )
While NOT RS2.EOF
   
Response.write "<table border=""0"" width=""500"" cellspacing=""0"" cellpadding=""1""><tr>"
Response.write "<td width=""500"" align=""left"" valign=""bottom""><a href=""java script:PopWin('show_profil.asp?user=" & rs2("Member_ID") & "',420,418);"">"
Response.write RS2("m_username")
Response.write "</a>"

If trim(RS2("FILENAME")) <> "" Then

Response.write "<img  border=""0"" width=""50"" height=""75"" src=""/nicetomeetyou/pictures/ & RS2(""FILENAME"") & "">"
else
Response.write "<img  border=""0"" width=""50"" height=""75"" src=""/nicetomeetyou/pictures/no_image.jpg"">"
end if

Response.write "<font color=""#9C0000""  face=""Verdana"">&nbsp;is living in "
Response.write RS2("m_state")& " and seeking " & RS2("seek")
  Response.write "</tr></font><tr>"


Response.write "<td width=""500"" align=""left"" valign=""top"">"
profile=LEFT(RS2("profile"),220)
    profile=LEFT(profile,INSTRREV(profile,"")) &"..."

Response.write profile
Response.write "</td>"

Response.write "</tr></table><br>"

RS2.MoveNext
Wend
RS2.Close
End if
sql = ""
end sub

prøvede du mit sidste forslag ?
og hvis ja - hvad får du af fejl-besked ?

OK - det lykkedes - Tak