vis et billed i en asp fil

du kan gøre sådan


    <%@ LANGUAGE="VBSCRIPT"%>
    <% Response.Expires = 0 %>
    <!-- #include file="html.inc" -->
    <%
strID = request.QueryString("ID")

function GetFileName
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  if objFSO.FileExists(Server.MapPath(strID & ".gif")) then
    GetFileName = strID & ".gif"
  else
    if objFSO.FileExists(Server.MapPath(strID & ".jpg")) then
      GetFileName = strID & ".jpg"
    else
      GetFileName = "ikkefundet.jpg"
    end if
  end if
  Set objFile = Nothing
  Set objSFO = Nothing
end function

sub VisInfo
 
  ' *** Vis billede ***
  Response.Write("<div align='center'>")
Response.Write("<img src='"&GetFileName&"'>") 
 

  Response.Write("</div>")
end sub

' Opret ADO-connection
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DATABASE.mdb")
' Opret RecordSet
Set rs = Server.CreateObject("ADODB.RecordSet")
' Hent første post i tabellen tabelnavn
rs.Open "SELECT * FROM TABEL where ID=" & strID, myConn

VisInfo

' Luk det hele igen
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing

%>

id.. og dine billede skal have navnet på dit id! det kræver selvfølgelig at de bliver ændret når du uploader dem..

Luk spørgsmålet:)

balduren du savnes efterhånden