Sti til billed

Lige nu førsøger den at vise to biller:

pictures/Mats-Nyt1.JPG
pictures/Picture 79.jpg


Det kunne tyde på de ikke findes på serveren. HVis man kigger i på første side viser den billedet:

pictures/1_Picture 79.jpg

Det ene sted hedder det 1_Picture 79 det anden uden 1_

Dette viser billet: http://www.mats1122.frip.dk/pictures/1_Picture 79.jpg
Dette viser ikek billet: http://www.mats1122.frip.dk/pictures/Picture 79.jpg

Så bilederne som der linkets til fra siden "Seneste 25 mænd" findes ikke på serveren.

hmm, hvordan kan det være at den ikke har det samme filnavn på billedet ?

Ja det virker noget underligt hvis det er samme kolonne den anden skriver ud fra?

Den side man kommer ind på hvordan ser den tilsvarne kode ud som udskriver billet?
<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>

Du kan lige få hele inc.list filen:

<%
    strSQL = "SELECT persons.*,((hits.vote1+hits.vote2+hits.vote3+hits.vote4+hits.vote5+hits.vote6+hits.vote7+hits.vote8+hits.vote9+hits.vote10) / hits.raters) AS score FROM persons INNER JOIN hits ON hits.pid=persons.id WHERE persons.gender=" & strGender
    Select Case strType
        Case "0": strSQL = strSQL & " ORDER BY persons.id DESC;"
        Case "1": strSQL = strSQL & " AND hits.raters>" & RatersBeforeTop & " ORDER BY score DESC;": strSub = "<span class='small'>Man skal have over " & RatersBeforeTop & " stemmer for at komme på en Top liste!</span>"
    End Select
%>
<br>
<center>
    <span class="head"><%=Page_Header%></span><br>
    <%=strSub%>
</center>
<%
    Set Rs = Conn.Execute(strSQL)
    If Rs.BOF Then
        Response.Write "<hr>Der er desværre ingen personer at vise :-("
    Else
        PIndex = 1
        Do Until Rs.EOF
            strName = Rs("name")
            strCity =Rs("city")
            strCountry = Rs("country")
            strText = Rs("text")

            If strName > "" Then
                strProfileHead = strName
                If strCity > "" Then strProfileHead = strProfileHead & ", " & strCity
                If strCountry > "" Then strProfileHead = strProfileHead & " (" & strCountry & ")"
            End If

            If strText > "" Then strProfileContent = strText Else strProfileContent = ""
            If Len(strProfileContent) > 100 Then strProfileContent = Left(strProfileContent, 100) & "..."

            Set CRs = Conn.Execute("SELECT id FROM votes WHERE sessionid='" & SessionID & "' AND pid=" & Rs("id"))
            bolHasVoted = (Not CRs.BOF)
%>
<hr>
<table border="0" cellpadding="2" cellspacing="0" width="100%">
    <tr>
<%            If strType = "1" Then %>
        <td align="center" valign="top" width="20"><font size="4"><%=PIndex%>.</font></b></td>
<%            End If %>
        <td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>
        <td valign="top">
            <b><%=strProfileHead%></b>
            <p>
            <%=strProfileContent%>
        </td>
<%            If bolHasVoted Then %>
        <td bgcolor="#2072BE" width="52" align="center"><b>
            <span class="score"><%=FormatNumber(Rs("score"), 2, True)%></span><br>
        </b></td>
<%            End If %>
    </tr>
</table>
<%
            Rs.MoveNext
            PIndex = PIndex + 1
        Loop
    End If
%>

Når man går ind på denne side:
http://www.mats1122.frip.dk/default.asp?pid=1

Kommer der et billede fra, hvordan ser koden ud som viser det billede?

<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr><td><img src="pictures/<%=strPID%>_<%=strPictureFile%>?<%=Rnd*10%>" alt="<%=strName%>"><br></td></tr>
    </table>

Billet hedder PID_billedenavn

Så det må være i dette det skal med:

<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>

hvordan ser filen  out_img.asp  ud?

Den ser sådan her ud:

<!--#include file="inc_settings.asp" -->
<%
    Response.ContentType = "image/jpeg"

    strPID = Request("pid")

    If strPID > "" And IsNumeric(strPID) Then
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER=mysql; SERVER=" & sql_Server & "; DATABASE=" & sql_DB & "; UID=" & sql_UID & "; PWD=" & sql_PWD

        Set Rs = Conn.Execute("SELECT picturefile FROM persons WHERE id=" & strPID)
        If Not Rs.BOF Then
            Set Image = Server.CreateObject("AspImage.Image")

            Image.LoadImage Server.MapPath("pictures/" & strPID & "_" & Rs("picturefile"))

            intRatio = ((75 * 100) / Image.MaxX)
            intNewY = CInt(Image.MaxY * (intRatio / 100))
            Image.ResizeR 75, intNewY
            Image.ImageFormat = 1

            Response.BinaryWrite Image.Image

            Set Image = nothing   
        End If
    End If
%>

http://www.eksperten.dk/spm/290021

//>Rune

medions >> Ved det, men du skrev ikke igen...

