Hvad er der galt her?

et gæt uden at vide hvad der sker eller ikke sker eller kommer af fejl

  Select Case Session("onlyvote")
        Case "0"
              strOV_DontCare = " checked"
        Case "1"
              strOV_Women = " checked"
        Case "2"
              strOV_Men = " checked"
        Case "3"
              strOV_Children = " checked"
    End Select

Der skulle ikke være noget galt med den kode du har vist. Hvordan bruge du de forskelle variable i resten af koden?

Der sker det samme...du kan prøve at kigge her: http://mdz.frip.dk/default.asp

Filen ser sådan her ud:

<%
    Set Rs = Conn.Execute("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,hits.raters FROM persons INNER JOIN hits ON hits.pid=persons.id WHERE persons.id=" & strPID)
    If Rs.BOF Then Response.Redirect "default.asp"

    Set CRs = Conn.Execute("SELECT id FROM shown WHERE sessionid='" & SessionID & "' AND pid=" & strPID)
    If CRs.BOF Then
        Conn.Execute "UPDATE persons SET shown=shown+1 WHERE id=" & strPID
        Conn.Execute "INSERT INTO shown (sessionid,pid,ip,datetime) VALUES ('" & SessionID & "'," & strPID & ",'" & RemoteAddress & "',now())"
    End If

    Set CRs = Conn.Execute("SELECT id FROM votes WHERE sessionid='" & SessionID & "' AND pid=" & strPID)
    bolHasVoted = (Not CRs.BOF)

    strName = Rs("name")
    strCity = Rs("city")
    strCountry = Rs("country")
    strText = Rs("text")
    strGender = Rs("gender")
    strPictureFile = Rs("picturefile")
    strRaters = Rs("raters"): If CLng("0" & strRaters) = 1 Then strRaters = strRaters & " stemme" Else strRaters = strRaters & " stemmer"
    strScore = FormatNumber("0" & Rs("score"), 2, True)

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

    If strText > "" Then strProfileContent = strText

    Select Case Session("onlyvote")
        Case "0","": strOV_DontCare = " checked"
        Case "1": strOV_Women = " checked"
        Case "2": strOV_Men = " checked"
        Case "3": strOV_Children = " checked"
    End Select

    If strLastPID > "" And IsNumeric(strLastPID) Then
        Set LastRs = Conn.Execute("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,hits.raters FROM persons INNER JOIN hits ON hits.pid=persons.id WHERE persons.id=" & strLastPID)
        If Not Rs.BOF Then
            If LastRs("name") > "" Then
                strLastProfileHead = LastRs("name")
                If LastRs("city") > "" Then strLastProfileHead = strLastProfileHead & ", " & LastRs("city")
                If LastRs("country") > "" Then strLastProfileHead = strLastProfileHead & " (" & LastRs("country") & ")"
            End If
            strLastRaters = LastRs("raters"): If CLng("0" & strLastRaters) = 1 Then strLastRaters = strLastRaters & " stemme" Else strLastRaters = strLastRaters & " stemmer"
%>
<center>
    <table border="0" cellpadding="4" cellspacing="2" bgcolor="#D3E4F8" width="75%">
        <tr><td bgcolor="#2072BE"><b>
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                    <td align="center">
                        <font color="#ffffff"><b>
                            Resultatet af afstemningen (<%=strLastRaters%>):<br>
                            <font size="5"><%=FormatNumber(LastRs("score"), 2, True)%></font>
                            <p>
                            <%=strLastProfileHead%>
                        </b></font>
                    </td>
                    <td align="center">
                        <table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" align="center">
                            <tr><td><img src="out_img.asp?pid=<%=strLastPID%>" alt="<%=LastRs("name")%>"><br></td></tr>
                        </table>
                    </td>
                </tr>
            </table>
        </b></td></tr>
    </table>
</center>
<hr class="gray_hr">
<%
        End If
    End If
%>
<br>
<form name="frmVote" action="default.asp" method="post">
<input type="hidden" name="mode" value="vote">
<input type="hidden" name="pid" value="<%=strPID%>">
<input type="hidden" name="gender" value="<%=strGender%>">
<center>
    <b>Jeg ønsker kun at stemme på :</b><br>
    <input type="radio" name="onlyvote" value="2"<%=strOV_Men%>>Mænd<input type="radio" name="onlyvote" value="1"<%=strOV_Women%>>Kvinder<input type="radio" name="onlyvote" value="3"<%=strOV_Children%>>Børn<input type="radio" name="onlyvote" value="0"<%=strOV_DontCare%>>Ligemeget<br>
    <table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr><td><img src="pictures/<%=strPID%>_<%=strPictureFile%>?<%=Rnd*10%>" alt="<%=strName%>"><br></td></tr>
    </table>
    <b><%=strProfileHead%></b>
    <p>
    <table border="0" width="75%">
        <tr><td><%=strProfileContent%></td></tr>
    </table>
    <p>
<%     If Not bolHasVoted Then %>
    <table border="0" cellpadding="4" cellspacing="2" bgcolor="#D3E4F8" width="75%">
        <tr><td bgcolor="#ffffff"><b>
            <center>
                Er personen HOT or not ?<br>
                <font size="4" color="#000000">NOT</font>
