Jeg mangler en End If

jada

OK, her er den så. Jeg har været ved at lave paging, men jeg får den fejl at der mangler en "End if" i linie 6. Jeg kan desværre først vende tilbage til spm. igen om ca. 45 min., men håber der er en der lige vil kaste et blik på det:

<!--#include file="Database.asp" -->
<!--#include file="Effekter.asp" -->
<%
Page = Trim(Request("page"))
  If Page = "" Then Page = 1
  End if

RowCount = 0
SQL = "Select * From Faggrupper ORDER BY Faggruppe"
Set rs = Conn.Execute(SQL)

SQL2 = "Select COUNT(ID) As Antal From Virksomheder"
Set rs2 = Conn.Execute(SQL2)

Randomize
Tal = Int((rs2("Antal") * Rnd) + 1)

SQL3 = "Select ID, Kategori, Virksomhed, Email, Hjemmeside, Beskrivelse From Virksomheder WHERE ID=" & Tal
Set rs3 = Conn.Execute(SQL3)

SQL4 = "Select * FROM Beskeder WHERE ForumID=" & Request.Querystring("forumid") & " AND Main = True"
Set rs4 = Conn.Execute(SQL4)

rs4.PageSize = 10
If Not rs4.EOF Then
    rs4.AbsolutePage = cINT(Page)
    raekke = 0
End If

SQL5 = "Select Forum FROM Forum WHERE ForumID=" & Request.Querystring("forumid")
Set rs5 = Conn.Execute(SQL5)

Dim varForum
varForum = rs5("Forum")
%>
<html>
<head>
<title>givenet.dk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Style.css" type="text/css">
</head>

<body bgcolor="#D6EDFE" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="760" border="0"  style="border-collapse: collapse; border-left: 1px solid #666666; border-right: 1px solid #666666" bordercolor="#111111" cellspacing="0" cellpadding="0" align="center" height="100%">
  <tr>
    <td bgcolor="ffffff" valign="top">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td colspan="4"><img src="Grafik/bynettop.jpg" width="760" height="75"></td>
        </tr>
        <tr>
          <td bgcolor="#E9E9E9" height="50" style="border-top: 1px solid #666666; border-bottom: 1px solid #666666" width="15">
            <div align="right">
              <p align="left">&nbsp;</p>
            </div>
          </td>
          <td bgcolor="#E9E9E9" height="50" style="border-top: 1px solid #666666; border-bottom: 1px solid #666666" width="365">V&aelig;lg
            en kategori:<br>
            <select name="go" onChange="jumppage(this);">
              <option>---Vælg en kategori---</option>
              <%
            Do While Not rs.eof
            %>
              <option value="Vis.asp?kategori=<%=rs("ID")%>"><%=rs("Faggruppe")%></option>
              <%
              rs.movenext
              Loop
              %>
            </select>
          </td>
          <td bgcolor="#E9E9E9" height="50" style="border-top: 1px solid #666666; border-bottom: 1px solid #666666" width="365">
            <div align="right">Foretag s&oslash;gning:<br>
              <img src="Grafik/soegeknap.gif" width="53" height="15" onmouseOver = "status='Start søgning';return true" onMouseOut = "status='';return true">
              <input type="text" name="textfield" size="20">
            </div>
          </td>
          <td bgcolor="#E9E9E9" height="50" style="border-top: 1px solid #666666; border-bottom: 1px solid #666666" width="15">&nbsp;</td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="158">
        <tr>
          <td width="150" valign="top">
            <table width="100%" border="0" cellspacing="0" cellpadding="15" height="100%">
              <tr>
                <td valign="top">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><img src="Grafik/top.gif" width="160" height="8"></td>
                    </tr>
                    <tr>
                      <td bgcolor="eaeaea" class="menustreger" valign="top"><b>
                        </b>
                        <table width="100%" border="0" cellspacing="0" cellpadding="3">
                          <tr>
                            <td><b>.:: Menu</b><br>
                              - <a href="Default.asp" onmouseOver = "status='Velkommen';return true" onMouseOut = "status='';return true">Velkommen</a><br>
                              - <a href="Virksomheder.asp" onmouseOver = "status='Virksomheder';return true" onMouseOut = "status='';return true">Virksomheder</a><br>
                              - <a href="Soegning.asp" onmouseOver = "status='Søgning';return true" onMouseOut = "status='';return true">S&oslash;gning</a><br>
                              - <a href="Hvem.asp" onmouseOver = "status='Hvem er vi?';return true" onMouseOut = "status='';return true">Hvem er vi?</a><br>
                              - <a href="Maal.asp" onmouseOver = "status='Vores målsætning';return true" onMouseOut = "status='';return true">Vores m&aring;ls&aelig;tning</a><br>
                              - <a href="Priser.asp" onmouseOver = "status='Priser';return true" onMouseOut = "status='';return true">Priser</a><br>
                              - <a href="Tilmelding.asp" onmouseOver = "status='Tilmelding';return true" onMouseOut = "status='';return true">Tilmelding</a></td>
                          </tr>
                        </table>
                        <b> </b></td>
                    </tr>
                    <tr>
                      <td valign="top"><img src="Grafik/bund.gif" width="160" height="8"></td>
                    </tr>
                  </table>
                  <br>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="7"><img src="Grafik/top.gif" width="160" height="8"></td>
                    </tr>
                    <tr>
                      <td bgcolor="eaeaea" class="menustreger">
                        <table width="100%" border="0" cellspacing="0" cellpadding="3">
                          <tr>
                            <td valign="top"><b>.:: Tjenester<br>
                              </b>- <a href="Debatforum.asp" onmouseOver = "status='Debatforum';return true" onMouseOut = "status='';return true">Debatforum</a><br>
                              - <a href="Kalender.asp" onmouseOver = "status='Aktivitetskalender';return true" onMouseOut = "status='';return true">Aktivitetskalender</a><br>
                              - <a href="Brugtbors.asp" onmouseOver = "status='Brugtbørs';return true" onMouseOut = "status='';return true">Brugtb&oslash;rs</a><br>
                              - <a href="Postkort.asp" onmouseOver = "status='Send et postkort';return true" onMouseOut = "status='';return true">Send et postkort</a><br>
                              - <a href="Nyhedsbrev.asp" onmouseOver = "status='Nyhedsbrev';return true" onMouseOut = "status='';return true">Nyhedsbrev</a></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                    <tr>
                      <td valign="top"><img src="Grafik/bund.gif" width="160" height="8"></td>
                    </tr>
                  </table>
                  <br>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><img src="Grafik/top.gif" width="160" height="8"></td>
                    </tr>
                    <tr>
                      <td bgcolor="eaeaea" class="menustreger" valign="top">
                        <table width="100%" border="0" cellspacing="0" cellpadding="3">
                          <tr>
                            <td valign="top">
                              <p><b>.:: Administration</b>
                                                            Brugernavn:<br>
                                <input type="text" name="textfield2" size="20">
                                <br>
                                Adgangskode: <br>
                                <input type="password" name="textfield22" size="20">
                                <p> <img src="Grafik/login.gif" width="53" height="15">
                              </p>
                             
                                                       
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                    <tr>
                      <td valign="top"><img src="Grafik/bund.gif" width="160" height="8"></td>
                    </tr>
                  </table>
                  <p>&nbsp;</p>
                  </td>
              </tr>
            </table>
          </td>
          <td width="433" valign="top">
            <table width="100%" border="0" cellspacing="0" cellpadding="15" height="100%">
              <tr>
                <td valign="top">
                  <p><img src="Grafik/debatforum.gif" width="388" height="24"></p>
                  <p><a href="Debatforum.asp">Debatforum</a> -&gt; <%=varForum%></p>
                  <p>- <a href="Opretbesked.asp?forumid=<%=rs4("ForumID")%>">Opret
                    et nyt indl&aelig;g</a></p>
                  <table width="100%" border="0" cellspacing="0" cellpadding="2" class="sortbox">

                    <tr>
                      <td width="63%"><b>Emne</b></td>
                      <td width="23%">
                        <div align="center"><b>Dato</b></div>
                      </td>
                      <td width="14%">
                        <div align="center"><b>Indl&aelig;g</b></div>
                      </td>
                    </tr>
                                        <%
Do While Not rs4.eof AND raekke < rs4.Pagesize

             

If RowCount = 2 Then
RowCount = 0
End if

If RowCount = 0 Then
Cellbgcolor = "#e9e9e9"
else
Cellbgcolor = "#ffffff"
End if

RowCount = RowCount + 1
%>
                    <tr bgcolor="<%=Cellbgcolor%>">
                      <td width="63%"><a href="Visbesked.asp?forumid=<%=rs4("ForumID")%>&beskedid=<%=rs4("BeskedID")%>"><%=rs4("Emne")%></a></td>
                      <td width="23%">
                        <div align="center"><%=rs4("Dato")%></div>
                      </td>
                      <td width="14%">
                        <div align="right">1</div>
                      </td>
                    </tr>
                    <%
                    raekke = raekke + 1
                    rs4.movenext
                    loop
                    %>
                  </table>
                  <p><%
