Response.Write("<img src='http://" & GetFileName & "'>")

Response.Write("<img src=""" & GetFileName & """>")

Men mangler du ikke en extension på dit billednavn? .jpg / .gif

hmm den virker ikke.... hvordan vil sætningen se ud med extensions? jeg har 3 typer... .jpg .jpeg og .gif

linksne fra før ser sådan ud file:///c:/inetpub/wwwroot/billeder/23.jpg

spørg løs hvis ikke i har forstået spørgsmålet.. det eneste scriptet skal er at fremvise et billede som ligger i samme folder... problemet er at den ikke tager url stien men stien på min pc

jeg er kommet lidt tættere på det jeg vil nu... men der er stadig fejl i

Response.Write("<img src=/""" & GetFileName & """>")

linket ser nu sådan ud

http://62.243.78.74/"c:/inetpub/wwwroot/billeder/39.jpg"

linket skulle gerne se sådan ud

http://62.243.78.74/billeder/39.jpg

Har du billed navnene (evt. stien) i databasen
Eller
Læser du den direkte fra "mappen" på webserveren?

de bliver læst direkte fra mappen...stien er ikke angivet i databasen

kan du ikke skrive lidt af koden??

Af og til kan brugen af Server.MapPath drille. Hvis du siger billederne findes i samme folder kan du fjerne kommandoen Server.MapPath. Eks.

function GetFileName
  GetFileName = Server.MapPath("\" & rs("FileName"))
end function

ændres til:

function GetFileName
  GetFileName = rs("FileName")
end function

hele scriptet ser sådan ud...
hvordan kan jeg få den funktion til at virke i det?


<%@ 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 = Server.MapPath(strID & ".gif")
  else
    if objFSO.FileExists(Server.MapPath(strID & ".jpg")) then
      GetFileName = Server.MapPath(strID & ".jpg")
    else
      GetFileName = "Does not exist"
    end if
  end if
  Set objFile = Nothing
  Set objSFO = Nothing
end function

sub VisInfo
  Response.Write("<html><head><LINK HREF='styles.css' REL='stylesheet' TYPE='text/css'></head>")
  Response.Write("<body><h3><p align='center'>The Picture</p></h3>")
  Response.Write("<hr width='90%' align='center'>")

  Response.Write("<form method='POST' action='default.asp'>")
  Response.Write("<div align='center'><table>")
  Response.Write("<table width='90%'>")
    ' *** Submitknap bestemmer om der skal postes eller fortrydes ***
    Response.Write("<tr>")
      ListHeader "Title", "20%"
      RowInputStr "EditTitel", RS("Titel"), 30, "80%"
    Response.Write("</tr>")
    Response.Write("<tr>")
      ListHeader "From", "20%"
      RowInputStr "EditNavn", RS("Navn"), 50, "80%"
    Response.Write("</tr>")
    Response.Write("<tr>")
      ListHeader "Added", "20%"
      RowInputStr "EditDato", RS("Dato"), 50, "80%"
    Response.Write("</tr>")
  Response.Write("</table>")
  ' *** Knapper i bunden ***
  Response.Write("<hr width='90%' align='center'>")
  Response.Write("<table width='90%'>")
    NewSmallButton "submit", "submit", "Back"
  Response.Write("</table>")
  Response.Write("</table></div>")
  Response.Write("</form>")
  ' *** 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("info.mdb")
' Opret RecordSet
Set rs = Server.CreateObject("ADODB.RecordSet")
' Hent første post i tabellen tabelnavn
rs.Open "SELECT * FROM info where ID=" & strID, myConn

VisInfo

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

Response.Write("</body></html>")
%>

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 = "Does not exist"
    end if
  end if
  Set objFile = Nothing
  Set objSFO = Nothing
end function

hvis billederne altså ligger i samme mappe..:)

og fjern / og "" "" fra
Response.Write("<img src='/"""&GetFileName&"""'>")

Response.Write("<img src='"&GetFileName&"'>")

tak for hjælpen a1

det virkede perfekt!:)

selv tak....:)

a1