Avatar billede mejse Nybegynder
17. maj 2002 - 09:25 Der 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
               
                StrSQL = "SELECT * from software WHERE (SoftwareID = " & reqSoftwareID & ")"
                Set RSsofts=Server.CreateObject("ADODB.Recordset")
                    RSsofts.CursorLocation = 2
                    RSsofts.Open(strSQL), Conn, 1
'--------------------------------------------------------------------------------------
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<LINK rel="stylesheet" type="text/css" href="../../Style.css">
</HEAD>

<BODY>
<H3 align=center>Software Administration</H3>
<P align=center>
</P>
<%
'her fyldes data fra recoordset RSsoftware---------------------------------------------
dim bgcolor

Response.Write "<TABLE border=0 align=center cellspacing=0 cellpadding=3>"
                Response.Write"<tr>"
                Response.Write "<th colspan=3>Versioner: "
                Response.Write RSsofts("Software")
                Response.Write "</th>"
                Response.Write"</tr>"
               
                if (RSsoftversion.BOF and RSsoftversion.EOF) then
                Response.Write "<TR BGCOLOR=#EEEEEE>"
               
                Response.Write "<td align=left width=420px colspan=3>"
                Response.Write ("Der er ingen versioner til denne software")
               
                Response.Write "<td align=left width=30px >"
                Response.Write "<a href=nyversioner.asp?SoftwareID="& reqSoftwareID &">"
                Response.Write "Ny"
                Response.Write "</a>"
                else
               
    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"

                Response.Write "<TR BGCOLOR="
                Response.Write bgcolor
                Response.Write ">"
               
                Response.Write "<td align=left width=380px>"
                Response.Write RSsoftversion("SoftwareVersion")
           
                Response.Write "<td align=left width=40px>"
                Response.Write "<a href=retversioner.asp?SoftVersionID="& RSsoftversion("SoftVersionID") &">"
                Response.Write "Ret"
                Response.Write "</a>"
               
               
                Response.Write "<td align=left width=30px>"
                Response.Write "<a href=nyversioner.asp?SoftwareID="& reqSoftwareID &">"
                Response.Write "Ny"
                Response.Write "</a>"
                                   
                'Response.Write "<td align=left width=50px>"
                'Response.Write "<a href=sletversioner.asp>"
                'Response.Write "SLET"
                'Response.Write "</a>"
               
                    rowcount = rowcount + 1
                    RSsoftversion.MoveNext

            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>&nbsp"
                Next
                end if
                Response.Write("</p>")
               
                Response.Write ("<A href=java script:%20history.go(-1)>Tilbage..</A>")

'LUKKER DATABASE FORBINDELSEN SAMT RECORDSET-------------------------------------------
RSsoftversion.Close
Set RSsoftversion= NOTHING

Conn.Close
set Conn = Nothing

%>
</BODY></HTML>
Avatar billede mejse Nybegynder
17. maj 2002 - 09:35 #1
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
               
                StrSQL = "SELECT * from software WHERE (SoftwareID = " & reqSoftwareID & ")"
                Set RSsofts=Server.CreateObject("ADODB.Recordset")
                    RSsofts.CursorLocation = 2
                    RSsofts.Open(strSQL), Conn, 1
'--------------------------------------------------------------------------------------
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<LINK rel="stylesheet" type="text/css" href="../../Style.css">
</HEAD>

<BODY>
<H3 align=center>Software Administration</H3>
<P align=center>
</P>
<%
'her fyldes data fra recoordset RSsoftware---------------------------------------------
dim bgcolor

Response.Write "<TABLE border=0 align=center cellspacing=0 cellpadding=3>"
                Response.Write"<tr>"
                Response.Write "<th colspan=3>Versioner: "
                Response.Write RSsofts("Software")
                Response.Write "</th>"
                Response.Write"</tr>"
               
                if (RSsoftversion.BOF and RSsoftversion.EOF) then
                Response.Write "<TR BGCOLOR=#EEEEEE>"
               
                Response.Write "<td align=left width=420px colspan=3>"
                Response.Write ("Der er ingen versioner til denne software")
               
                Response.Write "<td align=left width=30px >"
                Response.Write "<a href=nyversioner.asp?SoftwareID="& reqSoftwareID &">"
                Response.Write "Ny"
                Response.Write "</a>"
                else
               
    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"

                Response.Write "<TR BGCOLOR="
                Response.Write bgcolor
                Response.Write ">"
               
                Response.Write "<td align=left width=380px>"
                Response.Write RSsoftversion("SoftwareVersion")
           
                Response.Write "<td align=left width=40px>"
                Response.Write "<a href=retversioner.asp?SoftVersionID="& RSsoftversion("SoftVersionID") &">"
                Response.Write "Ret"
                Response.Write "</a>"
               
               
                Response.Write "<td align=left width=30px>"
                Response.Write "<a href=nyversioner.asp?SoftwareID="& reqSoftwareID &">"
                Response.Write "Ny"
                Response.Write "</a>"
                                   
                'Response.Write "<td align=left width=50px>"
                'Response.Write "<a href=sletversioner.asp>"
                'Response.Write "SLET"
                'Response.Write "</a>"
               
                    rowcount = rowcount + 1
                    RSsoftversion.MoveNext

            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>&nbsp"
                Next
                end if
                Response.Write("</p>")
               
                Response.Write ("<A href=java script:%20history.go(-1)>Tilbage..</A>")

'LUKKER DATABASE FORBINDELSEN SAMT RECORDSET-------------------------------------------
RSsoftversion.Close
Set RSsoftversion= NOTHING

Conn.Close
set Conn = Nothing

%>
</BODY></HTML>
Avatar billede benson Nybegynder
17. maj 2002 - 09:46 #2
Hmm ! Er det ikke dig der skal fortælle størrelsen på RSsoftversion.Pagesize ?
Avatar billede mejse Nybegynder
17. maj 2002 - 10:00 #3
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>&

men er ikke sikker.

mejse
Avatar billede benson Nybegynder
17. maj 2002 - 10:11 #4
Response.Write "<a href=""versioner.asp?page=" & i & """>" & i & "</a>&

Dine ' skal ændres til ""

Benson
Avatar billede mejse Nybegynder
17. maj 2002 - 10:16 #5
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.
Avatar billede benson Nybegynder
17. maj 2002 - 10:23 #6
Sidste chance !

1. Jeg mener nu helt bestem at du skal bruge "" i stedet for ', også de andre steder du bruger dem og ikke bruger dem !

Response.Write "<a href=""retversioner.asp?SoftVersionID="& RSsoftversion("SoftVersionID") &""">"

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")

benson
Avatar billede mejse Nybegynder
17. maj 2002 - 10:40 #7
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

hvis du giver op er det ok *SS*
Avatar billede benson Nybegynder
17. maj 2002 - 10:50 #8
nb! på siden står der altså
Page = trim(Request("page"))
if Page = "" then Page = 1

hvis du giver op er det ok *SS*

Det gør jeg nok snart !!! ;-(

Men når du ber' om en værdi som Request("page")så får du da ikke fat i en værdi som er sendt som querystring ??

FINAL ANSWER

God vind mejse
Avatar billede atn Nybegynder
17. maj 2002 - 14:04 #9
Benson >> Jo du kan godt få en querystring med hvis du kun bruger request("xxx")

venligst

<ATN/>
Avatar billede mejse Nybegynder
27. maj 2002 - 14:41 #10
lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester