Antal gange en bestemt værdi optræder

din kode skal vist se sådan her ud:
<!--START-->
    ' her udskrives værdien for hvert udsagn
      Do While Not objRecResultat.EOF
    Response.Write "Resultat af udsagn 1  "  & objRecResultat("u1")& "<br>"
    Response.Write "Resultat af udsagn 2  "  & objRecResultat("u2")& "<br>"
    Response.Write "Resultat af udsagn 3  "  & objRecResultat("u3")& "<br>"
    Response.Write "Resultat af udsagn 4  "  & objRecResultat("u4")& "<br>"
    Response.Write "Resultat af udsagn 5  "  & objRecResultat("u5")& "<br>"

    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
        IF objRecResultat("u(a)") = 3 THEN
        n=n+1
        else
        end if
    NEXT

    objRecResultat.MoveNext
    Loop
<!--SLUT-->

idet at du med objRecResultat("u(a)") prøver at hente fra en post der endnu ikke er oprettet, jeg mener du bruger MoveNext, indtil du har nået bunden, derefter prøver du at hive flere data ud, efter at passeret den sidste post ;-)

Det er fordi du med objRecResultat.MoveNext skifter til næste post, hvorefter den springer ud af løkken, fordi der jo kun er 1. Herefter ønsker du at få værdien af objRecResultat("u(a)"), som jo ikke længere er gyldig, da du er gået en linie ned.

Det hedder heller ikke: objRecResultat("u(a)")
Det hedder: objRecResultat (noget andet hvor u og tallet lægges sammen, som streng)

Prøv dette også:

obj = "u" & str(a)
objRecResultat(obj)

eller smartere : objRecResultat("u" & a)

den finder selv ud af at konvertere a til en streng ved en sammenlægning med "u" - ellers hedder det jo CStr(a) (Convert To String) og ikke str(a)

ku ik la vær' :-P

det er sgu helt ok - vi er her for at løse vores egne eller andres problemer.

hehe JA! :-)

-> dr-data & niceday

Wauw - sikken meget hjælp.

Det er ikke lykkes for mig endnu. Jeg er kommet dertil, at det er forskellige kombinationer på må og få der prøves af!

Jeg har prøvet jeres forslag, sidste gav følgende:
Resultat af udsagn 1 3
Resultat af udsagn 2 3
Resultat af udsagn 3 3
Resultat af udsagn 4 3
Resultat af udsagn 5 3

Microsoft VBScript runtime error '800a000d'

Type mismatch

/testen/resultat3.asp, line 20

hvor linie 20 er obj = "u" & str(a)

hele koden har jeg sat til sidst.

Selve databasen ser sådan ud ID|u1|u2|u3|u4|u5
med en række som skrives ind med værdier fra 1 til 5

:-) Karsten

også den sidste kode:

<%
  Set objRecResultat = Server.CreateObject ("ADODB.Recordset")
  objRecResultat.Open "databasen", objConn, 0, 1, 2
   
    ' her udskrives værdien for hvert udsagn
      Do While Not objRecResultat.EOF
    Response.Write "Resultat af udsagn 1  "  & objRecResultat("u1")& "<br>"
    Response.Write "Resultat af udsagn 2  "  & objRecResultat("u2")& "<br>"
    Response.Write "Resultat af udsagn 3  "  & objRecResultat("u3")& "<br>"
    Response.Write "Resultat af udsagn 4  "  & objRecResultat("u4")& "<br>"
    Response.Write "Resultat af udsagn 5  "  & objRecResultat("u5")& "<br>"
    objRecResultat.MoveNext
   
    obj = "u" & str(a)
    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
        IF  objRecResultat("obj") <> 3 THEN
        n=n+1
        else
        end if
    NEXT

    objRecResultat.MoveNext
   
    Loop
    Response.Write "Antal nr = 3 "  & "n" & "<br>"
   
   
objRecResultat.close
set objRecResultat = nothing
objConn.close
set objConn = nothing
%>

:-)

denne her er lige rettet lidt til:

    obj = "u" & cstr(a)
    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
        IF  objRecResultat(obj) <> 3 THEN
        n=n+1
        else
        end if
    NEXT

2 rettelser...
- det hedder cstr(a)
- og objRecResultat("obj")

ups - glemte at rette - objRecResultat("obj") til objRecResultat(obj)

-> dr-data

Jeg har lige prøvet og får

følgende fejl

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/testen/resultat3.asp, line 23

hvor linie 23 er IF  objRecResultat(obj) <> 3 THEN


:-) Karsten

Skal det laves på en helt anden måde???

har du prøvet med
If objRecResultat("u" & a) <> 3 Then

Hvorfor laver du ikke en count ?

select count(*) from tabel where felt=værdi_der_skal_findes

hov min fejl, ignorere min besked, var lidt søvnig.

idet følgende ikke kan lade sig gøre:

    obj = "u" & cstr(a)
    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
        IF  objRecResultat(obj) <> 3 THEN
        n=n+1
        else
        end if
    NEXT