Er du sikker på det kode du har vist udksriver Seneste 25 mænd ??

HVad sker det i default.asp når linket ser sådan her ud:

http://www.mats1122.frip.dk/default.asp?mode=list&gender=2&type=0

For hvis det som viser billet på i "Seneste 25 mænd siden"  er dette styk kode:

<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>


Ville filnavnet være rigtigt og billedet blive vist. Om ikke andet ville der være en _ foran selv filnanvet hvis ID gik tabt.

eagleeye >>> Ja, den bliver jo vist fra "inc.list" ik ?

Det jeg mener er hvis denne skulle vise billet:

<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>

Ville der også være et link på billet når man trykker på det så vises default.asp siden. Men ja det ser ud som om resten passer....

Hvad hvis du prøver at rette:

<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>

Til:

<td width="75" valign="top"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></td>

uden linket..

Dette i linie.

<img src="out_img.asp?pid=<%=Rs("id")%>" ...

Vil ikke bliver til dette i HTML koden

<img src="pictures/Mats-Nyt1.JPG" ...


Men eksvis <img src="out_img.asp?pid=3" ...

Den her virker heller ikke:

<td width="75" valign="top"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></td>

Prøv at se på siden.

Lad os lige blive enige om noget.. Jeg har læst dit "gamle" spørgsmål omkring det samme op den fil som viser Senest 25 mænd er denne fil:  ?

inc_list.asp

ja, det er filen: inc_list.asp

Ja så ser linket mere rigtigt ud..:

PRøv at ændre:
<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>


Til:

<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="pictures/<%=Rs("id")%>_<%=rs("picturefile")%>" border="0" alt="<%=Rs("name")%>"></a></td>

Så bliver det uden resize... men den skulle gerne vise billet.

nu virker det sgu :D Tak :) læg lige et svar

Men kan du ik lave den med resize ?? Så billedet ikke bliver så stort ?

Ja den viser billerne men det som resizer er i filen out_img.asp
.....det forsår jeg ikke helt hvorfor den ikke vil det..

ja, det er lidt mærkeligt :/ For billederne skal jo ikke være så store..

Prøv at rette out_img.asp til dette:


<!--#include file="inc_settings.asp" -->
<%
    Response.ContentType = "image/jpeg"

    strPID = Request("pid")

    If strPID > "" And IsNumeric(strPID) Then
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER=mysql; SERVER=" & sql_Server & "; DATABASE=" & sql_DB & "; UID=" & sql_UID & "; PWD=" & sql_PWD
        Set Rs = Server.CreateObject("ADODB.Recordset")

        Set Rs = Conn.Execute("SELECT picturefile FROM persons WHERE id=" & strPID)
        If Not Rs.BOF Then
            Set Image = Server.CreateObject("AspImage.Image")

            Image.LoadImage Server.MapPath("pictures/" & strPID & "_" & Rs("picturefile"))

            intRatio = ((75 * 100) / Image.MaxX)
            intNewY = CInt(Image.MaxY * (intRatio / 100))
            Image.Resize 75, intNewY
            Image.ImageFormat = 1

            Response.BinaryWrite Image.Image

            Set Image = nothing   
        Else
          Response.write "XXXX"
        End If
        Rs.Close
        Conn.Close
  Else
      Response.write "YYYY"
  End If
%>

og ret koden tilbage til det oprindelige...:

<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>"><img src="out_img.asp?pid=<%=Rs("id")%>" border="0" alt="<%=Rs("name")%>"></a></td>

Nu viser den ikke noget billed igen..

Prøv lige at trykke på dette link:
http://www.mats1122.frip.dk/out_img.asp?pid=3

Det kunne type på serveren ikke under stytter ASPImage.

det understøtter de ikke :( er det så det fejlen er ?

Vil det så sige at når man for ASPImage på, så virker det ?

Ja det er en kompunent som skal installere på serveren.

Du kan ikke hente img src via noget output fra en anden fil.
Du bliver nør til at flytte din resize kode til default.asp og lave det som en funktion som du så kan kalde der hvor billederne skal vises.

Function funkResize(picture)
<!--#include file="inc_settings.asp" -->
<%
    Response.ContentType = "image/jpeg"

            Set Image = Server.CreateObject("AspImage.Image")

            Image.LoadImage Server.MapPath("pictures/" & picture)

            intRatio = ((75 * 100) / Image.MaxX)
            intNewY = CInt(Image.MaxY * (intRatio / 100))
            Image.Resize 75, intNewY
            Image.ImageFormat = 1

            Response.BinaryWrite Image.Image

            Set Image = nothing   
        Else
          Response.write "XXXX"
        End If
  Else
      Response.write "YYYY"
  End If
%>
End Function

<td width="75" valign="top"><a href="default.asp?pid=<%=Rs("id")%>">
<img src="pictures/<% funkResize(Rs("id") & "_" & rs("picturefile"))%>" border="0" alt="<%=Rs("name")%>"></a></td>

Lukker du spørgsmålet?

Hvis du ikke har købt ASPImage siden 2003, synes jeg, at du bør lukke dette spm.