Søg
Avatar billede larsen45 Juniormester
04. september 2003 - 11:20 Der er 10 kommentarer og
1 løsning

ASP søger hjælp til mindre fejl rettelse

angående dette.
http://www.floorballlife.com/test1/links2/vis_alle_nyheder.asp?page=1

er der nogen som kan hjælpe mig med at få det til at se pænt ud det vil sige at få første række (1) og <<>> til at
stå nedeunder sideskift.

På forhånd tak for din hjælp.
Avatar billede larsen45 Juniormester
04. september 2003 - 11:22 #1
her er koden til siden vis_alle_nyheder.asp

----------------------------------------------

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * From linkdb Order by id Desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("linkdb.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Dim intCounter
intCounter = 0
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b>"
Do While Not rs.EOF And intRecCount > 0
 
  intCounter = intCounter + 1
' Personens navn
  strNavn = rs("navn")

  ' lav et link til vis_nyhed.asp med Id-værdien i URL
strLink = "<a href='vis_nyhed.asp?id=" & rs("Id") & "'>" & strNavn & "</a><br>"
' Liste med links
  Response.Write intCounter & ". " & strLink

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing


Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intNum & ">" & intNum & "</a>"
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage + 1 & ">&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If
%>

------------------------------------------------------------------------
Avatar billede gertp Nybegynder
04. september 2003 - 11:27 #2
prøv med de <br> jeg har indsat:

Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b><br>"
......
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage + 1 & "><br>&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If
%>
Avatar billede gertp Nybegynder
04. september 2003 - 11:30 #3
hele koden:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * From linkdb Order by id Desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("linkdb.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Dim intCounter
intCounter = 0
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b><br>"
Do While Not rs.EOF And intRecCount > 0
 
  intCounter = intCounter + 1
' Personens navn
  strNavn = rs("navn")

  ' lav et link til vis_nyhed.asp med Id-værdien i URL
strLink = "<a href='vis_nyhed.asp?id=" & rs("Id") & "'>" & strNavn & "</a><br>"
' Liste med links
  Response.Write intCounter & ". " & strLink

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing


Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intNum & ">" & intNum & "</a>"
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage - 1 & ">&lt;&lt;</a><br>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage + 1 & ">&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If
%>
Avatar billede larsen45 Juniormester
04. september 2003 - 12:07 #4
fint gertp nu er det øverste rettet til nu mangler vi bare at få det nedeste
til at komme en linie længere ned.
Det er dette så skal lidt længere ned: Gå til side 12<< >>
det skal se således ud:
Gå til side:
12
<< >>
Avatar billede larsen45 Juniormester
04. september 2003 - 12:08 #5
se her: http://www.floorballlife.com/test1/links2/vis_alle_nyheder.asp?page=1
Avatar billede gertp Nybegynder
04. september 2003 - 12:11 #6
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * From linkdb Order by id Desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("linkdb.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Dim intCounter
intCounter = 0
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b><br>"
Do While Not rs.EOF And intRecCount > 0
 
  intCounter = intCounter + 1
' Personens navn
  strNavn = rs("navn")

  ' lav et link til vis_nyhed.asp med Id-værdien i URL
strLink = "<a href='vis_nyhed.asp?id=" & rs("Id") & "'>" & strNavn & "</a><br>"
' Liste med links
  Response.Write intCounter & ". " & strLink

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing


Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intNum & ">" & intNum & "</a>"
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<br><a href=vis_alle_nyheder.asp?page=" & intPage - 1 & ">&lt;&lt;</a><br>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage + 1 & ">&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If
%>
Avatar billede larsen45 Juniormester
04. september 2003 - 12:23 #7
det ville ikke rigtigt rykke sig???
prøv at se her:
http://www.floorballlife.com/test1/links2/vis_alle_nyheder.asp?page=1
hvad skal der mon rettes til.
Avatar billede gertp Nybegynder
04. september 2003 - 12:30 #8
hmm... prøv den her:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * From linkdb Order by id Desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("linkdb.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Dim intCounter
intCounter = 0
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b><br>"
Do While Not rs.EOF And intRecCount > 0
 
  intCounter = intCounter + 1
' Personens navn
  strNavn = rs("navn")

  ' lav et link til vis_nyhed.asp med Id-værdien i URL
strLink = "<a href='vis_nyhed.asp?id=" & rs("Id") & "'>" & strNavn & "</a><br>"
' Liste med links
  Response.Write intCounter & ". " & strLink

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing


Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intNum & ">" & intNum & "</a>"
Next %><br><%

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<br><a href=vis_alle_nyheder.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage + 1 & ">&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If
%>
Avatar billede larsen45 Juniormester
04. september 2003 - 12:44 #9
Fint gertp nu virker det som det skal
tak for din ekspert hjælp til mit problem.
Avatar billede gertp Nybegynder
04. september 2003 - 12:46 #10
og skift så lige det nederste så pilene på side 2 ikke rykker en ekstra linie :)


Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=vis_alle_nyheder.asp?page=" & intPage + 1 & ">&gt;&gt;</a>"
Else
Response.Write "&gt;&gt;"
End If
%>
Avatar billede larsen45 Juniormester
04. september 2003 - 13:46 #11
okay gertp
Jeg har nu tilføjet din ændrings kode
det ser sådan ud efter opload til serveren.
http://www.floorballlife.com/test1/links2/vis_alle_nyheder.asp?page=1
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel Indlæg Oprettet Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver 2 16/01/202610:29 16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver 20 07/05/202520:51 10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver 7 06/03/202522:34 10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver 4 31/12/202423:10 01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver 14 11/12/202415:12 13/12/202415:40
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 13:18 Lokal konto Af Bent i Windows
26/0516:16 Inverse formler Af tdktman i Excel
26/0515:33 disk plads på server Af dcedata1977 i Servere
26/0509:09 Flere brugere i 1 delt pivottabel Af mira96ac i Excel
25/0518:29 Beregning af flextid - formler Af Slettet bruger i Excel
White papers
Flere white papers »