Random funktion til visning af produkter udfra nogle kriterier!

Jeg glemte lige at fortælle at der er en tabel som definerer kategorier, og en tabel som viser produkter, hvor et id i produkt tabellen er lig et felt i Kategori tabellen!

/Stig :-)

En mulig løsning kunne være lavet over denne skabelon:

SQL = "SELECT TOP 5 katID FROM kategorier ORDER BY Rnd()"
Set rsKat = Conn.Execute(SQL)

Do While Not rsKat.EOF
    KatID = rsKat("katID")

    SQL = "SELECT TOP 1 produktNavn FROM produkter WHERE katID=" & KatID & " AND visPaaForside='ja' ORDER BY Rnd()"
    Set rsProd = Conn.Execute(SQL)

    If Not rsProd.EOF Then
        Response.Write rsProd("produktNavn") & "<br>"
    End If   

    rsKat.MoveNext
Loop

Hej Nielle (Tak for hurtigt svar :-))

Jeg skal lige høre dig, imens jeg prøver scriptet af, er Rnd() en indbygget ASP funktion??

/Stig :-)

Der er en random i ASP, men den jeg har angivet er nu den tilsvarende funktion fra Access eller MS SQL - altså databasen.

Fint nok :-) det er nok også det bedste at bruge!! Jeg kigger lige på det og så hører du fra mig *S

Jeg tror faktisk du er nød til at bruge flg. variant af nielle's kode for at det kommer til at fungere:

SQL = "SELECT TOP 5 katID FROM kategorier ORDER BY Rnd(-1 * CLng(katID))"
Set rsKat = Conn.Execute(SQL)

Do While Not rsKat.EOF
    KatID = rsKat("katID")

    SQL = "SELECT TOP 1 produktNavn FROM produkter WHERE katID=" & KatID & " AND visPaaForside='ja' ORDER BY Rnd(-1 * CLng(tableID))"
    Set rsProd = Conn.Execute(SQL)

    If Not rsProd.EOF Then
        Response.Write rsProd("produktNavn") & "<br>"
    End If   

    rsKat.MoveNext
Loop

I den sidste (nestede) query skal tableID udskiftes med det som er ID for tabellen "produkter".

Jeg får følgende fejl

Microsoft OLE DB Provider for SQL Server error '80040e14'
'CLng' is not a recognized function name.

/mainsite/main.asp, line 782



Min kode ser nu sådan her ud:

<%

    '####### Kategori ############
    '## Create db objects and SQL   
    set katConn = Server.CreateObject("ADODB.Connection")
    katConn.CursorLocation = 3
    katConn.Open Application("ConnectString")
    Set katrs = Server.CreateObject("ADODB.Recordset")

    katSql = "SELECT TOP 5 menuid FROM prodmenu ORDER BY Rnd(-1 * CLng(menuid))"

    Set katrs = katConn.Execute(katSql)

    Do While Not katrs.EOF
    KatID = katrs("menuid")

%>
<tr>
    <td style="width: 195px" align="center">
   
    <%
   
        '####### ForsideProdukter ############
        '## Create db objects and SQL   
        set FrontProdConn = Server.CreateObject("ADODB.Connection")
        FrontProdConn.CursorLocation = 3
        FrontProdConn.Open Application("ConnectString")
        Set FrontProdrs = Server.CreateObject("ADODB.Recordset")
   
        FrontProdSql = "SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=" & KatID & " AND SHOWFRONT='j' AND LAGERANTAL <= 1  ORDER BY Rnd(-1 * CLng(id))"
   
        Set FrontProdrs = FrontProdConn.Execute(FrontProdSql)

        If Not FrontProdrs.EOF Then
    %>

    <table align="right" style="width: 195px" cellspacing="0" cellpadding="0" border="1">
    <tr>
        <td style="width: 195px" align="center"><font face="Verdana" size="2"><b><%=FrontProdrs("VARENR")%></b></font></td>
    </tr>
    </table>

    <%
        End If                   
    %>
   
    </td>
</tr>

            <%
    rsKat.MoveNext
    Loop
%>


Linie 782 er:

Set katrs = katConn.Execute(katSql)

Den brokker sig over CLng som altså ikke er kendt i (din version af) SQL Server. Har du prøvet mit oprindelige forslag?

Det nåede jeg ikke, men det gør jeg nu ;-)

Det kan være den funktion hedder lng alternativt int eller cint...

Hmm.. Nu bliver det spøjst, den brokker sig også over Rnd()

Microsoft OLE DB Provider for SQL Server error '80040e14'
'Rnd' is not a recognized function name.

/mainsite/main.asp, line 782

Ahaaa... SQL Server, det kunne være det fungerer lidt anderledes deri :)

Og hvis den oprindelige ikke fungerer så hedder den funktioner der konverterer til int jo cast(feltnavn as int)...

WOW!! Nu blev jeg forvirret!! vil det så sige at jeg skal lave

Rnd(-1 * cint(menuid))

om til

cast(feltnavn as int)

eller hur??

Nej, følg i første omgang det nielle foreslog og vend tilbage hvis det ikke fungerer...

Ja, men det har jeg prøvet og der brokker den sig over Rnd() ...

Prøv med RAND

Ja, nu brokker den sig da ikke mere, men der kommer bare ikke noget frem på siden..

Hvordan ser din nuværende kode ud?

Kommer der noget hvis du fjerner ORDER BY RAND()?

Jeg har lige prøvet at skrive SQL ud på skærmen hvilket giver dette:

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=1 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY RAND() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=2 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY RAND() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=3 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY RAND() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=4 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY RAND() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=5 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY RAND() 


Det er som om den IKKE laver Random på kategorierne!! ????

Koden ser sådan her ud:

<%

    '####### Kategori ############
    '## Create db objects and SQL   
    set katConn = Server.CreateObject("ADODB.Connection")
    katConn.CursorLocation = 3
    katConn.Open Application("ConnectString")
    Set katrs = Server.CreateObject("ADODB.Recordset")

    katSql = "SELECT TOP 5 menuid FROM prodmenu ORDER BY RAND()"

    'response.write katSql
    'response.end
   
    Set katrs = katConn.Execute(katSql)

    Do While Not katrs.EOF
    KatID = katrs("menuid")

%>
<tr>
    <td style="width: 195px" align="center">
   
    <%
   
        '####### ForsideProdukter ############
        '## Create db objects and SQL   
        set FrontProdConn = Server.CreateObject("ADODB.Connection")
        FrontProdConn.CursorLocation = 3
        FrontProdConn.Open Application("ConnectString")
        Set FrontProdrs = Server.CreateObject("ADODB.Recordset")
   
        FrontProdSql = "SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=" & KatID & " AND SHOWFRONT='j' AND LAGERANTAL <= 1  ORDER BY RAND()"
   
        Response.write FrontProdSql
       
        Set FrontProdrs = FrontProdConn.Execute(FrontProdSql)

        If Not FrontProdrs.EOF Then
    %>

    <table align="right" style="width: 195px" cellspacing="0" cellpadding="0" border="1">
    <tr>
        <td style="width: 195px" align="center"><font face="Verdana" size="2"><b><%=FrontProdrs("VARENR")%></b></font></td>
    </tr>
    </table>

    <%
        End If                   
    %>
   
    </td>
</tr>

            <%
    katrs.MoveNext
    Loop
%>

Nope, der kommer heller ikke noget hvis jeg fjerner dem!!

Det er er så her jeg foreslår dig at prøve dette trick (fordi jeg har set det fungere i Access - som ikke skal sammenlignes med SQL Server på nogen måde i øvrigt! :)):

  katSql = "SELECT TOP 5 menuid FROM prodmenu ORDER BY Rnd(-1 * menuid)"