<%        For Index = 1 To 10 %>
                <input type="radio" name="vote" value="<%=Index%>" onclick="document.frmVote.submit();"><%=Index%>
<%        Next %>
                &nbsp;<font size="4" color="#ff0000">HOT</font>
            </center>
        </b></td></tr>
    </table>
<%    Else %>
    <table border="0" cellpadding="4" cellspacing="2" bgcolor="#D3E4F8" width="75%">
        <tr><td bgcolor="#2072BE"><b>
            <center>
            <font color="#ffffff"><b>Resultatet af afstemningen (<%=strRaters%>):</b></font><br>
            <font color="#ffffff" size="4"><%=FormatNumber(strScore, 2, True)%></font>
            <br>
            </center>
        </b></td></tr>
    </table>
<%    End If %>
    <br>
    <input type="submit" name="next_pic" value="Vis næste billede" class="btn">
    <hr class="gray_hr">
    <b>
        <a href="default.asp?mode=send_comment&pid=<%=strPID%>">Send en kommentar til personen</a>
        <p>
        Mener du dette er et <font color="#ff0000">fake</font> billede? Så fortæl os om det <a href="default.asp?mode=report_fake&pid=<%=strPID%>">her</a>.
        <p>
        Er du modig ? Tør du få sandheden om dig selv frem ?<br>
        <a href="default.asp?mode=confirm">Så deltag selv i afstemningen</a>
        <p>
        Eller deltager du allerede - så klik <a href="default.asp?mode=login&out=yes">her for at rette din profil</a>.
    </b>
</center>
</form>

Jeg får denne fejl når jeg går ind på siden, altså den ikke kan finde include filen inc_showprofile.asp :

/default.asp, line 27

The include file 'inc_showprofile.asp' was not found.

Prøv at tjek siden nu ;)

Ja så er Ligemeget valgt hvor man vælger mænd/kvinder/børn/ligemeget..

Den husker fint hvad jeg sidst har valgt.

ja...Men hvis du prøver at vælge f.eks mænd. Så sker der ikke noget?

Ja hvis jeg vælger noget andet en Ligemeget og trykker på næste billede får jeg denne besked:

Der er desværre ikke flere profiler :-(

sker der ikke noget? ser da ud til at virke fint bortset fra du ikke refererer rigtigt til billederne eller bare ikke har uploaded dem

Så må du vise den SQL du bruger til at finde næste billede som skal vises.

Tror i at det er fordi at der kun er 2 billeder i?

Ja det tror jeg faktisk.. Kan du ikke et par flere op..

Jeg har prøet at give point til begge billeder og så ville den godt vise dem som kun var mænd og dem som kun var børn...

Jeps det er fordi du kun har et billede det ser ud som om det ikke virker.

Nu har jeg lagt et i hver af dem...Mlnd/Kvinder/børn

jamen prøv f.eks at tryk på kvinder...Der sker ikke noget. ??

Mlnd = Mænd :)

jeg syntes da at der sker masser - men billederne ligger bare ikke hvor de burde

Så vidt jeg kan se har du laget to kvinder op dog den samme profil for begge.

Mænd og Børn komme med teksten "Der er desværre ikke flere profiler :-(" når man trykker næste billede.

Kvinder og ligemeget looper gennem profilerne og starter forfra. Det må være sådan scriptet er bygget op. Prøv at ligge en mand eller barn mere ind og se om de så ikke også starter forfra når sidste billede er nået.

Så er der uploadet et til.

Men prøv at kig her hvor der står "Jeg ønsker kun at stemme på :"

Hvis du trykker på en af dem, så kommer du ikke over til den kategori

Nej.. det har du ret i. For at komme vidre skal man skal enten give karakter for det billede man er kommet til eller skal man trykke på Vis næste billede.

Der er heller ikke noget i følge koden som skulle gøre man skiftede billede. Så skal hver radio som vælger køn, hvade en onClick som submitter form på samme måde som når man trykker på en karakter radio knap.

Mener du at der hvor der står "Radio" skal der stå "onClick" ?

Nå jeg smutter for i aften....

Altså i koden, ligesom "type=radio"

nej det skal være noget med:

<input type="radio" name="onlyvote" value="2"<%=strOV_Men%>>Mænd<input type="radio" name="onlyvote" value="1"<%=strOV_Women%> onClick="document.FORMNAVN.submit();">Kvinder

Form hedder  frmVote:

<input type="radio" name="onlyvote" value="2"<%=strOV_Men%>>Mænd<input type="radio" name="onlyvote" value="1"<%=strOV_Women%> onClick="document.frmVote.submit();">Kvinder

Det skal så laves for alle både mænd/kvinder/børn/ligemeget.

scriptet er lavet af tdaugaard (invisibleman) så jeg _tror_ der er tænkt på det hele og at det virke hvis det bliver sat ordentligt op...

... men hvad ved jeg :)

Ja, men ingen har rigtig fået det til at virke, altså scriptet.

lukker - og det hjalp ikke særligt meget

JEg har fået det til at virke med ASPUpload også.
Har arbejdet på det i 2 dage nu og nu virker det sku. :))))