massimo67
26-03-2004, 19:40
dovrei Paginare lo script che vi posto qui sotto, in modo che mi visualizzi 5 record per volta.
Non conosco bene come voi l'ASP, mi date una mano ?
Se serve vi mando anche il database con i file..intanto vi posto il codice.
<!--#include file="settings.asp" -->
<%
OrderBy = Request.QueryString("sort")
Select Case OrderBy
Case "rubrik"
OrderBy = "ORDER BY rubrik"
Case "datum"
OrderBy = "ORDER BY datum"
Case "visa"
OrderBy = "ORDER BY visa"
Case "forfattare"
OrderBy = "ORDER BY forfattare"
Case Else
OrderBy = "ORDER BY datum desc"
end select
set rsOldnews = connect.execute("select * from nyheter " & OrderBy)
%>
<html>
<head>
<title>List Articles</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="ruta">
<%
do while not rsOldnews.eof
bolVisa = rsOldnews("visa")
select case bolVisa
case "1" %>
<tr>
<td width="62" rowspan="2" valign="top"><a href= "articolo.asp?id=<% =rsOldnews("id")%>">
</a><img src="<% =strImageFolder & rsOldnews("Bild") %>"width="60"></td>
<td width="551" valign="top"><a href= "articolo.asp?id=<% =rsOldnews("id")%>">
<% =rsOldnews("Rubrik") %>
</a></td>
</tr>
<tr>
<td height="36" align="left" valign="top">
<% dim str_miaVar
str_miaVar = rsOldnews("Nyheter")
if Len(str_miaVar)>150 then
response.write(left(str_miaVar,150) & "...")
else
response.write(str_miaVar)
end if %>
</td>
</tr>
<%
case "0"
%>
<tr class="hidden">
<td rowspan="2" valign="top"><img src="<% =strImageFolder & rsOldnews("Bild") %>"width="60"></td>
<td valign="top"><a href= "articolo.asp?id=<% =rsOldnews("id")%>">
<% =rsOldnews("Rubrik") %>
</a></td>
</tr>
<tr class="hidden">
<td align="left" valign="top">
<% =rsOldnews("Nyheter") %>
</td>
</tr>
<%
end select
rsOldnews.movenext
loop
%>
</table>
</body>
</html>
Non conosco bene come voi l'ASP, mi date una mano ?
Se serve vi mando anche il database con i file..intanto vi posto il codice.
<!--#include file="settings.asp" -->
<%
OrderBy = Request.QueryString("sort")
Select Case OrderBy
Case "rubrik"
OrderBy = "ORDER BY rubrik"
Case "datum"
OrderBy = "ORDER BY datum"
Case "visa"
OrderBy = "ORDER BY visa"
Case "forfattare"
OrderBy = "ORDER BY forfattare"
Case Else
OrderBy = "ORDER BY datum desc"
end select
set rsOldnews = connect.execute("select * from nyheter " & OrderBy)
%>
<html>
<head>
<title>List Articles</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="ruta">
<%
do while not rsOldnews.eof
bolVisa = rsOldnews("visa")
select case bolVisa
case "1" %>
<tr>
<td width="62" rowspan="2" valign="top"><a href= "articolo.asp?id=<% =rsOldnews("id")%>">
</a><img src="<% =strImageFolder & rsOldnews("Bild") %>"width="60"></td>
<td width="551" valign="top"><a href= "articolo.asp?id=<% =rsOldnews("id")%>">
<% =rsOldnews("Rubrik") %>
</a></td>
</tr>
<tr>
<td height="36" align="left" valign="top">
<% dim str_miaVar
str_miaVar = rsOldnews("Nyheter")
if Len(str_miaVar)>150 then
response.write(left(str_miaVar,150) & "...")
else
response.write(str_miaVar)
end if %>
</td>
</tr>
<%
case "0"
%>
<tr class="hidden">
<td rowspan="2" valign="top"><img src="<% =strImageFolder & rsOldnews("Bild") %>"width="60"></td>
<td valign="top"><a href= "articolo.asp?id=<% =rsOldnews("id")%>">
<% =rsOldnews("Rubrik") %>
</a></td>
</tr>
<tr class="hidden">
<td align="left" valign="top">
<% =rsOldnews("Nyheter") %>
</td>
</tr>
<%
end select
rsOldnews.movenext
loop
%>
</table>
</body>
</html>