Avatar billede Skynet Mester
29. marts 2004 - 00:00 Der er 11 kommentarer og
1 løsning

find asp fejlen?

Hej er der nogen som ved hvorfor det ikke virker, gå ind på http://www.plvinimport.dk/ita/ og vælg i menuen under vinde "portvin"

Er er koden, vh Silas:

<!--#include file="conn.asp"-->
<html>

<head>

<style type="text/css">
BODY{
scrollbar-3d-light-color: #ffffff;
scrollbar-arrow-color: #ffffff;
scrollbar-base-color: #000000;
scrollbar-dark-shadow-color: #000000;
scrollbar-face-color: #000000;
scrollbar-highlight-color: #000000;
scrollbar-shadow-color: #ffffff;
}
</style>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
<link rel="stylesheet" type="text/css" href="HPstyle.css">
<SCRIPT TYPE="text/javascript">
parent.justerTil = 'IMG:../../basket/grafik/kurvJuster.gif,W:30,H:12,ALT:Juster varekurv';
parent.justerFjern = 'IMG:../../basket/grafik/kurvFjern.gif,W:30,H:12,ALT:Fjern varelinie';
</SCRIPT>
</head>

<body bgcolor="#F8E8CE" marginheight="0" marginwidth="60" topmargin="0" leftmargin="60" onload="java script:{if(parent.frames[0]&&parent.frames['menu'].Go)parent.frames['menu'].Go()}">
        <div align="center">
            <form name="vareForm">
                <div align="left">
                    <table border="0" cellspacing="0">
                        <tr>
                            <td colspan="6" width="447">
                                <p class="almTekstCent1" style="word-spacing: 0; line-height: 100%; margin: 0"><a name="top"></a></p>
                            </td>
                            <td width="39"></td>
                        </tr>
                        <tr>
                            <td colspan="6" width="447">
                                <p class="overskrift" style="margin-top: 10">Portvin03</p>
                            </td>
                            <td width="39"></td>
                        </tr>
                        <tr>
                            <td colspan="6" width="447" height="10"></td>
                            <td width="39"></td>
                        </tr>
                        <tr>
                            <td width="50">
                                <p class="almTekst"><b><i><u><a href="portvin.asp?sort=vaargang">&Aring;rgang</a></u></i></b></p>
                            </td>
                            <td width="50">
                                <p class="almTekst"><b><i><u><a href="portvin.asp?sort=vvarenr">Varenr</a></u></i></b></p>
                            </td>
                            <td width="170">
                                <div align="center">
                                    <p class="almTekst"><b><i><u>Vin</u></i></b></p>
                                </div>
                            </td>
                            <td width="50">
                                        <p class="almTekst"><b><i><u><a href="portvin.asp?sort=vpris">Pris</a></u></i></b></p>
                            </td>
                            <td width="115"></td>
                            <td width="12">
                                <div align="left">
                                    <p class="almTekstH"></p>
                                </div>
                            </td>
                            <td width="39"></td>
                        </tr>
                        <tr>
                            <td width="50" height="15"></td>
                            <td width="50" height="15"></td>
                            <td width="170" height="15"></td>
                            <td width="50" height="15"></td>
                            <td width="115" height="15"></td>
                            <td width="12" height="15"></td>
                            <td width="39"></td>
           
             
<% if request.querystring("sort") = "" then
    StrSort = "vvarenr"
else
    StrSort = Request.QueryString("sort")
end if

strSQL = "Select * from vine where vplacering = '15' order by '" & StrSort & "'"
Set rs = Conn.Execute(strSQL)

Do
%>



    </tr>
                        <td width="50" valign="middle">
                            <p class="almTekst"><% Response.Write rs("vaargang") %></p>
                        </td>
                        <td width="50" valign="middle">
                            <p class="almTekst"><% Response.Write rs("vvarenr") %></p>
                        </td>
                        <td width="170" title='Vinens varenummer: <% = rs("vvarenr") %>'>
                            <p class="almTekst"><% Response.Write rs("vnavn1") %><br>
                                <% Response.Write rs("vnavn2") %></p>
                        </td>
                        <td width="50" valign="middle">
                            <p class="almTekstH"><% Response.Write rs("vpris") %>Kr.</p>
                        </td>
                        <td width="115" valign="middle" class="main">
                            <script type="text/javascript">parent.vareAntal(document,'<% = rs("vnavn1") %> <% = rs("vnavn2") %>',<% = rs("vpris") %>,'vareForm','main','parent.liste.location.reload()')</script>
                        </td>
                        <% if rs("vinfo") = "1" then %>
                        <td width="12" valign="middle">
                            <div align="center">
                                <p class="almTekstH"><a href='info.asp?id=<% = rs("vvarenr") %>' target="info"><img border="0" src="info.gif" width="10" height="11" alt="Klik for mere information om vinen"></a></p>
                            </div>
                        </td>
                        <% else %>
                        <td width="39"></td>
                        <% End if %></tr>
                        <tr>
                            <td width="50" height="10"></td>
                            <td width="50" height="10"></td>
                            <td width="170" height="10"></td>
                            <td width="50" height="10"></td>
                            <td width="115" height="10"></td>
                            <td width="12" height="10"></td>
                            <td width="39"></td>
                        </tr>
                        <%     
      ' Gå til næste Record i rs
      rs.MoveNext

    ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)

    Loop While Not rs.EOF %>
                        <tr>
                            <td colspan="6" width="447">
                                <p class="almTekstCent1" style="line-height: 100%; margin-top: 20; margin-bottom: 0">Alle priser er eksklusiv moms.</p>
                                <p class="almTekstCent1" style="line-height: 100%; margin-top: 0; margin-bottom: 0">Der tages forbehold for trykfejl.</p>
                            </td>
                            <td width="39"></td>
                            <%     ' Luk databaseforbindelse
    Conn.Close
    Set Conn = Nothing
    %></tr>
                    </table>
                </div>
            </form>
       
    </body>

