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