Sammenligne tekst

indeholder rs("Type") "Debitor" værdien eller et ID til en anden tabel hvor det id svare til "Debitor"??

Det kan være fordi rs("Type") ikke har samme "case" som den streng du sammenligner med. En typisk metode er at konvertere begge strenge til upper eller lower case inden sammenligningen. Således:

If lcase(rs("Type")) = "debitor" Then
' så er de ens og "Debitor" = "dEbITor" osv...
else
' teksterne indeholder ikke samme bogstaver i samme sekvens...
end if

Du skal højst sandsynligt konvertere rs("Type") til en streng først..

Dvs:

if CStr(rs("type")) = "Debitor" then

Prøv evt at udskrive betingelsen:
response.write rs("Type") &"="& "Debitor"

Hvis jeg udkriver denne her response.write rs("Type") &"="& "Debitor"

Så skriver siden "Debitor=Debitor"

Den hvis stadig kun kreditor og intet på debitor

Har du prøvet metoden i 08/12-2006 14:39:38?

...selvom jeg må indrømme at det er svært at få andet end true ud af det du siger den skriver ;-)

rs2.Open SQLDeb,Conn
Else
SQL = "SELECT * FROM dbo.kreditor where AccountNumber='" & rs("Konto") & "'"
rs2.Open SQL,Conn

Det ene SQL udtryk hedder SQLDeb og det andet SQL ................
de skal vel være det samme navn.

softspot> Ifølge 08/12-2006 14:46:06 ser det jo rigtigt ud: Så skriver siden "Debitor=Debitor"

fenriz> Prøv lige 08/12-2006 14:39:50..

ja de er også testet... rs("Type") indeholder "Debitor"

Jeg ved det, da jeg gør det ved at man kører musen hen over enten "Kreditor" eller
"Debitor" for at se dens oplysninger...

ffsoft> Det kan ikke være det der er problemet..

Problemet er følgende

hvis betingelse er lig noget så
  udfør A
ellers
  udfør B
slut hvis

Den udfører B altid.. hvilket betyder at "betingelse" ikke er lige "noget"..

fenriz> Prøv lige 08/12-2006 14:39:50..

Kan du ikke vise lidt mere kode end lige de 5 linier, for som ffsoft er inde på, kunne det være noget med konteksten hvori betingelsen fungerer (selvom jeg ikke er helt enig i ffsoft's argumentation)...?

thesurfer (vedr. 08/12-2006 14:49:09) > lcase konverterer til string, så det burde også være på plads hvis min metode benyttes :)

Her er lidt mere af koden:

<table width="870" border="0" cellpadding="5" cellspacing="0" class="Lager"  onmouseover="this.style.backgroundColor='#B3C4CB'" onmouseout="this.style.backgroundColor='#FFFFFF';">
      <tr>
        <td width="148" height="30" valign="top"><% =rs("Varenummer")%></td>
        <td width="72" valign="top"><% =rs("Dato") %></td>
        <td width="60" align="right" valign="top"><% =rs("Antal") %></td>
        <td width="53" align="right" valign="top"><% =rs("Stkpris") %></td>
        <td width="75" align="right" valign="top"><% =rs("Liniebelob") %></td>
        <td width="77" align="center" valign="top"><% =rs("Valutakode") %></td>
        <td width="75" align="center" valign="top"><% =rs("Type") %></td>
        <td width="86" align="center" valign="top">
        <a href="posterview.asp" target="view" class="thumbnail">
        <% =rs("Konto") %><span>
                    <%
                    Dim SQLKre, SQLDeb
                   
                    AabenDB_KreDeb
                       
                    If CStr(rs("Type"))  = "Debitor" Then
       
                           
                            SQLDeb = "SELECT * FROM dbo.Debitor where AccountNumber='" & rs("Konto") & "'"
                           
                           
                            rs2.Open SQLDeb,Conn
                           
                            Else
                               
                                   
                                    SQLKre = "SELECT * FROM dbo.Kreditor where AccountNumber='" & rs("Konto") & "'"
                                   
                                   
                                    rs2.Open SQLKre,Conn

                            Do Until rs2.EOF
                       
                   
            %>
           
            <table width="256" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="115" height="19" valign="top" class="DetalTblColor">Account number: </td>
                <td width="144" valign="top" class="DetalTblColor"><% =rs2("AccountNumber") %></td>
              </tr>
              <tr>
                <td height="19" valign="top">Navn:</td>
                <td valign="top"><% =rs2("Name") %></td>
              </tr>
              <tr>
                <td height="19" valign="top" class="DetalTblColor">Adresse: </td>
                <td valign="top" class="DetalTblColor"><% =rs2("Address1") %></td>
              </tr>
              <tr>
                <td height="19" valign="top">Adresse 2: </td>
                <td valign="top"><% =rs2("Address2") %></td>
              </tr>
              <tr>
                <td height="19" valign="top" class="DetalTblColor">Adresse 3: </td>
                <td valign="top" class="DetalTblColor"><% =rs2("Address3") %></td>
              </tr>
              <tr>
                <td height="19" valign="top">Land:</td>
                <td valign="top"><% =rs2("Country") %></td>
              </tr>
              <tr>
                <td height="19" valign="top" class="DetalTblColor">Telefon nr.: </td>
                <td valign="top" class="DetalTblColor"><% =rs2("Phone") %></td>
              </tr>
            </table>
            <%
                                rs2.MoveNext
                                loop
                                End If
                                   
                                   
            %>


       
        </span></a>
        </td>
        <td width="114" align="center" valign="middle"><% =rs("Sagnummer") %></td>
      </tr>
     
                  <%
           
            rs.MoveNext
            If rs.EOF Then exit for
            Next
            End If
            rs.close
            %>
     
    </table>

