---
title: "Visa 3 senaste inläggen på annan sida?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10060-visa-3-senaste-inläggen-på-annan-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Korak"
published: "2001-06-14T18:28:00.000Z"
updated: "2001-06-14T18:28:00.000Z"
replies: 0
views: 252
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10060-visa-3-senaste-inläggen-på-annan-sida"
---

# Visa 3 senaste inläggen på annan sida?

## #1 — Korak, 2001-06-14T18:28Z

Kan någon hjälpa mig att visa hur man på enklast sätt, med så lite kod som möjligt, visar de tre senaste inläggen från detta script på en annan sida. Skulle även bli jätteglad om någon kunde berätta hur jag gör för att lägga in "Sida X av totalt X sidor" i detta script. (filen data.asp innehåller sökvägen till databasen)

\<!-- #include file="data.asp" --\>
\<%
dim data, strDB, page, display, include_page, num_items, multi, intCount, show_email, linked_page
if request.querystring("page") = "" then
	page = 1
else
	page = request.querystring("page")
end if

set data = server.createobject("ADODB.Recordset")
data.activeconnection = strDB
data.source = "SELECT \* FROM admin WHERE id = 1"
data.open
num_items = data("items_per")
display = data("display")
include_page = data("included_page")
multi = data("multi")
show_email = data("show_email")
if data("linked_page") = "none" then
	linked_page = include_page
	else
	linked_page = data("linked_page")
end if
data.close

if request.querystring("id") \<\> "" then
	set data = server.createobject("ADODB.Recordset")
	data.activeconnection = strDB
	data.source = "SELECT \* FROM news WHERE id = " & request.querystring("id")
	data.cursortype = 2
	data.cursorlocation = 3
	data.locktype = 3
	data.open
	if show_email = "yes" then
		show_email = "\</b\> - \<a href=""mailto:" & data("author_email") &"""\>" & data("author_email") & "\</a\>\</p\>"
		else
		show_email = ""
	end if
	response.write "\<p\>\<font size=""4""\>\<b\>" & data("news_title") & "\</font\>\</b\>  " & data("news_date") & "\</p\>\<p\>"
	response.write "\<font size=""2""\>" & data("news_text") & "\</p\>\</font\>\<p\>"
	response.write "Posted By: \<b\>" & data("news_author") & show_email
	response.write "\<a href=""" & include_page & """\>Back\</a\>"
	show = "no"
end if

if show = "" then
set data = server.createobject("ADODB.RecordSet")
data.activeconnection = strDB
data.source = "SELECT \* FROM news ORDER BY id DESC"
data.cursortype = 3
data.cursorlocation = 3
data.locktype = 3
data.pagesize = num_items
data.open
data.absolutepage = page

intCount = 0
while not data.eof and intCount \< data.pagesize
intCount = intCount + 1
	if display = "A" then
		if show_email = "yes" then
			show_email = "\</b\> - \<a href=""mailto:" & data("author_email") &"""\>" & data("author_email") & "\</a\>\</p\>"
			else
			show_email = ""
		end if
		response.write "\<font size=""4""\>\<b\>" & data("news_title") & "\</font\>\</b\>  " & data("news_date") & "\<br\>"
		response.write "\<font size=""2""\>" & data("news_text") & "\</font\>\<br\>\<br\>"
		response.write "Posted By: \<b\>" & data("news_author") & show_email
		response.write "\<hr\>"
	end if
	if display = "B" then
		response.write data("news_date") & "\<br\>"
		response.write "\<a href=""" & linked_page & "?id=" & data("id") & """\>" & data("news_title") & "\</a\>\<br\>"
	end if
	if display = "C" then
		response.write "\<br\>\<a href=""" & linked_page & "?id=" & data("id") & """\>" & data("news_title") & "\</a\>\<br\>"
		response.write "\<font size=""2""\>" & left(data("news_text"), 40) & "...\</font\>\<br\>"
	end if
	data.movenext
wend

response.write "\<br\>"

if multi = "yes" then
	if not data.eof then
		response.write "\<a href=""" & include_page & "?page="& page + 1 & """\>Next\</a\>"
	end if
end if

if multi = "yes" then
	if page \> 1 then
		response.write "    \<a href=""" & include_page & "?page="& page - 1 & """\>Back\</a\>"
	end if
end if
data.close
end if
%\>

Tack på förhand!
//Korak

Permalänk: https://www.webforum.nu/p/10060

---

Tråden på webben: https://www.webforum.nu/amne/asp/10060-visa-3-senaste-inläggen-på-annan-sida