Hvordan checker man for en bestemt filtype

Det skulle kunne gøre det :

<%
dim filename
if not rsDesign.eof then
    filename = rsDesign.Fields.Item("topimagename").Value
else
    filename=""
end if
If right(lcase(filename),3)="swf"Then%>

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="500" height="270">
<param name="movie" value="images/design/<%=filename%>">
<param name="quality" value="high">
<embed src="images/design/blandet_varer.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="500" height="270"></embed>
</object>

<%Else%>

<img src="images/design/<%=filename%>">

<%End if%>

<% If Right(rsDesign.Fields.Item("topimagename").Value, 3)="swf" Then %>

mm12010 - super enkel løsning. TAK
skylder dig point

Det er da det samme som jeg har lavet ?

man vel sige at der en overflødig if-sætning den øverst, men tilgengæld er det oz lcase-funktionen - så hvis vi siger at løsningen bliver sådan:

<% If Right(lcase(rsDesign.Fields.Item("topimagename")).Value, 3)="swf" Then %>

kan vi vel dele 50/50 - eller hvad ?-)

tak til jer begge - har delt i 2 :)

Det første ifstatement er da ikke overflødigt ? man får en grum fejl hvis man prøver at hive data ud af et tomt recordset

man må da formode at der er lavet et lingende tjeck tidligere, men ellers har du da helt ret !-)

og selv tak :o)

kan man ikke også bruge det på File.Name ? som her:

Response.Write "<div style='float: left;'><a href='../../images/design/" & File.Name & "' target='_blank'><%If Right(" & File.Name & ",3)="swf" Then%>
<img src='../../images/design/flash_icon.gif" & "' style='width:95px; height:75px; border:0; margin:2px 2px 2px 2px;'>
<%Else%>
<img src='../../images/design/" & File.Name & "' style='width:95px; height:75px; border:0; margin:2px 2px 2px 2px;'>
<%End if%></a>

eller kræver det nyt spørgsmål ?

jo det kan du sagtens

><%If Right(File.Name,3)="swf" Then%>

koden:
    <%If Right(File.Name,3)="swf" Then%>
    <img src='../../images/design/flash_icon.gif" & "' style='width:95px; height:75px; border:0; margin:2px 2px 2px 2px;'>
    <%Else%>
    <img src='../../images/design/" & File.Name & "' style='width:95px; height:75px; border:0; margin:2px 2px 2px 2px;'>
    <%End if%>


så skriver den:Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/webshop/admin/design/billede_oversigt.asp, line 60
Response.Write "<div style='float: left;'><a href='../../images/design/" & File.Name & "' target='_blank'>
----------------------------------------------------------------------------------------------------------^

Mangler du ikke bare en " til sidst ?

Response.Write "<div style='float: left;'><a href='../../images/design/" & File.Name & "' target='_blank'>"

så får jeg denne fejl:

Microsoft VBScript compilation error '800a0400'

Expected statement

/webshop/admin/design/billede_oversigt.asp, line 61

<%If Right(File.Name,3)="swf" Then

Hele koden:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

picture_file = Server.MapPath("../../images/design/"& Request.QueryString("file"))
    If FSO.FileExists(picture_file) Then
    FSO.DeleteFile picture_file, True
End If

Set Folder = FSO.GetFolder("d:\home\becausedk\www\webshop\images\design")
Count = 0
For Each File In Folder.Files
    Response.Write "<div style='float: left;'><a href='../../images/design/" & File.Name & "' target='_blank'>"
    <%If Right(File.Name,3)="swf" Then%>
    <img src='../../images/design/flash_icon.gif" & "' style='width:95px; height:75px; border:0; margin:2px 2px 2px 2px;'>
    <%Else%>
    <img src='../../images/design/" & File.Name & "' style='width:95px; height:75px; border:0; margin:2px 2px 2px 2px;'>
    <%End if%>
    </a><br>"& File.Name &"(<a href='"& Request.ServerVariables("SCRIPT_NAME") &"?file="& File.Name &"'>Slet</a>)</div>"
    Count = Count + 1
    If Count Mod 6 = 0 Then Response.Write "<br>"
Next

Set Folder = Nothing
Set FSO = Nothing
%>