"thesurfer (vedr. 08/12-2006 14:49:09) > lcase konverterer til string" virker desværre ikke...

fenriz> Prøv lige 08/12-2006 14:39:50.. :-)

Har du prøvet med CStr(rs("type")) i stedet for bare rs("type")?

Det har du ikke svaret på endnu..

softspot> Det kan jeg godt se logikken i.. det er nok de færreste ting, der har en lowercase/uppercase tilstand.. :-)

thesurfer > ja, men da det jeg sammenligner med er lowercase (det kan jeg jo styre i.o.m. det er en konstant, jf. mit eksempel), så er der jo ikke nogen grund til at kalde lcase på den streng - det ville være åbenlys spild af resurser...

softspot> Enten jeg misforstet 08/12-2006 15:19:25, eller også har du misforstået 08/12-2006 15:05:22.. :-)

Pointen var: LCase(rs("Type")) skulle gerne automatisk konvertere rs("Type") til en streng, da man f.eks. ikke kan konverete tal til lowercase/små bogstaver.. det får man ikke noget ud af..

Med andre ord: Jeg er enig i din konklusion i 08/12-2006 14:53:19..

Stavefejl kan og vil forekomme.

fenriz> Kan vi få en status? Har du prøvet det der står i 08/12-2006 14:39:38 og i 08/12-2006 14:39:50?

thesurfer > Ja, så har jeg misforstået dig (jeg undskylder :))

fenriz > Jeg har muligvis overset noget og ikke helt forstået den opgave du forsøger at løse, men såvidt jeg kan se, skal den forspørgsel du laver i rs2 kun brugesi tilfælde af det er en kreditor. Hvis tabellen skal udskrives uanset hvad, så burde der vel være en

    End If

umiddelbart efter linien:

    rs2.Open SQLKre,Conn

ellers kan jeg som sagt ikke se formålet med at åbne rs2 i tilfælde af rs("type") = "Debitor"...

Desuden undrer jeg mig lidt over denne konstruktion:

    If rs.EOF Then exit for
    Next
  End If

da jeg ikke kan finde nogen for eller for each nogen steder i din kode. Er det hele koden du har vist her eller har du klippet inde midt i den?

Arrgh.. da jeg ændrede den sidste "End If" så virkede det !!!

Så jeg vil mene det er en kombination af "CStr(rs("type"))" fra "thesurfer" og "Softspot" svar...

Kommer her :)

Jeg mangler lige at "thesurfer" smider et svar :)

No hurry ;-)

Ingen grund til at vente længere.. her er et svar.. :-)

Tak for point :)