og

  FrontProdSql = "SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=" & KatID & " AND SHOWFRONT='j' AND LAGERANTAL <= 1  ORDER BY Rnd(-1 * id)"

Doh! I stedet for Rand() skal du bruge NewId().

OK, hvis der ikke kommer noget når du fjerner ORDER BY, så har det jo ikke noget med random-funktionen at gøre (hvilket da heller ikke var oplagt). Så det må nødvendigvis være dit datagrundlag som er anderledes end du forventer.

Prøv at kigge på data i databasen og se om du selv kan finde nogle rækker som burde komme frem (ved det er svært med en tilfældighedsgenerator i ligningen)...

nielle >> Men der kommer slet ikke data selvom rand bliver taget helt ud af forspørgslen... så det er vel ikke det umiddelbare problem... eller hvad?

Det giver heller ikke noget på skærmen, jeg prøvede først med Rnd(-1 * id), som fejlede og så lavede jeg det om til Rand(-1 * id), som så ikke brokker sig, men ikke giver noget resultat!!

Ved at bruge NewId() i stedet for Rand() skulle problemet med random - 07/09-2005 20:23:26 - gerne blive løst. Derefter kan vi tage fat på det næste - det med det manglende output.

Jeg ville umiddelbart sørge for at få data frem først og så begynde at komplicere tingene, det andet virker omvendt :)

Men det skal jeg nok lade være at blande mig i... :)

Det løste ihvertfald det problem ;-)

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=6 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY NewId() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=4 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY NewId() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=2 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY NewId() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=8 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY NewId() 

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=3 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY NewId()

Ok så. Hvad kommer der nu ud på skærmen - samt i Vis Kilde?

Burde det forresten ikke være:

... LAGERANTAL >= 1 ...

?

Den giver ikke noget på skærmen, og kun følgende i Vis Kilde:

    <table align="right" style="width: 195px" cellspacing="0" cellpadding="0" border="1">
    <tr>
        <td style="width: 195px" align="center">
        </td>
    </tr>
    <tr>
        <td style="width: 195px" align="center">
        </td>
    </tr>
    <tr>
        <td style="width: 195px" align="center">
        </td>
    </tr>
    <tr>
        <td style="width: 195px" align="center">
        </td>
    </tr>
    <tr>
        <td style="width: 195px" align="center">
        </td>
    </tr>
    </table>

Det tyder jo på at dine SQL-sætninger:

SELECT TOP 1 VARENR, KALDENAVN, KOSTPRIS, BILLEDFIL FROM VarerSQL WHERE VAREGRUPPE=8 AND SHOWFRONT='j' AND LAGERANTAL <= 1 ORDER BY NewId()

- ikke giver nogle hits. Har du en mulighed for at fyre en af dem af direkte mod databasen via Enterprise eller hvad du nu bruger til at manipulere din database?

Nå ja!! Jeg tager lige og sparker mig selv MEGET hårdt bagi!!!! Jov, nielle du har helt ret det skal selvfølgelig være >= 1, hvilket nu også giver resultater *SS :-)

... og ser resultaterne så fornuftige ud?

TUSIND Tak skal i have!! det virker jo fortrinligt!!

Nu har jeg lidt af et problem med point givningen, er det OK for jer at jeg deler point mellem jer 40/60??

Det bestemmer du helt selv ... jeg har intet imod at dele :^)

... og et svar fra mig :^)

Yes det gør de !! Der er forskellige hvergang jeg reloader, det er jo  kanont, jeg var bange for at der skulle 5 gange så meget kode til, for at få det til at virke!!

Du giver dem bare til nielle, da det var nielle's løsning der fungerede, ellers tak for budet :)

Det er bare iorden!! Det er hermed gjordt *S I får mange tak for jeres kvikke hjælp *S ;-)

Jamen så bukker jeg pænt og siger tak :^)