Billed vises ikke ??

Det er fordi sti'en til din billedefil ikke er korrekt!

//>Rune

Hvordan ser dit out_img.asp script ud? Det må jo være dér fejlen ligger...

Sorry.. Min fejl.. Det er her det er galt:

<img src="out_img.asp?pid=2" border="0" alt="Mats">

du skriver en ASP sti der hvor navnet på dit billede skulle være!

fx.
<img src="billeder/billedenavn.gif" border="0" alt="Mats">

//>Rune

OKay, og det skal jeg gøre i out_img.asp ??

Ja... Prøv at giv mig den kode som er i out_img.asp!

//>Rune

<!--#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
%>

Det er ikke det hele! -jeg skal bruge det hele!

//>Rune

Det er alt hvad jeg har i "out_img.asp" filen ?

Men det sted i din kode hvor du har flg:

<img src="out_img.asp?pid=2" border="0" alt="Mats">

Skal du istedet for skrive:

<img src="<%= Rs("picturefile") %>" border="0" alt="Mats">

//>Rune

Ahh det er fordi det er i default.asp?mode=list fejlen ligger! -lad mig lige få den fil!

//>Rune

<!--#include file="inc_system.asp" -->
<html>
<head>
    <title>Hot or Not ;-)</title>
    <meta http-equiv="pragma" content="nocache">
    <%
      'objConn.Open "Driver={mySQL}; Server=localhost; Port=3306; Option=131072; Stmt=; uid=admin; pwd=?;"
    %>
<link rel="stylesheet" type="text/css" href="hotornot.css">
</head>
<body bgcolor="#ffffcc">
<center><IMG SRC="hot.bmp" border=0></center>
<br>
<table width="0%" border="0" cellspacing="0" cellpadding="0" align="center" height="0" bgcolor="#FFFFFF">
        <tr>
          <IFRAME SRC="http://www.aboom.net/adsystem/sys_46860/index.asp?id=9625172" WIDTH="468" HEIGHT="60" FRAMEBORDER="0" MARGINWIDTH="0" MARGINHEIGHT="0" SCROLLING="no">
</IFRAME> </td>

        </tr>
      </table>

<center>
    <table border="0" cellpadding="4" cellspacing="0" width="620">
        <tr><td>
            <!--#include file="inc_menu.asp" -->
<%
    If strMode = "" Then                %><!--#include file="inc_showprofile.asp" --><% End If
    If strMode = "list" Then            %><!--#include file="inc_list.asp" --><% End If
    If strMode = "send_comment" Then    %><!--#include file="inc_sendcomment.asp" --><% End If
    If strMode = "commentsent" Then        %><!--#include file="inc_commentsent.asp" --><% End If
    If strMode = "report_fake" Then        %><!--#include file="inc_reportfake.asp" --><% End If
    If strMode = "login" Then            %><!--#include file="inc_editprofile.asp" --><% End If
    If strMode = "edit_profile" Then    %><!--#include file="inc_edit_profile.asp" --><% End If
    If strMode = "confirm" Then            %><!--#include file="inc_signup_confirm.asp" --><% End If
    If strMode = "signup" Then            %><!--#include file="inc_signup.asp" --><% End If
    If strMode = "read_comments" Then    %><!--#include file="inc_readcomments.asp" --><% End If
    If strMode = "read_comment" Then    %><!--#include file="inc_readcomment.asp" --><% End If
    If strMode = "upload_new" Then        %><!--#include file="inc_uploadnew.asp" --><% End If
    If strMode = "pic_stat" Then        %><!--#include file="inc_edit_stats.asp" --><% End If
    If strMode = "np" Then                %><!--#include file="inc_np.asp" --><% End If
%>
            <hr>
            <center>Copyright © Thomas Daugaard - Mats Sundsdal</center>
        </td></tr>
    </table>
</center>
</body>
</html>

LOL dit system er sq underligt sat op!! :-D
Men okay, nu mangler jeg bare inc_list.asp så skulle vi vidst vær eder :-)

//>Rune

Hehe :D

<%
    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
%>

Hmm din kode er for uoverskuelig til jeg lige kan overskue den... Men prøv med dette

<a href="default.asp?pid=<%=Rs("id")%>"><img src="<%= rs("picturefile") %>">" border="0" alt="<%=Rs("name")%>"></a>

//>Rune

Og det skal sættes ind istedet for:

<a href="default.asp?pid=<%=Rs("id")%> ??

yep :o)

//>Rune

Nej, jeg tro heller ik det var det.. For nu er der 2 billed boxer ?

Hmm jeg kan ikke se du har rettet det?!

//>Rune

Det er fordi jeg lige har slettet det igen... Vil du se det?

Men den lavede en billedbox mere... Og nogle tegn efter..

Tror du ik at man skulle lave om på hele den her:

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

istedet for kun:

<a href="default.asp?pid=<%=Rs("id")%>

Nej, det var heller ik det..

Halo, hvis jeg skal hjælpe dig skal du læse hvad jeg skriver!
Dette
<a href="default.asp?pid=<%=Rs("id")%>"><img src="<%= rs("picturefile") %>">" border="0" alt="<%=Rs("name")%>"></a>

er hvad du skal bruge! -Det er ikke din Anchor-tag der skla laves om, kun din Image-tag!

//>Rune

ja, og <a href="default.asp?pid=<%=Rs("id")%>"><img src="<%= rs("picturefile") %>">" border="0" alt="<%=Rs("name")%>"></a>

Skal sættes ind hvor?

<%
    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="<%= rs("picturefile") %>">" 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
%>

//>Rune

det var heller ik det...prøv at kig.

Sorry...

<%
    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="<%= rs("picturefile") %>" 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
%>

Du skal jo oxo huske at definere i hvilket bibliotek dine billedefiler ligger i forhold til din dokument kode! -i hvilket dir ligger dine billeder i?

//>Rune

Prøv lige med denne:

<%
    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="pictures/<%= rs("picturefile") %>" 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
%>

//>Rune

Ingen af dem virker..

Og min mappe til billederne hedder: pictures

lukker fik det ikke lavet