If rs4.PageCount <> 1 Then
  For i = 1 to rs4.PageCount
    response.write "<a href='paging.asp?page=" & i & "'>" & i & "</a>"
  Next
End If
%></p>
                  </td>
              </tr>
            </table>
          </td>
          <td width="150" valign="top">
            <table width="86%" border="0" cellspacing="0" cellpadding="15">
              <tr>
                <td valign="top">
                  <p><b>.:: Annoncer<br>
                    <br>
                    </b><b><img src="Grafik/annonce.gif" width="120" height="60"></b></p>
                  <p><b><img src="Grafik/annonce.gif" width="120" height="60"></b></p>
                </td>
              </tr>
              <tr>
                <td valign="top">
                  <p><b>.:: Tilf&aelig;ldig profil<br>
                    <%=rs3("Virksomhed")%></b><br>
                    <%=rs3("Beskrivelse")%></p>
                  <%
                    Dim mail, hjemmeside
                    mail = rs3("Email")
                    hjemmeside = rs3("Hjemmeside")
                   
                    If len(mail) > 0 then
                    mailpic = "knap_e.gif"
                    else
                    mailpic = "knap_e2.gif"
                    End if
                   
                    If len(hjemmeside) > 0 then
                    hjemmesidepic = "knap_w.gif"
                    else
                    hjemmesidepic = "knap_w2.gif"
                    End if
                    End if
                    %>
                  <p><a href="Profil.asp?virksomhed=<%=rs3("ID")%>"><img src="Grafik/knap_i.gif" width="16" height="15" border="0"></a>
                    <a href="mailto:<%=mail%>"><img src="Grafik/<%=mailpic%>" width="16" height="15" border="0"></a>
                    <a href="<%=hjemmeside%>" target="_blank"><img src="Grafik/<%=hjemmesidepic%>" width="16" height="15" border="0"></a>
                  </p>
                  </td>
              </tr>
              <tr>
                <td valign="top">

                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>

Det er der ikke noget at sige til når du laver den fejl du har lavet...

det hedder enten

  If Page = "" Then Page = 1
  End if

arg... eksperten skodder idag

Det er der ikke noget at sige til når du laver den fejl du har lavet...

det hedder enten

  If Page = "" Then Page = 1

eller

Det er der ikke noget at sige til når du laver den fejl du har lavet...

det hedder enten

  If Page = "" Then
    Page = 1
  End if

WHAT ?!?! hvad sker der her... :((((

altså.. enten

If Page = "" Then Page = 1

eller

If Page = "" Then
  Page = 1
End if

OK tak cyberfessor, men nu siger den at der mangler en End if i linie 262.

der står her

                    Dim mail, hjemmeside
                    mail = rs3("Email")
                    hjemmeside = rs3("Hjemmeside")
                   
                    If len(mail) > 0 then
                    mailpic = "knap_e.gif"
                    else
                    mailpic = "knap_e2.gif"
                    End if
                   
                    If len(hjemmeside) > 0 then
                    hjemmesidepic = "knap_w.gif"
                    else
                    hjemmesidepic = "knap_w2.gif"
                    End if
                    End if

for mig ser det ud til der er et End If for meget

OK endnu en gang tak. Som sagt havde jeg været ved at lege med paging og jeg får nu denne fejl:

"Det aktuelle postsæt understøtter ikke bogmærker. Det kan skyldes en begrænsning af provideren eller af den valgte markørtype."

Den er jeg aldrig støt på før, hvad betyder den. Smider gerne lidt flere point i for jeres hjælp..

jeg synes nok, det ville undre mig om du kunne lave en Paging på et Connection object, du skal nemlig bruge Recordset for at bruge det.

SQL4 = "Select * FROM Beskeder WHERE ForumID=" & Request.Querystring("forumid") & " AND Main = True"
Set rs4 = Conn.Execute(SQL4)

skal være

Set rs4 = Server.CreateObject("ADODB.RecordSet")
SQL4 = "Select * FROM Beskeder WHERE ForumID=" & Request.Querystring("forumid") & " AND Main = True"

rs4.Open Conn, SQL4, 3, 1

Jeg tror nok det er sådan, det er længe siden jeg har rodet med Recordset

oops... det er lige omvendt, altså

rs4.Open SQL4, Conn, 3, 1

Tak for det. Smider du lige et svar så du kan få dine point?

sure :)