Paging Problem — webForum

NicklasMedlem sedan juni 200133 inlägg

26 nov. 2004 08:52#1

Paging Problem, ni har inte hör den förut va :p

I följande kod så vill jag flytta mig framåt en dag i sänder, men det blir 20 dagar och jag mistänker att det ha att göra med Len men jag vet inte hur jag ska göra för att kringgå detta.

<%@ LANGUAGE="VBSCRIPT" %>
<%
dim enddate

set Databas = Server.CreateObject("ADODB.Connection")
session("dbloggbok") = "provider=SQLOLEDB ;Data source=BHSN43;Initial 

Catalog=mediainfo;user id=mmuser; password=mmuser"
Databas.Open session("dbloggbok")

thisenddate = Request.QueryString("enddate")
if len(thisenddate)=0 then
	thisenddate = now +1
end if

lnklogid = Request.Querystring("logid")

strSQLMaxID = "SELECT MAX(LogID)AS MaxId FROM Loggbok"
set rsMaxid = Databas.Execute (strSQLMaxid)
strmaxid = rsMaxid("MaxId")

if len(lnklogid) > 0 then
	strSQL = "SELECT * FROM Loggbok WHERE LogID = " & lnklogid
else
	strSQL = "SELECT * FROM Loggbok WHERE LogID = " & strmaxid
end if

set rs = Databas.Execute ("loggboklist '" & thisenddate & "'")
strlogid = rs("LogID")

%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<LINK rel="stylesheet" type="text/css" href="css/mmLoggbok.css">
<TITLE></TITLE>

</HEAD>

<BODY>

<BR>
<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Steam"   title="Klicka för 

att redigera Ånga">Ånga</A>
<BR>
<%=rs("Steam")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=AirWater" title="Klicka för 

att redigera Luft/Vatten">Luft/vatten</A>
<BR>
<%=rs("AirWater")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Env" title="Klicka för att 

redigera miljö">Miljö</A>
<BR>
<%=rs("Env")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Hg" title="Klicka för att 

redigera CRV">CRV</A>
<BR>
<%=rs("Hg")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Earth" title="Klicka för att 

redigera Jordreningen">Jordreningen</A>
<BR>
<%=rs("Earth")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Other" title="Klicka för att 

redigera Övrigt">Övrigt</A>
<BR>
<%=rs("Other")%>

<%
while not rs.EOF
%>

<%
newenddate = rs("Datum")
rs.movenext
wend%>

</TABLE>

<TABLE width=600 align = center>
	<tr> 
	<td align = left colspan = 5></td>
	</tr>
	<tr> 
	<td align=left colspan=2><a href="test.asp" 

title="Tillbaka">Tillbaka</a></td>
	<td></td>
	<td align=right colspan=2><a href="test.asp?enddate=<%=newenddate%>" 

title="Nästa">Nästa sida</a></td>
	</tr>

</TABLE>

<%
rsMaxid.close
rs.close
databas.Close
%>
</BODY>

Tack på förhand

Ps @anders ser koden "lite" bättre ut nu? :r

NicklasMedlem sedan juni 200133 inlägg

26 nov. 2004 11:21#2

Jag fick till det tillslut, säkert inte den bästa koden men det fungerar. Jag postar in koden om det är någon som i framtiden kan ha nytta av den.

<%@ LANGUAGE="VBSCRIPT" %>
<%
dim enddate
dim LogID

set Databas = Server.CreateObject("ADODB.Connection")
session("dbloggbok") = "provider=SQLOLEDB ;Data source=BHSN43;Initial Catalog=mediainfo;user id=mmuser; password=mmuser"
Databas.Open session("dbloggbok")

lnklogid = Request.Querystring("logid")

enddateSize = 2
enddate = Request.QueryString("enddate")
if enddate = "" then 
	enddate = +1
end if

strSQLMaxID = "SELECT MAX(LogID)AS MaxId FROM Loggbok"
set rsMaxid = Databas.Execute (strSQLMaxid)
strmaxid = rsMaxid("MaxId")

if len(lnklogid) > 0 then
	strSQL = "SELECT * FROM Loggbok WHERE LogID = " & lnklogid
else
	strSQL = "SELECT * FROM Loggbok WHERE LogID = " & strmaxid
end if

set rs = Databas.Execute (strSQL)
enddate = (rs(0)-1)-enddateSize +2

'strlogid = rs("LogID")

%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<LINK rel="stylesheet" type="text/css" href="css/mmLoggbok.css">
<TITLE></TITLE>

</HEAD>

<BODY>

<BR>
<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Steam"   title="Klicka för att redigera Ånga">Ånga</A>
<BR>
<%=rs("Steam")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=AirWater" title="Klicka för att redigera Luft/Vatten">Luft/vatten</A>
<BR>
<%=rs("AirWater")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Env" title="Klicka för att redigera miljö">Miljö</A>
<BR>
<%=rs("Env")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Hg" title="Klicka för att redigera CRV">CRV</A>
<BR>
<%=rs("Hg")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Earth" title="Klicka för att redigera Jordreningen">Jordreningen</A>
<BR>
<%=rs("Earth")%>

<A HREF="loggbokdetalj.asp?anm=<%=rs("LogID")%>&sort=Other" title="Klicka för att redigera Övrigt">Övrigt</A>
<BR>
<%=rs("Other")%>

<%
while not rs.EOF
%>

</TABLE>

<TABLE width=600 align = center>
	<tr> 
	<td align = left colspan = 5></td>
	</tr>
	<tr> 
	<td align=left colspan=2><a href="test.asp" title="Tillbaka">Tillbaka</a></td>
	<td></td>
	<td align=right colspan=2><a href="test.asp?LogID=<%=enddate%>" title="Nästa">Nästa sida</a></td>
	</tr>

</TABLE>

<%
rs.movenext
wend
%>

<%
rsMaxid.close
rs.close
databas.Close
%>
</BODY>