If-sætning...

Select case Id
case 1
gør noget
case 2
gør noget andet
end select

/Jimmi

lyder som om der mangler nogle \"end if\"\'er

Øhh... Uddyb venligst den... Skal jeg ændre alle mine If-sætninger..?

Ok, det var et skud i tågen, jeg fatter ikke helt hvad du spørger om, måske du skulle poste noget kode istedet.

Nej... Problemet er at jeg får ingen fejl..
jeg glemte at skrive at formen er cirka sår\'n:
<% If id = 1 Then%>

ElseIf grp = web Or grp = ref Then

<% If Id = 2 Or id = 5 Then%>

Vi du have hele koden..?

Der er end if\'er på de forskellige..!

(selv om id er 2 og jeg ikke sender nogen grp, så lapper de stadig oveni hinanden... Så at den først udskriver tablen for grp\'erne og så for id = 2 Or 4...) = sort snak!

Giv mig hele koden.

<!-- #include file = include/placering.asp -->

<%
Dim id, Query, fla, grp

    id = Request.QueryString (\"id\")
    fla = Request.QueryString (\"fla\")
    strGrp = Request.QueryString(\"grp\")

\' BROWSER TJEK
    strUA = Request.ServerVariables(\"HTTP_USER_AGENT\")

    \' Hvad skal regnes for, at være en gammel browser?
    reqIE        = \"4.00\"    \' Skal være X.XX    Det er incl. og mindre end!
    reqNet        = \"4.00\"    \' Skal være X.XX
    reqOpera    = \"4.00\"    \' Skal være X.XX

        If InStr(strUA, \"Mozilla\") Then  \' Jeg fandt en Mozilla

            If InStr(strUA, \"compatible;\") = 0 _
                And InStr(strUA, \"Opera\") = 0 Then  \' Satser på det er en Netscape
                fla = 0
               
            Else  \' Ok, det var altså ikke en Netscape

                If InStr(strUA, \"Opera\") Then
                \' Mon ikke det er en Opera browser? :o)
                    fla = 0                   
                Else
                    \' Ukendt browser
                    fla = 0
                End If

            End If

        End If

\'TJEK for fejl

    If fla > 1 Or fla < 1 Then
        fla = 0
    End If


    If id < 1 Then
        id = 1
    End If

    Set Query= Conn.Execute (\"SELECT * From main Where id =\" & id &\"\")

    \'Tekst til knapper
        knap1 = \"Til forsiden...\"
        knap2 = \"Design opgaver fra mit kursusforl&oslash;b på Nordjyllands Mediecenter...\"
        knap3 = \"\"
        knap4 = \"Mine referencer...\"
        knap5 = \"Info og Kontakt...\"

    Response.Write \"<html><head>\"

    If Query(\"titel\") <> \"\" Then    
        Response.Write \"title>..:: NogetFx - \" & Query(\"titel\") &\"::..</title>\"
    Else
        Response.Write \"<title>..:: NogetFx - Portfolie ::..</title>\"
    End If

If Query(\"background_main\") <> \"\" Then %>
    <style type=\"text/css\">
        .back_main {
            background-color : #ffffff;
            background-image: url(\"pic/<%=Query(\"background_main\")%>\");
            background-position: 310px;
            background-repeat: no-repeat;
            background-attachment: fixed
            }
    </style>
<% Else %>
    <style type=\"text/css\">
        .back_main {
            background-color : #ffffff;
            background-image: url(\"pic/background_main.gif\");
            background-position: 310px;
            background-repeat: no-repeat;   
            background-attachment: fixed
            }
    </style>
<% End If%>

<link rel=\"stylesheet\" type=\"text/css\" href=\"include/noget.css\">
           
</head>

<body leftmargin=0 rightmargin=0 topmargin=0 bottommargin=0 scroll=auto>

<table cellpadding=\"0\" cellspacing=\"0\" width=100%\" height=\"100%\" border=\"0\">
    <tr>
        <td bgcolor=\"#566783\" align=\"center\" valign=\"middle\">

<!-- Indhold-Table -->
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"677\">
    <tr>
        <td class=\"topbar\" height=\"20\" colspan=\"2\">
            &nbsp;</td>
    </tr>
<!-- main -->
    <tr>
        <td width=\"70\" bgcolor=\"#ffffff\">
            &nbsp;</td>
        <td class=\"back_main\" height=\"344\">
            <% If id = 1 Then%>
                <table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">
                <ul type=\"circle\">
                    <tr>
                        <td colspan=\"2\" height=\"25\" valign=\"middle\" class=\"h2\">Min Portfolie</td>
                    </tr>
                    <tr>       
                        <td height=\"22\" width=\"17\"><li></td>
                        <td><a href=\"default.asp?fla=<%=fla%>&id=2\" class=\"forside\" onMouseOver=\"window.status=\'<%=knap2%>\';return true\" onMouseOut=\"window.status=\'<%=knap2%>\';return true\" onClick=\"window.status=\'<%=knap2%>\';return true\">
                                <%=knap2%></a></td>
                    </tr>   
                    <tr>
                        <td height=\"22\" width=\"17\"><li></td>
                        <td><a href=\"default.asp?fla=<%=fla%>&id=4&grp=ref\" class=\"forside\" onMouseOver=\"window.status=\'<%=knap4%>\';return true\" onMouseOut=\"window.status=\'<%=knap4%>\';return true\" onClick=\"window.status=\'<%=knap4%>\';return true\">
                                <%=knap4%></a></td>
                    </tr>
                    <tr>
                        <td height=\"22\" width=\"17\"><li></td>
                        <td><a href=\"default.asp?fla=<%=fla%>&id=5\" class=\"forside\" onMouseOver=\"window.status=\'<%=knap5%>\';return true\" onMouseOut=\"window.status=\'<%=knap5%>\';return true\" onClick=\"window.status=\'<%=knap5%>\';return true\">
                                <%=knap5%></a></td>
                    </tr>
                </ul>
                </table>
               
        <%    \'GRP = WEB/REF OPLISTET
                ElseIf grp = web Or grp = ref Then
               
                    \' Først finder vi ud af hvad vores paging side er på nu
                        Page = Trim(Request(\"page\"))
                        If Page = \"\" Then Page = 1
                                   
                      \' Vores SQL-forespørgsel vi ønsker page
                        Sql = \"SELECT * FROM main Where grp = \'\" & strGrp & \"\'\"

                        Set rs = Server.CreateObject(\"ADODB.Recordset\")
                        rs.CursorType = adOpenStatic
                   
                        rs.PageSize = 2
                   
                          rs.Open(Sql), Conn, 1, 3

                      \' et lille trick der gør at hvis ens forespørgsel er tom, så får man ikke en fejl
                        If Not rs.EOF Then
                              rs.AbsolutePage = cINT(Page)
                              rowCount = 0
                        End If
                %>
                <br>
                <br>
                <table cellpadding=\"0\" cellspacing=\"0\" border=\"1\" width=\"550\" height=\"90%\">
                    <tr>   
                        <td height=\"30\" class=\"h2\" colspan=\"2\">
                            <%=Query(\"head\")%></td>
                    </tr>
                    <tr>
                        <td height=\"2\" bgcolor=\"#566783\">
                            <img src=\"pic/space.gif\" height=\"2\" width=\"1\" border=\"0\"></td>
                        <td width=\"30%\" align=\"left\">
                            <img src=\"pic/streg.gif\" border=\"0\" height=\"2\"></td>
                    </tr>
                    <tr>
                        <td align=\"left\" valign=\"top\" colspan=\"2\">
                <%
                   
                        \' her laver vi en løkke der henter vores records ud
                        While Not rs.EOF and rowCount < rs.PageSize    
   
                        counter=counter+1                                                 
                %>
                            <br>
                            <table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">
                                <tr>
                                    <td rowspan=\"2\" width=\"220\" align=\"center\" valign=\"top\">
                                    <% If rs(\"site\") <> \"\" Then %>   
                                        <a href=\"<%=rs(\"site\")%>\" target=\"_blank\" claas=\"h2page\" onMouseOver=\"window.status=\'<%=rs(\"head\")%>\';return true\" onMouseOut=\"window.status=\'<%=rs(\"head\")%>\';return true\" onClick=\"window.status=\'<%=rs(\"head\")%>\';return true\">
                                    <% End If %>
                                            <img src=\"pic/screen/<%=rs(\"img\")%>\" border=\"0\"></a></td>
                                    <td width=\"300\" valign=\"top\" class=\"h2\" height=\"20\">
                                    <% If rs(\"site\") <> \"\" Then %>
                                        <a href=\"<%=rs(\"site\")%>\" target=\"_blank\" class=\"h2\" onMouseOver=\"window.status=\'<%=rs(\"head\")%>\';return true\" onMouseOut=\"window.status=\'<%=rs(\"head\")%>\';return true\" onClick=\"window.status=\'<%=rs(\"head\")%>\';return true\">
                                    <% End If %>       
                                            <%=rs(\"head\")%></a></td>
                                </tr>
                                <tr>
                                    <td valign=\"top\">
                                        <%=rs(\"text\")%></td>
                                </tr>
                            </table><br><br>
                <%       
                   
                        rowCount = rowCount + 1
                            rs.Movenext
                        Wend
                       
                %>       
                        </td>                        
                    </tr>
                    <tr>
                        <td colspan=\"2\" valign=\"middle\" align=\"right\" height=\"10\">
                            <%
                            If Page > 1  Then
                                If page = rs.AbsolutePage Then
                                    Response.Write \"<a href=default.asp?fla=\" & fla & \"&grp=\" & strGrp & \"&id=\" & id & \"&page=\" & Page - 1 & \" class=\'arrowtext\'>Til Forrige side</a>\"
                                End If
                                Response.Write \"<a href=default.asp?fla=\" & fla & \"&grp=\" & strGrp & \"&id=\" & id & \"&page=\" & Page - 1 & \" class=arrow>&lt;&lt;</a>\"
                            Else
                                Response.Write \"&nbsp;\"
                            End If

                            Response.Write \"&nbsp;\"

                            If Clng(Page) < Clng(rs.PageCount) Then
                                If page = 1 Then
                                    Response.Write \"<a href=default.asp?fla=\" & fla & \"&grp=\" & strGrp & \"&id=\" & id & \"&page=\" & Page + 1 & \" class=\'arrowtext\'>Til n&aelig;ste side&nbsp;</a>\"
                                End If
                                Response.Write \"<a href=default.asp?fla=\" & fla & \"&grp=\" & strGrp & \"&id=\" & id & \"&page=\" & Page + 1 & \" class=arrow>&gt;&gt;</a>\"
                            Else
                                Response.Write \"&nbsp;\"
                            End If

                            Response.Write \"&nbsp;&nbsp;&nbsp;\"%></td>
                    </tr>
                </table>
            <% End If %>
            <% If Id = 2 Or id = 5 Then%>
   
            <% End If %>
        </td>
    </tr>
<!-- menu -->
    <tr>
        <td class=\"back_menu\" height=\"32\" valign=\"middle\" colspan=\"2\">
    <% If fla = 1 Then%>
            fla menu
    <% Else %>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        &nbsp;&nbsp;<a href=\"default.asp?fla=<%=fla%>&id=1\" class=\"menu\" onMouseOver=\"window.status=\'<%=knap1%>\';return true\" onMouseOut=\"window.status=\'<%=knap1%>\';return true\" onClick=\"window.status=\'<%=knap1%>\';return true\">forsiden</a>&nbsp;&nbsp;|
        &nbsp;&nbsp;<a href=\"default.asp?fla=<%=fla%>&id=2\" class=\"menu\" onMouseOver=\"window.status=\'<%=knap2%>\';return true\" onMouseOut=\"window.status=\'<%=knap2%>\';return true\" onClick=\"window.status=\'<%=knap2%>\';return true\">web</a>&nbsp;&nbsp;|
        &nbsp;&nbsp;<a href=\"default.asp?fla=<%=fla%>&id=4&grp=ref\" class=\"menu\" onMouseOver=\"window.status=\'<%=knap4%>\';return true\" onMouseOut=\"window.status=\'<%=knap4%>\';return true\" onClick=\"window.status=\'<%=knap4%>\';return true\">referencer</a>&nbsp;&nbsp;|
        &nbsp;&nbsp;<a href=\"default.asp?fla=<%=fla%>&id=5\" class=\"menu\" onMouseOver=\"window.status=\'<%=knap5%>\';return true\" onMouseOut=\"window.status=\'<%=knap5%>\';return true\" onClick=\"window.status=\'<%=knap5%>\';return true\">info</a>        
    <% End If %>
        </td>
    </tr>
    <tr>
        <td class=\"bundbar\" height=\"62\" colspan=\"2\">
            &nbsp;</td>
    </tr>
    <tr>
        <td bgcolor=\"#000000\" height=\"1\" colspan=\"2\">
            <img src=\"pic/space.gif\" width=\"1\" height=\"1\" border=\"0\"></td>
    </tr>
</table></td>
<% Response.Write \"id= \" & id & \"&nbsp; Fla =\" & fla & \" &nbsp; Grp=\" & StrGrp  %>
<!-- Indhold-Table slut -->
</tr>
</table>

</body>
</html>

<%
    Query.Close
    Conn.Close
    Set Conn = nothing
%>

Okay...

<% Response.Write \"id= \" & id & \"&nbsp; Fla =\" & fla & \" &nbsp; Grp=\" & StrGrp  %> Er bare for at se om der kom noget med og hvad...

Jeg bliver nød til at gå nu... Men hvis nogen kender svaret så kan i jo se koden her og siden her http://multi.mediecenter.dk/web1/nogetfx/default.asp?fla=0&id=1

Lars

Fandt ud af....