fordi a først bliver brugt inde i løkken....
hvis "obj", skal bruges, skal det se sådan her ud....

    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
    obj = "u" & cstr(a)
        IF  objRecResultat(obj) <> 3 THEN    ' det kan være den skal have cstr(a), men det skulle jeg ikke mene..
        n=n+1
        else
        end if
    NEXT

eller den som jeg selv foretrækker:
    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
        IF  objRecResultat("u" & a) <> 3 THEN
        n=n+1
        else
        end if
    NEXT

/Vania :-)

' det kan være den skal have cstr(a), men det skulle jeg ikke mene

nede ved min foretrukne...

-> dr-data

Det lykkedes med det sidste du sagde. Sætter lige koden såfremt andre har lyst til at se det rigtige resultat.

-> thomas_yde
Jeg vidste ikke man kunne det. Jeg holder mig til dette, det virker nu.

:-) Karsten

koden som virker:

  Set objRecResultat = Server.CreateObject ("ADODB.Recordset")
  objRecResultat.Open "databasen", objConn, 0, 1, 2
   
    ' her udskrives værdien for hvert udsagn
      Do While Not objRecResultat.EOF
    Response.Write "Resultat af udsagn 1  "  & objRecResultat("u1")& "<br>"
    Response.Write "Resultat af udsagn 2  "  & objRecResultat("u2")& "<br>"
    Response.Write "Resultat af udsagn 3  "  & objRecResultat("u3")& "<br>"
    Response.Write "Resultat af udsagn 4  "  & objRecResultat("u4")& "<br>"
    Response.Write "Resultat af udsagn 5  "  & objRecResultat("u5")& "<br>"

   
   
    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
        If objRecResultat("u" & a) = 3 Then
        n=n+1
        else
        end if
    NEXT

    objRecResultat.MoveNext
   
    Loop
    Response.Write "Antal nr = 3 " & n & "<br>"
   
   
objRecResultat.close
set objRecResultat = nothing
objConn.close
set objConn = nothing

dr-data >
IF  objRecResultat("u" & a) <> 3 THEN
skal det ikke være = 3 ?

karsten_larsen >
<%
  Set objRecResultat = Server.CreateObject ("ADODB.Recordset")
  objRecResultat.Open "databasen", objConn, 0, 1, 2
   
    ' her udskrives værdien for hvert udsagn
      Do While Not objRecResultat.EOF
    Response.Write "Resultat af udsagn 1  "  & objRecResultat("u1")& "<br>"
    Response.Write "Resultat af udsagn 2  "  & objRecResultat("u2")& "<br>"
    Response.Write "Resultat af udsagn 3  "  & objRecResultat("u3")& "<br>"
    Response.Write "Resultat af udsagn 4  "  & objRecResultat("u4")& "<br>"
    Response.Write "Resultat af udsagn 5  "  & objRecResultat("u5")& "<br>"
    objRecResultat.MoveNext  <--- flytter curseren
   
    obj = "u" & str(a)
    ' her skal findes antallet af gange af en bestemt værdi
    For a=1 to 5
        IF  objRecResultat("obj") <> 3 THEN
        n=n+1
        else
        end if
    NEXT

    objRecResultat.MoveNext  <--- flytter curseren
     
    Loop
    Response.Write "Antal nr = 3 "  & "n" & "<br>"
   
   
objRecResultat.close
set objRecResultat = nothing
objConn.close
set objConn = nothing
%>

Vil den ikke flytte curseren 2 gange?

thomas_yde sov nu heller ik helt.... ;-)
findtal = 3
Sql = "select count(*) As Antal from Tabel where u1=" & findtal & " OR u2=" & findtal & " OR u3=" & findtal & " OR u4=" & findtal & " OR u5=" & findtal
antal rækker der indeholder tallet "findtal", vil så være fx. Rs("Antal")
:-P

thomas_yde> øhh? - jo sikkert..., sådan går det når man er lidt for hurtig på fingrene :-)

dr-data > hehe jep og når man skriver lidt før man har læst det hele igennem *<|:)

selvom det nu faktisk ikke var MIG der havde indført den smutter

den blev postet af Karsten : 07/01-2003 12:04:08 :-P

:D
Jeg noterede det bare lidt.
Men din kode burde da virke, men er du ikke enig i at den flytter curseren 2 gange i scriptet ?

jo da... i den grad..... den øverste kan udlades.... - ellers tæller den kun 50%

kan / skal....

Jeg kan huske en tv-udsendelse som hed Nat på Nettet, vistnok på tv4. Så fejl kan jo ske på Nat på Eksperten.

I skal have mange tak for hjælpen. Fordeling af point er dr-data 55 niceday 10 og 5 til thomas yde, hvis du ligger et svar.

:-) karsten

nej det er ligemeget jeg sov jo i timen så bare giv de andre point :)

Det kan man ikke. Så jeg opretter et point spørgsmål for det de sidste point.

:-) karsten