17. maj 2002 - 09:25Der er
9 kommentarer og 1 løsning
skiftning mellem sider indeholdende id
Hjælp....
Jeg har et softwareID med fra forrige side. Denne side viser tilhørende versioner (virker første gang) problemet komme når der fx. er mange versioner af en software og de derved skal vises på flere sider, så får jeg en fejl i linie 30, når jeg skal skifte mellem versionssiderne. Tror det er noget med at jeg ikke får softwareID en med og den derfor ikke kan vise de tilhørende versioner.
Håber der er et klogt hoved der lige har løsningen, jeg mangler den hårdt.
Koden på den side der ikke virker:
<%@ Language=VBScript %> <!--#include file="../protect.inc"--> <SCRIPT id=DebugDirectives runat=server language=javascript> // Set these to true to enable debugging or tracing @set @debug=false @set @trace=false </SCRIPT>
<%
dim Conn, RS, RSSoft, strSQL, strConnString, myConn dim strError dim RSsoftware, RSsoftversion dim RSsofts
reqSoftwareID = Request.QueryString("SoftwareID")
Page = trim(Request("page")) if Page = "" then Page = 1
%> <!--#include file="../../inc/sql.inc"--> <%
'recordset for at få data i grid for SOFTWAREN----------------------------------------- StrSQL = "SELECT DISTINCT * from softversion WHERE (SoftwareID = " & reqSoftwareID & ")" Set RSsoftversion=Server.CreateObject("ADODB.Recordset") RSsoftversion.CursorLocation = 2 RSsoftversion.Open(strSQL), Conn, 1
RSsoftversion.AbsolutePage = page for i = 1 to RSsoftversion.PageSize if RSsoftversion.EOF then exit for If i Mod 2 = 1 Then bgcolor = "#EEEEEE" Else bgcolor = "#FFFFFF"
next end if Response.Write "</tr>" Response.Write "</table>"
Response.Write("<p align=center>") if RSsoftversion.PageCount <> 1 then for i = 1 to RSsoftversion.PageCount Response.Write "<a href='versioner.asp?page=" & i & "'>" & i & "</a> " Next end if Response.Write("</p>")
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Siden ovenover er den side jeg kommer fra her er siden hvor problemet opstår på:
<%@ Language=VBScript %> <!--#include file="../protect.inc"--> <SCRIPT id=DebugDirectives runat=server language=javascript> // Set these to true to enable debugging or tracing @set @debug=false @set @trace=false </SCRIPT>
<%
dim Conn, RS, RSSoft, strSQL, strConnString, myConn dim strError dim RSsoftware, RSsoftversion dim RSsofts
reqSoftwareID = Request.QueryString("SoftwareID")
Page = trim(Request("page")) if Page = "" then Page = 1
%> <!--#include file="../../inc/sql.inc"--> <%
'recordset for at få data i grid for SOFTWAREN----------------------------------------- StrSQL = "SELECT DISTINCT * from softversion WHERE (SoftwareID = " & reqSoftwareID & ")" Set RSsoftversion=Server.CreateObject("ADODB.Recordset") RSsoftversion.CursorLocation = 2 RSsoftversion.Open(strSQL), Conn, 1
RSsoftversion.AbsolutePage = page for i = 1 to RSsoftversion.PageSize if RSsoftversion.EOF then exit for If i Mod 2 = 1 Then bgcolor = "#EEEEEE" Else bgcolor = "#FFFFFF"
next end if Response.Write "</tr>" Response.Write "</table>"
Response.Write("<p align=center>") if RSsoftversion.PageCount <> 1 then for i = 1 to RSsoftversion.PageCount Response.Write "<a href='versioner.asp?page=" & i & "'>" & i & "</a> " Next end if Response.Write("</p>")
jo men default er den 10 og det fungerer også fint, den viser de første 10 poster,og skriver så 1 og 2 under tabellen, problemet kommer når jeg trykker på 1 eller 2 så får jeg en fejl, mener ikke at jeg får ID'en med over og tror fejlen ligger i linien:
Response.Write "<a href='versioner.asp?page=" & i & "'>" & i & "</a>&
det giver ingen effekt, det er ikke der problemet er. jeg får ikke SoftwareID'en med på versionerne når jeg skifter side, og derved kan den ikke retunerer versionerne på softwaren.
2. du henter fint din SoftwareID - reqSoftwareID = Request.QueryString("SoftwareID") men jeg kan ikke se at du henter din Page korrek - Page = trim(Request("page")), skulle vel være noget ligende Request.QueryString("PAge")
det der med "" og ' ' fungerer fint og jeg får jo også siden vis første gang jeg kommer til den problemet er når der er flere poster end de 10 og jeg så skal over på næste side (post back) så fejlen er i min page det er jeg enig i, men hvor for nå jeg kommer tilbage så er der jo ikke noget i mit recordset som kan vises pga. at jeg ikke får id'en med over på softwaren i pagen...
nb! på siden står der altså Page = trim(Request("page")) if Page = "" then Page = 1
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.