<%@LANGUAGE=VBScript%>
<%
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter
u_order=request("u_order")
select case u_order
case "navn","type","antal cd'er","box","size (mb)"
case else
response.redirect "paging.asp?u_order=navn"
end select
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("db/mystuff.mdb") & ";" & _
"Persist Security Info=True"
Conn.Open(sConnection)
recordsonpage = 25
allrecords = 0
set rs = conn.Execute("SELECT * FROM film_eng")
do until rs.EOF
allrecords = allrecords + 1
rs.movenext
loop
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
requestrecords = 0
else
requestrecords = requestrecords + offset
end if
set rs = conn.Execute("SELECT * FROM film_eng order by "& u_order &" " )
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
hiddenrecords = hiddenrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
%>
<% if session("logon") <> "yes" then response.redirect "login.asp" %>
<HTML>
<HEAD>
<TITLE>Movie List</TITLE>
</HEAD>
<BODY background="gfx/bg_standard.jpg">
<DIV id=Layer1 style="Z-INDEX: 2; LEFT: 0px; WIDTH: 761px; POSITION: absolute; TOP: 0px; HEIGHT: 60px">
<TABLE height=60 cellSpacing=0 cellPadding=0 width=761 border=0>
<TR>
<TD vAlign=top align=left width=458 height=60>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=458 border=0>
<TR>
<TD vAlign=top align=left width=20 height=60> </TD>
<TD vAlign=top align=left width=112 height=60><div align="right"><A href="#"><IMG src="gfx/logo.jpg" width=135 height=60 border=0 align="right"></A>
<IMG height=10 src="gfx/blank.gif" width=10></div></TD>
<TD vAlign=top align=left width=326 height=60> </TD>
</TR></TABLE></TD>
<TD vAlign=top align=left width=303 height=60>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=303 border=0>
<TR>
<TD vAlign=top align=left width=303 height=18></TD></TR>
<TR>
<TD vAlign=top align=left width=303 height=23>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=303 border=0>
<TR>
<TD width=35 height=12></TD>
<TD width=34 height=12><A href="#"><IMG height=12 src="gfx/m_index01.gif" width=34 border=0></A></TD>
<TD width=46 height=12><A href="#"><IMG height=12 src="gfx/m_ledare01.gif" width=46 border=0></A></TD>
<TD width=128 height=12><A href="#"><IMG height=12 src="gfx/m_intervju01.gif" width=128 border=0></A></TD>
<TD width=40 height=12><A href="#"><IMG height=12 src="gfx/m_skivor01.gif" width=40 border=0></A></TD>
<TD width=20 height=12></TD>
</TR>
</TABLE>
<TABLE height=11 cellSpacing=0 cellPadding=0 width=303 border=0>
<TR>
<TD width=69 height=11><A href="#"><IMG height=11 src="gfx/m_foto01.gif" width=69 border=0></A></TD>
<TD width=51 height=11><A href="#"><IMG height=11 src="gfx/m_tavling01.gif" width=51 border=0></A></TD>
<TD width=44 height=11><A href="#"><IMG height=11 src="gfx/m_forum01.gif" width=44 border=0></A></TD>
<TD width=48 height=11><A href="#"><IMG height=11 src="gfx/m_portal01.gif" width=48 border=0></A></TD>
<TD width=71 height=11><A href="#"><IMG height=11 src="gfx/m_red01.gif" width=71 border=0></A></TD>
<TD width=20 height=11></TD></TR></TABLE></TD></TR>
<TR>
<TD vAlign=top align=left width=303
height=19></TD></TR></TABLE></TD></TR></TABLE></DIV>
<!- Toppens bakgrund ->
<DIV id=id1 style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 0px"><IMG height=60 src="gfx/pixel_brun.jpg" width=761> </DIV>
<!- Vänster ->
<DIV id=id2 style="Z-INDEX: 1; LEFT: 20px; POSITION: absolute; TOP: 80px; width: 720px; height: 277px;">
<TABLE cellSpacing=0 cellPadding=0 width=720 border=0>
<TR>
<TD bgcolor="#333333"><IMG src="gfx/forum.jpg"></TD>
</TR>
<TR>
<TD height=5></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=715 align=right border=0>
<TR>
<TD class=text1 width=344 height=20><a class="link" href="paging.asp?u_order=navn"><B>Navn</B></a></TD>
<TD class=text1 align=right width=63><B>Type</B></TD>
<TD class=text1 align=right width=119><B>Antal Cd'er</B></TD>
<TD class=text1 align=right width=77><strong>Box</strong></TD>
<TD class=text1 align=right width=117><strong>Size (MB)</strong></TD>
</TR>
<%
' prints records in the table
showrecords = recordsonpage
recordcounter = requestrecords
farve=true
do until showrecords = 0 OR rs.EOF
recordcounter = recordcounter + 1
if farve then
%>
<TR bgcolor="#FFFFFF" class=bodytext onmouseover="className='on1';" onmouseout="className='off1';">
<%
else
%>
<TR bgcolor="#f7f7f7" class=bodytext onmouseover="className='on2';" onmouseout="className='off2';">
<%
end if
farve=not farve
%>
<TD height=17 class=text1 ><B><A href="#" onClick="MM_openBrWindow('test.asp?id=<% = rs("id") %>','moviedetails','scrollbars=yes,width=400,height=500'); return false"><% = rs("navn") %></A></B></TD>
<TD class=text1 align=right><A href="#"><B><a href="
http://<%=Request.servervariables("SERVER_NAME") & Request.ServerVariables("URL")%>?ID=<%=rs("box")%>"><% = rs("type") %></B></a>
</TD><TD class=text1 align=right><% = rs("Antal CD'er") %><BR></TD>
<TD class=text1 align=right><% = rs("box") %></TD>
<TD class=text1 align=right><% = rs("size (mb)") %></TD>
</tr>
<%
showrecords = showrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
%>
</table>
<div align="center"><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<% if requestrecords <> 0 then %>
<a class=text1 href="paging.asp?offset=<% = requestrecords - recordsonpage %>"><B><< Foregående</B></a>
<% else %>
<font class=text1>Foregående</font>
<% end if %>
|
<%
pagelist = 0
pagelistcounter = 0
do until pagelist > allrecords
pagelistcounter = pagelistcounter + 1
%>
<B><a class=text1 href="paging.asp?offset=<% = pagelist %>">
<% = pagelistcounter %>
</a></B>|
<%
pagelist = pagelist + recordsonpage
loop
%>
<% if lastrecord <> 1 then %>
<a class=text1 href="paging.asp?offset=<% = requestrecords + recordsonpage %>"><B>Næste >></B></a>
<% else %>
<font class=text1>Næste</font>
<% end if %>
<br>
<%
' Closes connection
rs.close
Conn.close
%>
</div></DIV>
<form name = "form1" method="post" action="login.asp">
<input class="input2" type="submit" name="logoff" value="logoff">
</form>
</body>
</html>
Ok så langt er jeg nået. Men jeg har problemer, nu gider den ikke bladre (page) igenmen siderne :(
Jeg tror problemet ligger i >> response.redirect "paging.asp?u_order=navn" <<
Men jeg ved ikke hvordan jeg ellers skal loade default value ind?
A little help plz :)