et link

Response.Write("<a href=""http://www.eksperten.dk""><img src='"&GetFileName&"'></a>")

//>Rune

Tænker på sådan hvor GetFileName er kendt:


site = "http://www.eksperten.dk"

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

Ellers hvis det er sådan her du mener:

<%
Function LinkTekst(Tekst)
LinkTekst = ""
A_Start = 1

if InStr(Tekst, "http://") then
  do until A_Start >= len(Tekst)
  LinkChr = InStr(A_Start, Tekst, "http://")
  NextSpace = InStr(LinkChr, Tekst, " ")

  if NextSpace = 0 then NextSpace = Len(Tekst) + 1

  URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

  LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
  LinkTekst = LinkTekst & "<A Href=" & Chr(34) & URL & Chr(34) & ">" & URL & "</A>"

  if Int(LinkChr) = Int(InStrRev(Tekst, "http://")) then
    LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
  else
    A_Start = NextSpace
  end if
  loop
else
  LinkTekst = Tekst
end if
End Function
%>

//>Rune

hmm sådan her:

site = "http://www.eksperten.dk"

Response.Write "<img src='" & site & "/" & GetFileName & "'>"

eagleeye:

jeg får denne fejl...
<img src='

eller den skriver ikke at der er fejl men det er det der kommer frem istedet for et billede..

Medions:
Din første metode skrev kun url'en og tilføjede ikke getfilename så billede kom heller ikke frem..

til nummer 2 mulighed du vidste... ja den tør jeg slet ikke rode ved:)

eagleeye:

jeg skrev det sådan her

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

Prøv sådan her så :

site = "http://www.eksperten.dk"
GetFileName = "billede.jpg"

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

Skriv det sådan he her så den tror http:// er en variable og ikke en sreng:

Response.Write "<img src='" & "http://www.eksperten.dk" & "/" & GetFileName & "'>"

eagleeye: jeg troede lige den gik, men nu skriver den at den ikke kan finde billedet i min url ... jeg ved billederne er der:)

sådan ser det ud
http://url/Does%20not%20exist

her er lige resten af scriptet.. det kan være jeg har udelagt noget vigtigt


<%@ 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 = "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='" & "http://www.url.dk" & "/" & 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>")
%>

Kan du vise hele image tagen når den sår som HTML kode ?

Mit gøt er at getFileName returnere "Does not exist"
Da filen ikke finden på den site asp filen ligger på..

huh?:) scriptet virker fint når image filerne ligger i samme folder som scriptet... dvs denne metode  Response.Write("<img src='"&GetFileName&"'>")

men det burde vel stadig virke når selv om de ikke ligger i samme folder og på samme server for den sags skyld

den ligger sørgeligt nok heller ikke på samme site...

kan man ikke bare bruge en anden metode end Response.Write?

du hendter en id:
strID = request.QueryString("ID")

functionen GetFileName tjekker på om der findes en fil som hedder strID & ".gif" eller ".jpg". Men det er på samme site/folder som ASP filen ligger.

Så billede filen strID enten som GIF eler JPG så vil den skriver "Does not exist" som filnavn.

Prøv evt at skrive et kendt filnavn i stedet for GetFileName, så skulle den vise billedet.


Response.Write "<img src='" & "http://www.url.dk" & "/" & "billede.gif" & "'>"

hmm der skulle står:
Hvis den ikke kan finde billede filen strID enten som GIF eler JPG så vil den skriver "Does not exist" som filnavn, og denne billede fil skal ligge i samme folder som ASP filen.

jeg skal bruge get file name fordi når jeg uploader et billede, så ændre mit script automatisk billede navnet til et tal [ID] dvs.. første upload hedder for eksempel. 1.jpg anden upload hedder 2.jpg..
Skriver jeg billede.gif kommer det billede frem ligemeget hvilket billede man rigtigt vil se:)

kan man så ikke skrive <% strId %> efter url eller sådan noget?

Jeg ved ikke om man kan tjekke på en fil findes på en anden site..

Eller kan du skrive noget i stil med dette, men de forusætter at filen så ender på .jpg:

Response.Write "<img src='" & "http://www.url.dk" & "/" & strID & ".jpg" & "'>"

jeg mener noget lignende <% = Id %> da billedet har samme navn som sit id

Du er for sej i dag! Det virkede!:=) jeg fjerner bare .gif... så kan jeg sgu bare uploade jpg filer istedet