Søg
Avatar billede klinemann Nybegynder
22. april 2006 - 18:27 Der er 26 kommentarer og
1 løsning

den siger fejl. nogen hjælp?

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Vi byder velkommen til vores sid</title>
</head>

<body>

<table width="100%" border="0" cellspacing="2" cellpadding="2">
        <tr>
          <td width="75%" valign="top" align="left" height="153">
            <div align="center">
              <p><span class="skrift">Vi har i &oslash;jeblik
                <%
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("database.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  Sql = "Select count(*) as Found from bruger where godkendt=true"
  Set Record =  Rs.Execute(Sql)

  Ialt = Record("found")
%><%
    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
        intPage = 1
    End If
%>
                <b>
                <% =ialt %>
                </b> registerede bruger.</span><br>
                <span class="skrift1"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
                [</font> <font size="1"><a href="default.asp?alfa=QAZWSXEDCRFVTGBYHNUJMIKOLP%C6%C5%D81234567890">All</a></font></span><font size="1"><span class="skrift1">&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=A" class="alfa">A</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=B" class="alfa">B</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=C" class="alfa">C</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=D" class="alfa">D</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=E" class="alfa">E</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=F" class="alfa">F</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=G" class="alfa">G</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font><font size="1"><span class="skrift1">
                <a href="default.asp?alfa=H">H</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=I" class="alfa">I</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=J" class="alfa">J</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=K" class="alfa">K</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=L" class="alfa">L</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=M" class="alfa">M</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=N" class="alfa">N</a>
                ] &nbsp;</span></font><br>
                <font size="1"><span class="skrift1">[ <a href="default.asp?alfa=O">O</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=P" class="alfa">P</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=Q" class="alfa">Q</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=R" class="alfa">R</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=S" class="alfa">S</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=T" class="alfa">T</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=U" class="alfa">U</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font><font size="1"><span class="skrift1">
                <a href="default.asp?alfa=V" class="alfa">V</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=W" class="alfa">W</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=X" class="alfa">X</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=Y" class="alfa">Y</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=Z" class="alfa">Z</a>&nbsp;</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">|</font>
                <font size="1"><span class="skrift1"><a href="default.asp?alfa=%E6%E5%F81234567890">Other</a>
                </span></font></p>
            </div>
            <div align="center">
              <%
str_alfa = LCase(Request.QueryString.Item("alfa")) & UCase(Request.QueryString.Item("alfa"))
str_sql2 = "SELECT * FROM bruger where godkendt=true AND ("
If Len(str_alfa) < 1 Then
str_alfa = "ABCDabcd"
End if
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & " OR"
    End If
    str_sql2 = str_sql2 & " brugernavn LIKE '" &  Mid(str_alfa,i,1) & "%'"
next

str_sql2 = str_sql2 & ") ORDER BY brugernavn"


   
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
Set rs = Conn.Execute (str_sql2)
%>

<%
if rs.EOF then
%>            <span class="skrift">Ingen Bruger Her.</span>
<%
else
%>

<%                               
If Not (record.BOF Or record.EOF) Then
    record.PageSize = 10
    record.AbsolutePage = intPage
    intRecCount = record.PageSize
    intPageCount = record.PageCount

    Do While Not record.EOF And intRecCount > 0

%>
              <table width="100%" cellspacing="1" border="0" cellpadding="0" bgcolor="#000000">
                <tr bgcolor="#0099FF">
                  <td width="125" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <td class="skrift">Ringetone</td>
                      </tr>
                    </table>
                    <font face="tahoma" size="2" color="#000000"></font></td>
                  <td width="66" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <td class="skrift">K&oslash;n</td>
                      </tr>
                    </table>
                    <font face="tahoma" size="2" color="#000000"></font></td>
                  <td width="66" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1">
                      <tr>
                        <td class="skrift">Alder</td>
                      </tr>
                    </table>
                    <font face="tahoma" size="2" color="#000000"></font></td>
                  <td width="30" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <td class="skrift">Hits:</td>
                      </tr>
                    </table>
<%
        Record.MoveNext
        intRecCount = intRecCount - 1
    Loop
end if
%>
<table>
                                        <tr>
                                            <td height="30" colspan="3" valign="top">
                                        <%
                                        Response.Write "<table width=""400""><tr>"
                                        Response.Write "<td align=""center""><font face='Tahoma' size='2'>Du er på side <b>" & intPage & "</b><center>"
                                       
                                        If Clng(intPage) > 1 Then
                                            Response.Write "<a href=default.asp?site=&page=" & intPage - 1 & ">&lt;&lt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                               
                                        Response.Write "&nbsp;"
                                       
                                        For intNum = 1 To intPageCount
                                            Response.Write "<a href=default.asp?site=&page=" & intNum & "><b>" & intNum & "</b></a> "
                                        Next

                                        Response.Write "&nbsp;"

                                        If Clng(intPage) < Clng(intPageCount) Then
                                            Response.Write "<a href=default.asp?site=&page=" & intPage + 1 & ">&gt;&gt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                                        Response.Write "</center></font></td></tr></table>"
                                        %>
                                        </td>
                                        </tr>
                                    </table>                   
                   
                  </td>
                </tr>
                <%
Do Until rs.EOF
%>
                <tr bgcolor="#FFFFFF">
                  <td width="125" bgcolor="#FFFFFF"><font face=tahoma size=2>
                    </font>
                    <table width="100%" border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <td class="skrift1">
                          <a href="showuser.asp?id=<%= rs("id") %>"><%= rs("brugernavn") %></a>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="66">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" height="9">
                      <tr>
                        <td class="skrift1">
                          <% = rs("kon") %>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="66">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <td class="skrift1">
                          <% = rs("alder") %>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="30">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1">
                      <tr>
                        <td valign="top" class="skrift1">
                          <% = rs("hits") %>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
                <%
rs.MoveNext
Loop
%>
                <p></p>
              </table>
            </div>
            <% end if %>
          </td>
        </tr>
      </table></body>

</html>
Avatar billede thesurfer Nybegynder
22. april 2006 - 18:29 #1
Hvad med lige at beskrive fejlen..?
Og til næste gang: Skriv en bedre titel, der forklarer problemet. Titlen til dette spørgsmål er ikke særligt beskrivende.

/theSurfer
Avatar billede softspot Forsker
22. april 2006 - 18:31 #2
Det er altid en god idé lige at forklare lidt mere om hvilken situation du får fejlen, samt hvor i koden og hvilken fejl der er tale om (fejlkode og -tekst er et godt udgangspunkt)...
Avatar billede klinemann Nybegynder
22. april 2006 - 18:33 #3
okay, laver lige et nyt sprg. så
Avatar billede softspot Forsker
22. april 2006 - 18:39 #4
Du kan også bare beskrive fejlen her (du har to gode bud på folk der kan hjælpe dig - hvis jeg må være så ubeskeden :))... og du har fanget vores opmærksomhed :)
Avatar billede eagleeye Praktikant
22. april 2006 - 18:50 #5
Ja det der er altid en god ide at skive fejlen her :)

