Problem med kodning - visning af billede?
Hej jeg har denne sub som henter nogle medlemmer i vores community - i en access database. Der er også et felt der hedder Filename og her gemmes stien til et billede hvis brugeren har uploadet et billede. Nu vil jeg gerne, at hvis dette felt (filename) er blankt skal der vises blank.gif og hvis der er en sti, skal der blot vises photo.gif som så indikerer at brugeren har et billede på sin profil.blank.gif eller photo.gif skal vises efter username. Hvem kan hjælpe med at tilføje dette (NB! har desværre kun 120 points tilbage)- På forhånd tak
sub nyestekvinder(women)
Dim username, brugeralder, country, sex, profil, RS1
Select case women
case "women"
Set RS1 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT TOP 10 * FROM Users where sex= 'Female' ORDER BY ID DESC "
RS1.Open sql, Conn
end select
if( LEN(sql) > 0) then
Set RS1 = Conn.Execute( sql )
While NOT RS1.EOF
Response.write "<table border=""0"" width=""670"" cellspacing=""0"" cellpadding=""1""><tr>"
Response.write "<td width=""670"" align=""left"" valign=""top""><a href=""java script:PopWin('show_profil.asp?user=" & rs1("id") & "',420,418);"">"
Response.write RS1("username")
Response.write "</a> is living in "
Response.write RS1("landsdel")& " and seeking " & RS1("seek")
Response.write "</tr><tr>"
Response.write "<td width=""670"" align=""left"" valign=""top"">"
profil=LEFT(RS1("profil"),220)
profil=LEFT(profil,INSTRREV(profil,"")) &"..."
Response.write profil
Response.write "</td>"
Response.write "</tr></table><br>"
RS1.MoveNext
Wend
RS1.Close
End if
sql = ""
end sub