</html>
Avatar billede Skynet Mester
29. marts 2004 - 00:01 #1
det skal måske lige nævnes, at fejlen består i at den ikke soterer, prøv ex. at klikke på "pris"
Avatar billede keysersoze Ekspert
29. marts 2004 - 09:43 #2
strSQL = "Select * from vine where vplacering = '15' order by " & StrSort
Avatar billede Skynet Mester
29. marts 2004 - 20:47 #3
tak for det, hvis du sender et svar, giver jeg point.. jeg tænkte på hvordan man får databasen til at sotere, fra mindste pris til højeste. jeg har indsat følgende, men det virker ikke helt:

strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & Desc
Avatar billede keysersoze Ekspert
29. marts 2004 - 20:55 #4
strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & " desc

eller

strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & " asc
Avatar billede Skynet Mester
29. marts 2004 - 22:31 #5
Pris virker med
strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & " desc"

og

årgang og varenummer virker med
strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & " asc "

Hvorfor ved jeg ikke? men man kunne jo løse det ved at lave to querystring. Kan du hjælpe med det, jeg er nemlig ikke så skrap til kodning :)


Så linket kunne være:
portvin.asp?sort=vpris&type=desc

og koden er så:

<% if request.querystring("sort") = "" then
    StrSort = "vvarenr"
else
    StrSort = Request.QueryString("sort")&
    StrType = Request.QueryString("type")
end if

strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & " StrType "


Set rs = Conn.Execute(strSQL)

Do
%>

er det ok kodet? og ved du hvorfor at desc og asc virker forskelligt?

Mvh Silas
Avatar billede Skynet Mester
29. marts 2004 - 22:36 #6
min ide virker ikke helt:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/ita/WWW/vine/portvin.asp, line 86

StrSort = Request.QueryString("sort") &
---------------------------------------^
Avatar billede Skynet Mester
30. marts 2004 - 15:59 #7
hvis der er nogen som kan hjælpe, så send svaret i dette nye indlæg http://www.eksperten.dk/spm/483719 og indkasser 200 point ;-)
Avatar billede keysersoze Ekspert
30. marts 2004 - 16:06 #8
StrSort = Request.QueryString("sort")

strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & " " & StrType
Avatar billede Skynet Mester
30. marts 2004 - 16:41 #9
hej

nu har jeg prøvet med følgende:
<% if request.querystring("sort") = "" then
    StrSort = "vvarenr"
else
    StrSort = Request.QueryString("sort") &
    StrType = Request.QueryString("type")
end if

strSQL = "Select * from vine where vplacering = '15' order by " & StrSort & " " & StrType


Set rs = Conn.Execute(strSQL)

Do
%>

og får denne besked:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/ita/WWW/vine/portvin.asp, line 86

StrSort = Request.QueryString("sort") &
---------------------------------------^
Avatar billede keysersoze Ekspert
30. marts 2004 - 16:46 #10
jamen - hvis du gør hvad jeg skriver bliver det altså liiidt lettere... du skal fjerne det &-tegn til sidst;

StrSort = Request.QueryString("sort")
Avatar billede Skynet Mester
30. marts 2004 - 17:38 #11
ja det er rigtigt :o) jeg er ved at lave et redesign, for en bekendt og var derfor ikke klar over at fejlen vedrøende pris, lå i databasen, da det var angivet som tekst felt.....

Tak for hjælpen, hvis du vil have point, kan du jo lige svare her:  http://www.eksperten.dk/spm/483719

Jeg har liiige et spørgsmål her til sidst, er det ikke unødvendigt at have denne sætning:
<% if request.querystring("sort") = "" then
    StrSort = "vvarenr"
else

Det som den siger, er vel at hvis der er?sort så soterer den efter vvarenr. men man kan jo bare have urlen sådan er?sort=vvarenr. Så er det egentlig ikke en overflødig kode?

Mvh Silas
Avatar billede keysersoze Ekspert
30. marts 2004 - 17:43 #12
Hvis du fjerne den if-statement så vil scriptet fejle hvis ikke der ALTID er en variabel der hedder strSort og som indeholder navnet på en kolonne i basen.
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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