Dog gætter jeg på fejlen er her:
  record.PageSize = 10


Noget med "unsupported bookmark" da du bruger paging og åbner recordset med .Execute metoden.
Så ret denne linie:

  Set Record =  Rs.Execute(Sql)


Til disse to:

  Record = Server.CreateObject("ADODB.Recordsset")
  Record.Open Sql, Rs, 1
Avatar billede klinemann Nybegynder
22. april 2006 - 18:59 #6
jeg kunne godt tænke mig at få vist 10 bruger ad gangen, men det driller mig lidt..
Avatar billede klinemann Nybegynder
22. april 2006 - 19:04 #7
eagleeye: det du skrev skal selvfølgelig ind her:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
Set rs = Conn.Execute (str_sql2)

??
Avatar billede eagleeye Praktikant
22. april 2006 - 19:07 #8
Ja det har du ret i jeg så ikke lige nr 2 SQL sætning, så prøv at rette:


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
Set rs = Conn.Execute (str_sql2)


Til:


Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
rs.Open str_sql2, Conn, 1
Avatar billede eagleeye Praktikant
22. april 2006 - 19:12 #9
men du har både en connection og et recordset som hedder RS... Det er ikke så smart. Så du bør også rette:

  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("database.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  Sql = "Select count(*) as Found from bruger where godkendt=true"
  Set Record =  Rs.Execute(Sql)


Til dette så connection Rs hedder noget andet:

  Set con1 = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("database.mdb")
  con1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  Sql = "Select count(*) as Found from bruger where godkendt=true"
  Set Record =  con1.Execute(Sql)
Avatar billede klinemann Nybegynder
22. april 2006 - 19:48 #10
den bliver ved med at sige "unsupported bookmark"...
Avatar billede klinemann Nybegynder
22. april 2006 - 19:50 #11
jeg tror problemet ligger i at jeg har blandet SQL ind i det..
Avatar billede klinemann Nybegynder
22. april 2006 - 19:55 #12
jeg fjernede counteren også meldte den ny fejl der hed

Microsoft VBScript runtime error '800a01a8'
Object required: ''

/poletkatalog/default.asp, line 137
Avatar billede eagleeye Praktikant
22. april 2006 - 20:03 #13
Hvordan ser koden ud nu efter den er rette til?
Og hvilken er linie 137?
Avatar billede klinemann Nybegynder
22. april 2006 - 20:26 #14
den ganger alt med 10 nu. men siger ingen fejl.
Avatar billede klinemann Nybegynder
22. april 2006 - 20:26 #15
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Polet-katalog</title>
</head>

<body>

      <table width="100%" border="0" cellspacing="2" cellpadding="2" id="table1">
        <tr>
          <td width="75%" valign="top" align="left" height="153" bgcolor="#FFFFFF">
            <div align="center">

                <br>
                <font face="Tahoma">
                <span class="skrift1">
                <a href="default.asp?alfa=QAZWSXEDCRFVTGBYHNUJMIKOLP%C6%C5%D81234567890">All</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=A" class="alfa">A</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=B" class="alfa">B</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=C" class="alfa">C</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=D" class="alfa">D</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=E" class="alfa">E</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=F" class="alfa">F</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=G" class="alfa">G</a>&nbsp;</span>|<span class="skrift1">
                <a href="default.asp?alfa=H">H</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=I" class="alfa">I</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=J" class="alfa">J</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=K" class="alfa">K</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=L" class="alfa">L</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=M" class="alfa">M</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=N" class="alfa">N</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=O" class="alfa">O</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=P" class="alfa">P</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=Q" class="alfa">Q</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=R" class="alfa">R</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=S" class="alfa">S</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=T" class="alfa">T</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=U" class="alfa">U</a>&nbsp;</span>|<span class="skrift1">
                <a href="default.asp?alfa=V" class="alfa">V</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=W" class="alfa">W</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=X" class="alfa">X</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=Y" class="alfa">Y</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=Z" class="alfa">Z</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?alfa=%E6%E5%F81234567890">Other</a>
                </span></font>
            </div><br>
            <div align="center">
              <%
str_alfa = LCase(Request.QueryString.Item("alfa")) & UCase(Request.QueryString.Item("alfa"))
str_sql2 = "SELECT * FROM bruger where godkendt=true AND ("
If Len(str_alfa) < 1 Then
str_alfa = "ABCDabcd"
End if
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & " OR"
    End If
    str_sql2 = str_sql2 & " brugernavn LIKE '" &  Mid(str_alfa,i,1) & "%'"
next

str_sql2 = str_sql2 & ") ORDER BY brugernavn"

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
rs.Open str_sql2, Conn, 1
%>
              <%
if rs.EOF then
%>            <span class="skrift">Ingen Bruger Her.</span>
              <%
else
%>   
<%intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
        intPage = 1
    End If
   
    Set record = Server.CreateObject("ADODB.RecordSet")
    Sql3 = "SELECT * FROM bruger ORDER BY brugernavn ASC"
    record.Open Sql3,Conn,1 %>&nbsp;
              <table width="100%" cellspacing="1" border="0" cellpadding="0" bgcolor="#000000" id="table2">
                <tr bgcolor="#0099FF">
                  <td width="125" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" id="table3">
                      <tr>
                        <td class="skrift">Ringetone</td>
                      </tr>
                    </table>
                    </td>
                  <td width="66" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" id="table4">
                      <tr>
                        <td class="skrift">K&oslash;n</td>
                      </tr>
                    </table>
                    </td>
                  <td width="66" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1" id="table5">
                      <tr>
                        <td class="skrift">Alder</td>
                      </tr>
                    </table>
                    </td>
                  <td width="30" bgcolor="#FEF5CC">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" id="table6">
                      <tr>
                        <td class="skrift">Hits:</td>
                      </tr>
                    </table>
                  </td>
                </tr>
<%                               

    If Not (record.BOF Or record.EOF) Then
    record.PageSize = 10
    record.AbsolutePage = intPage
    intRecCount = record.PageSize
    intPageCount = record.PageCount

    Do While Not record.EOF And intRecCount > 0

%>
                <tr bgcolor="#FFFFFF">
                  <td width="125" bgcolor="#FFFFFF">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" id="table7">
                      <tr>
                        <td class="skrift1">
                          <a href="showuser.asp?id=<%= rs("id") %>"><%= rs("brugernavn") %></a>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="66">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" height="9" id="table8">
                      <tr>
                        <td class="skrift1">
                          <% = rs("kon") %>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="66">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" id="table9">
                      <tr>
                        <td class="skrift1">
                          <% = rs("alder") %>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="30">
                    <table width="100%" border="0" cellspacing="1" cellpadding="1" id="table10">
                      <tr>
                        <td valign="top" class="skrift1">
                          <% = rs("hits") %>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
<%
        Record.MoveNext
        intRecCount = intRecCount - 1
    Loop
end if
%>                                        <tr>
                                            <td height="30" colspan="3" valign="top" bgcolor="#FFFFFF">
                                        <%
                                        Response.Write "<table width=""400""><tr>"
                                        Response.Write "<td align=""center""><font face='Tahoma' size='2'>Du er på side <b>" & intPage & "</b><center>"
                                       
                                        If Clng(intPage) > 1 Then
                                            Response.Write "<a href=default.asp?site=&page=" & intPage - 1 & ">&lt;&lt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                               
                                        Response.Write "&nbsp;"
                                       
                                        For intNum = 1 To intPageCount
                                            Response.Write "<a href=default.asp?site=&page=" & intNum & "><b>" & intNum & "</b></a> "
                                        Next

                                        Response.Write "&nbsp;"

                                        If Clng(intPage) < Clng(intPageCount) Then
                                            Response.Write "<a href=default.asp?site=&page=" & intPage + 1 & ">&gt;&gt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                                        Response.Write "</center></font></td></tr></table>"
                                        %>
                                        </td>
                                        </tr>
                </table>
            </div>
            <% end if %>
          </td>
        </tr>
      </table>
   
</body>

</html>
Avatar billede klinemann Nybegynder
22. april 2006 - 20:28 #16
se evt. http://markmadsen.dk/poletkatalog/
Avatar billede eagleeye Praktikant
22. april 2006 - 20:36 #17
Du skal også overføre  alfa  som vælger bogstav i de links somkommer fra paging eks uden:


Response.Write "<a href=default.asp?site=&page=" & intPage + 1 & ">&gt;&gt;</a>"


Og så med:


Response.Write "<a href=default.asp?alfa=" & Request.QueryString.Item("alfa")& "&site=&page=" & intPage + 1 & ">&gt;&gt;</a>"
Avatar billede klinemann Nybegynder
22. april 2006 - 20:45 #18
der er et problem det og det er når den viser "ALL" så lister den 21 objekter og linker til den samme alle sammen...
Avatar billede klinemann Nybegynder
22. april 2006 - 20:47 #19
den loop'er måske ikke ordentligt?
Avatar billede klinemann Nybegynder
22. april 2006 - 20:49 #20
taller 21 er fordi der er 21 objekter i databasen..
Avatar billede eagleeye Praktikant
22. april 2006 - 20:51 #21
Problemet er at den tager udksriver fra rs ikke record så alle linier i loopet så du bruger record og ikke rs som i denne linie:


                          <a href="showuser.asp?id=<%= rs("id") %>"><%= rs("brugernavn") %></a>


Det skal være:

                          <a href="showuser.asp?id=<%= Record("id") %>"><%= Record("brugernavn") %></a>
Avatar billede klinemann Nybegynder
22. april 2006 - 20:58 #22
det var rigtigt ja, faktisk osse ret logisk :-) - men ser du, vi er nok kommet til at slå ALFA funktionen fra?
Avatar billede eagleeye Praktikant
22. april 2006 - 21:01 #23
Du skal sætte alfa ind på alle links jeg vist kun et af de 3 stedet.
Avatar billede eagleeye Praktikant
22. april 2006 - 21:02 #24
her er de to andre:

                                        If Clng(intPage) > 1 Then
                                            Response.Write "<a href=default.asp?site=&page=" & intPage - 1 & ">&lt;&lt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                               
                                        Response.Write "&nbsp;"
                                       
                                        For intNum = 1 To intPageCount
                                            Response.Write "<a href=default.asp?site=&page=" & intNum & "><b>" & intNum & "</b></a> "
                                        Next




Det skal rettes til:


                                        If Clng(intPage) > 1 Then
                                            Response.Write "<a href=default.asp?alfa=" & Request.QueryString.Item("alfa")& "&site=&page=" & intPage - 1 & ">&lt;&lt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                               
                                        Response.Write "&nbsp;"
                                       
                                        For intNum = 1 To intPageCount
                                            Response.Write "<a href=default.asp?alfa=" & Request.QueryString.Item("alfa")& "&site=&page=" & intNum & "><b>" & intNum & "</b></a> "
                                        Next
Avatar billede klinemann Nybegynder
22. april 2006 - 21:06 #25
det jeg mener med alfa funktionen er at hvis jeg nu klikker på J viser den alt..
Avatar billede klinemann Nybegynder
22. april 2006 - 21:08 #26
hr. eagleeye. det lykkedes sq. nu virker det hele som det skal.
Avatar billede eagleeye Praktikant
22. april 2006 - 21:10 #27
ok for jeg kunne nu også kun se dem men J når jeg trykkede på J :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 12:15 Totalslette bærbar med Linux Mint Af mort1 i Linux
I går 12:05 Safe Boot, er det et godt rep. værktøj? Af Uvanga i Windows
I går 11:36 strømforsyningstester Af dcedata1977 i PC
04/0718:58 Mellemled til forsendelse fra Tyskland Af nu_igen i E-handel
04/0712:44 Lenovo ThinkPad X1 Yoga Af mort1 i PC
White papers
Flere white papers »