Meddelande

Minska
No announcement yet.

Nästa / Föregående funktion

Minska
X
 
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • Nästa / Föregående funktion

    Hej!

    Jag har försökt göra en "Nästa / Föregående" funktion via läsa ett artikel.
    Men det gick inte bra. Får detta fel meddelandet.

    Microsoft VBScript compilation error '800a03ea'
    Syntax error
    /o/m/e/omeeeru/default66.asp, line 110

    Else
    ^


    Kod: http://www.aspkoll.se/code/Index.asp?id=611
    Artikel: http://www.aspkoll.se/artikel/52-get...-foeregaaende/

  • #2
    SGuncel skrev: Visa inlägg
    Hej!

    Jag har försökt göra en "Nästa / Föregående" funktion via läsa ett artikel.
    Men det gick inte bra. Får detta fel meddelandet.

    Microsoft VBScript compilation error '800a03ea'
    Syntax error
    /o/m/e/omeeeru/default66.asp, line 110

    Else
    ^


    Kod: http://www.aspkoll.se/code/Index.asp?id=611
    Artikel: http://www.aspkoll.se/artikel/52-get...-foeregaaende/
    Du har en end if för mycket
    Du vet att staten har rätt att se dig; men du har ingen aning om vem som är staten imorgon! FRA åt helvete, ACTA er, lämna folk IPRED. ̿̿'̿'\̵͇̿̿\з=(•̪●)=ε/̵͇̿̿/'̿'̿ ̿

    Kommentera


    • #3
      [kod]...Else
      Response.Write("Inga medlemmar hittade ")
      End If[/kod]Vill du nog flytta upp på din if fråga
      [kod]If isArray(arrMembers) Then
      ....
      End If[/kod]Ersätt den med din else + end if fråga.
      "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

      Kommentera


      • #4
        Kod:
        <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
        <html xmlns="http://www.w3.org/1999/xhtml">
        <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
        <title>Untitled Document</title>
        </head>
        
        <%
        ////// KONTROLLERA SIDAN (Värden) //////
        
        Dim intStart, intOffset
        
          intStart = Request.QueryString("s")
        
          intOffset = Request.QueryString("o")
        
        
        
          If Not IsNumeric(intStart) or Len(intStart) = 0 Then
        
            intStart = 0
        
          Else
        
            intStart = CInt(intStart)
        
          End If
        
        
        
          If Not IsNumeric(intOffset) or Len(intOffset) = 0 Then
        
            intOffset = 1
        
          Else
        
            intOffset = Cint(iOffset)
        
          End If
          
        ////// HÄMTA ALLA POSTER //////
        
        Set Connect = Server.CreateObject("ADODB.Connection") 
        
            Connect.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("_db/lander.mdb")
            
        Set RecSet = Connect.Execute("Select * from Countries where Land") 
        
        
        If RecSet.EOF Then
        
            arrMembers = ""
        
        Else
        
            arrMembers = RecSet.GetRows()
        
        End If
        
        
        
        RecSet.Close : Set RecSet = Nothing
        
        Connect.Close : Set Connect = Nothing
        
        ////// PAGING KOD //////
        
        If isArray(arrMembers) Then
        
            ////// ANTAL POSTER //////
            
            intRows = Ubound(arrMembers,2)
        
        	intCols = Ubound(arrMembers,1)
            
            ////// LOPPA UT ALLT //////
            
            If iRows > (intOffset + intStart) Then
        
                intStop = intOffset + intStart - 1
        
            Else
        
                intStop = intRows
        
            End If
        
        
        
            For i = intStart to intStop
        
                Response.Write(arrMembers(0,i) & "<br />")
        
            Next
        	
        	Else
        
            Response.Write("Inga medlemmar hittade :(")
        
        End If
        
        ////// SKRIV UT PAGING //////
        
        If intStart > 0 then
        
            Response.Write ("<a href=""Sida.asp?s=" & intStart-intOffset & "&o=" & intOffset & """>Föregående " & intOffset & "</a>")
        
        End If
        
        
        
        If intStop < intRows then
        
            Response.Write " <a href=""Sida.asp?s=" & intStart+intOffset & "&o=" & intOffset & """>Nästa " & intOffset & "</a>"
        
        End If
        
        ////// SLUT PÅ PAGING KOD //////
        
        %>
        <body>
        </body>
        </html>
        Använder denna kod nu. Det ser ut som att det funkar fint.
        Men inga paging skrivs ut. Får inte fram Nästa / Föregående länkarna. Ländernas id skrivs ut istället.

        Kommentera


        • #5
          Ja?
          [kod]... For i = intStart to intStop

          Response.Write(arrMembers(0,i) & "<br />")

          Next[/kod]ta ju ut den första position du har i din array, eftersom du skriver med * i din select fråga så är det omöjligt att säga vad "0" är men det kan ju stämma att du skriver ut landets ID skrivs ut.

          intStart verkar ju vara 0 och intStop är inte mindre än intRows därför ser du inte några länkar.
          "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

          Kommentera


          • #6
            Asterixen är inge bra att använda. Använd dina kolumnnamn istället.
            Kod:
            SELECT id,landnamn FROM Countries WHERE osv..
            Qui rogat, non errat

            Kommentera


            • #7
              voigtann1 skrev: Visa inlägg
              intStart verkar ju vara 0 och intStop är inte mindre än intRows därför ser du inte några länkar.
              Förstod inte riktigt vad du menade

              Kommentera


              • #8
                Skriv ut dina variabler och berätta vad det är, eftersom dina if-statements aldrig inträffar så är det ju något fel på dina variabler om du nu vet att intRows är större än antal poster ifrån ditt Recordset.
                "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

                Kommentera


                • #9
                  Hmm, då är det väll på artikeln som kommer från aspkoll.se
                  Jag har bara klistrat in koderna från där.

                  Kommentera


                  • #10
                    Spelar ju ingen som hellst roll
                    intStart bör vara 0 i koden, men vad blir dina andra variabler, det är ju din databas som styr det värdet:
                    [kod] If iRows > (intOffset + intStart) Then
                    intStop = intOffset + intStart - 1
                    Else
                    intStop = intRows
                    End If [/kod]sätts ju kodernaVad är de variablerna, Om inte if frågan:[kod]If intStop < intRows then[/kod]heller träffas så kommer du inte se den länken heller.
                    "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

                    Kommentera


                    • #11
                      Kommit fram till denna:
                      Kod:
                      <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
                      <html xmlns="http://www.w3.org/1999/xhtml">
                      <head>
                      <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
                      <title>Untitled Document</title>
                      </head>
                      
                      <%
                      ////// KONTROLLERA SIDAN (Värden) //////
                      
                      Dim intStart, intOffset
                      
                        intStart = Request.QueryString("s")
                      
                        intOffset = Request.QueryString("o")
                      
                      
                      
                        If Not IsNumeric(intStart) or Len(intStart) = 0 Then
                      
                          intStart = 0
                      
                        Else
                      
                          intStart = CInt(intStart)
                      
                        End If
                      
                      
                      
                        If Not IsNumeric(intOffset) or Len(intOffset) = 0 Then
                      
                          intOffset = 1
                      
                        Else
                      
                          intOffset = Cint(iOffset)
                      
                        End If
                        
                      ////// HÄMTA ALLA POSTER //////
                      
                      Set Connect = Server.CreateObject("ADODB.Connection") 
                      
                          Connect.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("_db/lander.mdb")
                          
                      Set RecSet = Connect.Execute("Select * from Countries where Land") 
                      
                      
                      If RecSet.EOF Then
                      
                          arrMembers = ""
                      
                      Else
                      
                          arrMembers = RecSet.GetRows()
                      
                      End If
                      
                      
                      
                      RecSet.Close : Set RecSet = Nothing
                      
                      Connect.Close : Set Connect = Nothing
                      
                      ////// PAGING KOD //////
                      
                      If isArray(arrMembers) Then
                      
                          ////// ANTAL POSTER //////
                          
                          intRows = Ubound(arrMembers,2)
                      
                      	intCols = Ubound(arrMembers,1)
                          
                          ////// LOPPA UT ALLT //////
                          
                          If iRows > (intOffset + intStart) Then
                      
                              intStop = intOffset + intStart - 1
                      
                          Else
                      
                              intStop = intRows
                      
                          End If
                      
                      		For i = intStart to intStop
                      
                              Response.Write(arrMembers(1,i) & "<br />")
                      
                          Next
                      	
                      	Else
                      
                          Response.Write("Inga medlemmar hittade :(")
                      
                      End If
                      
                      ////// SKRIV UT PAGING //////
                      
                      If intStart > 0 then
                      
                          Response.Write ("<a href=""?s=" & intStart-intOffset & "&o=" & intOffset & """>Föregående " & intOffset & "</a>")
                      
                      End If
                      
                      
                      If intStop < intRows then
                      
                          Response.Write " <a href=""?s=" & intStart+intOffset & "&o=" & intOffset & """>Nästa " & intOffset & "</a>"
                      
                      End If
                      
                      ////// SLUT PÅ PAGING KOD //////
                      
                      %>
                      <body>
                      </body>
                      </html>
                      Men inga paging fortfarande. Jag vill egentligen använda denna till bild galleri.
                      Så när det visar en bild så ska man kunna gå till nästa eller föregående.

                      Vet ej vad för fel jag gör.

                      Kommentera


                      • #12
                        1. byt ut[kod]Response.Write(arrMembers(1,i) & "<br />")[/kod]till det du vill presentera
                        2. kommentarer skrivs med ' inte som du gör med ///...
                        3. Om inte If frågorna:
                        [kod]If intStart > 0 then[/kod]
                        och
                        [kod]If intStop < intRows then[/kod]träffas så kommer du inte se några paging möjligheter, därför igen ber jag dig kolla vad intStop, intRows och intStart är för värde för just nu är intStart inte större än 0, intStop är inte mindre än intRows, för om det hade varit det så hade du också sett texterna.

                        [kod]If intStart > 0 then

                        Response.Write ("<a href=""?s=" & intStart-intOffset & "&o=" & intOffset & """>Föregående " & intOffset & "</a>")

                        End If


                        If intStop < intRows then

                        Response.Write " <a href=""?s=" & intStart+intOffset & "&o=" & intOffset & """>Nästa " & intOffset & "</a>"

                        End If[/kod]
                        kan du ju skriva om så att den visar texter men inga länkar om det inte inträffar:

                        [kod]If intStart > 0 then

                        Response.Write ("<a href=""?s=" & intStart-intOffset & "&o=" & intOffset & """>Föregående " & intOffset & "</a>")
                        Else
                        Response.Write "Föregående"
                        End If


                        If intStop < intRows then

                        Response.Write " <a href=""?s=" & intStart+intOffset & "&o=" & intOffset & """>Nästa " & intOffset & "</a>"
                        Else
                        Response.Write "Nästa"
                        End If[/kod]
                        "det går inte att lära en gammal norrlänning byta namn på irc" - gammalt kinesiskt uttryck

                        Kommentera


                        • #13
                          Jag hittade något annat script på denna sida och den funkar perfekt. Jag har lagt till kategori till det. När man väljer kategori och ett bild. Så kan man inte fortsätta se andra bilder. Det har med IDt och göra och vet ej hur jag ska lösa det.

                          Koden som visar kategori bilder:
                          Kod:
                          <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
                          
                          <html xmlns="http://www.w3.org/1999/xhtml">
                          <head>
                          <meta http-equiv="content-type" content="text/html; charset=utf-8" />
                          <title></title>
                          <meta name="keywords" content="" />
                          <meta name="description" content="" />
                          <link href="style.css" rel="stylesheet" type="text/css" media="screen" />
                          </head>
                          <body>
                          <%
                          	Set ObjConn = Server.CreateObject("ADODB.Connection") 
                          	ObjConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("databas.mdb")
                          %>
                          <div id="wrapper">
                          	<div id="logo">
                          		<h1><a href="#">  </a></h1>
                          		<p><em> Nuvarande äventyr är i</em></p>
                          	</div>
                          	<hr />
                          	<!-- end #logo -->
                          	<div id="header">
                          		<div id="menu">
                          			<ul>
                          				<li><a href="#" class="first">Hem</a></li>
                          				<li><a href="#">Blogg</a></li>
                          				<li class="current_page_item"><a href="#">Galleri</a></li>
                          				<li><a href="#">Gästbok</a></li>
                          				<li><a href="#">Kontakta</a></li>
                          			</ul>
                          		</div>
                          		<!-- end #menu -->
                                  		<div id="search">
                          			<form method="get" action="">
                          				<fieldset>
                                          	<div id="search-tema">
                                         			Välj tema: Blå - Röd - Grön - Grå
                                              </div>
                          				</fieldset>
                          			</form>
                          		</div>
                          		<!-- end #search -->
                          
                                  </div>
                          	<!-- end #header -->
                          	<!-- end #header-wrapper -->
                          	<div id="page">
                          	<div id="page-bgtop">
                          		<div id="content">
                          				<h2 class="title2">Galleri » Senaste uppladade bilder</h2>
                                          
                          				<div class="entry">
                          					<p>
                          						<div id="Images">
                                              	<%
                          							Set ObjRS = ObjConn.Execute("Select * from tblTable where photoCategoryId=" & request.querystring("categoryId") & " order by photoUploaded DESC")
                          							
                          							If ObjRS.EOF Then
                          								Response.Write "<div>Finns inga bilder!</div>"
                          							Else
                          								Do until ObjRS.Eof
                          									Response.Write "<div class=""Thumb""><a href=""galleri_pic.asp?ID="& ObjRS("ID") &"""><img src=""../"& ObjRS("fldName") &""" style=""width:130px;height:97px;"" alt="""" class=""image_border"" /></a></div>"& vbcrlf
                          								
                          								ObjRS.Movenext
                          								Loop
                          	
                          								ObjRS.Close : Set ObjRS = Nothing
                          							End If
                          						%> 
                          						</div>                                             
                                              </p>
                          			</div>
                                      
                          		</div>
                          		<!-- end #content -->
                          		<div id="sidebar">
                          			<ul>
                          				<li>
                          					<h2>Kategori </h2>
                          					<ul>
                                              	<%
                          							Set ObjRS = ObjConn.Execute("Select * from tblCategories where categoryId order by Categoryadded DESC")
                          							
                          							If ObjRS.EOF Then
                          								Response.Write "<li"">Finns inga kategori!</li>"
                          							Else
                          								Do until ObjRS.Eof
                          									Response.Write "<li><a class=""galleri_link"" href=""galleri_category.asp?categoryId="& ObjRS("categoryId") &""">"& ObjRS("categoryName") &"</a>"
                          									
                          								IF ObjRS("Categorynew")="1" then
                          									Response.Write ("<span class=""sidebar_text"">NY!</span></li>")& vbcrlf
                          								Else
                          									Response.Write "</li>"& vbcrlf
                          								End if
                          								
                          								ObjRS.Movenext
                          								Loop
                          	
                          								ObjRS.Close : Set ObjRS = Nothing
                          							End If
                          						%>
                          					</ul>
                          				</li>
                          			</ul>
                          		</div>
                          		<!-- end #sidebar -->
                          		<div style="clear: both;">&nbsp;</div>
                          	</div>
                          	</div>
                          	<!-- end #page -->
                          	<div id="footer-bgcontent">
                          	<div id="footer">
                          		<p>Copyright &copy 2010  All rights reserved.</p>
                          	</div>
                          	</div>
                          	<!-- end #footer -->
                          </div>
                          </body>
                          </html>
                          visar bilden från kategorin:
                          Kod:
                          <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
                          
                          <html xmlns="http://www.w3.org/1999/xhtml">
                          <head>
                          <meta http-equiv="content-type" content="text/html; charset=utf-8" />
                          <title></title>
                          <meta name="keywords" content="" />
                          <meta name="description" content="" />
                          <link href="style.css" rel="stylesheet" type="text/css" media="screen" />
                          </head>
                          <body>
                          <!--#include file="../functions.asp"-->
                          <%
                          	Set ObjConn = Server.CreateObject("ADODB.Connection") 
                          	ObjConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("databas.mdb")
                          %>
                          <div id="wrapper">
                          	<div id="logo">
                          		<h1><a href="#">  </a></h1>
                          		<p><em> Nuvarande äventyr är i </em></p>
                          	</div>
                          	<hr />
                          	<!-- end #logo -->
                          	<div id="header">
                          		<div id="menu">
                          			<ul>
                          				<li><a href="#" class="first">Hem</a></li>
                          				<li><a href="#">Blogg</a></li>
                          				<li class="current_page_item"><a href="#">Galleri</a></li>
                          				<li><a href="#">Gästbok</a></li>
                          				<li><a href="#">Kontakta</a></li>
                          			</ul>
                          		</div>
                          		<!-- end #menu -->
                                  		<div id="search">
                          			<form method="get" action="">
                          				<fieldset>
                                          	<div id="search-tema">
                                         			Välj tema: Blå - Röd - Grön - Grå
                                              </div>
                          				</fieldset>
                          			</form>
                          		</div>
                          		<!-- end #search -->
                          
                                  </div>
                          	<!-- end #header -->
                          	<!-- end #header-wrapper -->
                          	<div id="page">
                          	<div id="page-bgtop">
                          		<div id="content">
                          				<h2 class="title2">Galleri » Senaste uppladade bilder</h2>
                                          
                          				<div class="entry">
                          					<p>
                          						<div id="Images">
                          <%
                          	Dim ObjConn, ObjRS, arrObjRS, intPage, intPostsPerPage, intFirstPost, intTotalPosts
                          	Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n
                          
                          '//---------------------------------------------------------------------------------------------------------------------------------------------------------------
                          '// Databashantering
                          		Set ObjPic = ObjConn.Execute("Select * from tblTable where ID=" & request.querystring("ID") & "")
                          		Set ObjRS = ObjConn.Execute("Select * from tblTable where ID=" & request.querystring("ID") & " and photoCategoryId=" & ObjPic("photoCategoryId") & "")
                          		If NOT ObjRS.EOF Then arrObjRS = ObjRS.GetRows()
                          	ObjRS.Close : Set ObjRS = Nothing
                          
                          '//---------------------------------------------------------------------------------------------------------------------------------------------------------------
                          '// Posthantering
                          
                          If IsArray(arrObjRS) Then
                          
                          	'// Poster per sida
                          	intPostsPerPage = 1
                          
                          	'// Navigeringshantering
                          	If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
                          	intFirstPost = (intPage - 1) * intPostsPerPage
                          	intTotalPosts = UBound(arrObjRS , 2)
                          	intPages = ((intTotalPosts)\intPostsPerPage)+1
                          
                          	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrObjRS,2) Then
                          		intLastPost = UBound(arrObjRS, 2) 
                          	Else
                          		intLastPost = intFirstPost + (intPostsPerPage - 1)
                          		strNext = True
                          	End If
                          
                          	'// Skriv ut posterna
                          	For i = intFirstPost To intLastPost
                          		strName = arrObjRS(1,i)
                          		Response.Write "	<img src=""../"& strName &""" style=""border:1px black solid;""><br>"& vbcrlf
                          	Next
                          	
                          	'// Navigering, v�lj sj�lv knappar eller text
                          	Response.Write "<br />"
                          	Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
                          
                          	Response.Write "<br /><br /><a name=""fb_share"" type=""button"" share_url=""galleri_pic.asp?n="& intPage &""">Dela Med på Facebook</a> <script src=""http://static.ak.fbcdn.net/connect.php/js/FB.Share"" type=""text/javascript""></script>"
                          	Response.Write "<p></p>"	
                          Response.Write "<div class=""slide_boxcomment"">"& vbcrlf
                          	Response.Write "<div class=""slide_newcomment""><span class=""header_maroon"">SKRIV KOMMENTAR</span></div>"& vbcrlf
                                 Response.Write "<div class=""slide_comment"">"& vbcrlf
                          			Response.Write "<textarea></textarea> <p></p>"& vbcrlf
                          			Response.Write "<input type=""submit"" name=""bSend"" value=""SKICKA"" class=""button""/>"& vbcrlf
                                 Response.Write "</div>"& vbcrlf
                          	Response.Write "</div>"& vbcrlf
                          '// Fanns inga poster
                          Else
                          	Response.Write "Hittade ingen bild med denna ID!"
                          
                          End If
                          
                          '//---------------------------------------------------------------------------------------------------------------------------------------------------------------
                          %>
                          						</div>                                             
                                              </p>
                          			</div>
                                      
                          		</div>
                          		<!-- end #content -->
                          		<div id="sidebar">
                          			<ul>
                          				<li>
                          					<h2>Kategori </h2>
                          					<ul>
                                              	<%
                          							Set ObjRS = ObjConn.Execute("Select * from tblCategories where categoryId order by Categoryadded DESC")
                          							
                          							If ObjRS.EOF Then
                          								Response.Write "<li"">Finns inga kategori!</li>"
                          							Else
                          								Do until ObjRS.Eof
                          									Response.Write "<li><a class=""galleri_link"" href=""galleri_category.asp?categoryId="& ObjRS("categoryId") &""">"& ObjRS("categoryName") &"</a>"
                          									
                          								IF ObjRS("Categorynew")="1" then
                          									Response.Write ("<span class=""sidebar_text"">NY!</span></li>")& vbcrlf
                          								Else
                          									Response.Write "</li>"& vbcrlf
                          								End if
                          								
                          								ObjRS.Movenext
                          								Loop
                          	
                          								ObjRS.Close : Set ObjRS = Nothing
                          							End If
                          						%>
                          					</ul>
                          				</li>
                          			</ul>
                          		</div>
                          		<!-- end #sidebar -->
                          		<div style="clear: both;">&nbsp;</div>
                          	</div>
                          	</div>
                          	<!-- end #page -->
                          	<div id="footer-bgcontent">
                          	<div id="footer">
                          		<p>Copyright &copy 2010  All rights reserved.</p>
                          	</div>
                          	</div>
                          	<!-- end #footer -->
                          </div>
                          </body>
                          </html>

                          Kommentera


                          • #14
                            Någon? ;p

                            Kommentera

                            Working...
                            X