Hvilken fejl??

'S = RS3("S")

skal være

S = RS3("S")

Ej, jeg læste jo slet ikke hvad du skrev *G* Kigger lige.. ;)

Kan du ikke smide lidt mere kode ind på begge sider af det du har posted? :)

De indlæg jeg har fundet på google er endt med at de har skrevet linien igen og så virkede det. Måske du skulle prøve det? :)

Her er hele koden:



<%   
    'database
    %>
    <!--#include file="_db_ch_fil.asp"-->
    <%
   
    Set RS = myConn.Execute("SELECT Fnavn, Enavn FROM VGF0607_Users WHERE Type='G' order by Fnavn")
    If RS.EOF Then
        Udskriv = "Der er opstået en fejl"
    Else
        'så ryk til den første post i tabel
        RS.movefirst
        ' kør en lykke til den har være igennem alle poster i tabel 
        DO UNTIL RS.EOF

            Udskriv = "<B><U>" & RS("Fnavn") & " " & RS("Enavn") & "</U></B><BR><BR>"

            'Henter antaltest-gange
            Set RS2 = myConn.Execute("SELECT Dato FROM VGF0607_test_dato WHERE Afviklet='1'")
            If RS2.EOF Then
                Udskriv = "Der er opstået en fejl"
            Else
                Udskriv = Udskriv & "<Table border='1'><TR><TD></TD>"
                'så ryk til den første post i tabel
                RS2.movefirst
                ' kør en lykke til den har være igennem alle poster i tabel 
                DO UNTIL RS2.EOF

                Udskriv = Udskriv & "<TD>" & RS2("Dato") & "</TD>"

                RS2.movenext
                'start lykke igen
                Loop
            End if

            Taeller0 = "0"
            Do until Taeller0 = Antaldato
            Taeller0 = Taeller0 + 1
            'Henter info fra test
                Set RS3 = myConn.Execute("SELECT * FROM VGF0607_testresultater WHERE Navn = '" & RS("Fnavn") & "' And Nr = '" & Taeller0 & "'")
                If RS3.EOF Then
                    Udskriv = "Der er opstået en fejl"
                Else
               
               
                    Arm = RS3("Arm")
                    Mave = RS3("Mave")
                    Ryg = RS3("Ryg")
                    'S = RS3("S") 
                    Spagath = RS3("SpagatH") 
                    'Spagatv = RS3("SpagatV") 
                    'Haser = RS3("Haser")
                    'Benoph = RS3("BenopH")
                    'Benopv = RS3("BenopV")
                    'Sliph = RS3("SlipH")
                    'Spliv = RS3("SlipV")
                    'Pivoth = RS3("PivotH")
                    'Pivotv = RS3("PivotV")
                    'Hstand = RS3("Haandstand")
                    'Hgang = RS3("Haandgang")
                    'Stem = RS3("Stem")
                    'Interval = RS3("Intervalloebetest")

               
                End if


            Udskriv = Udskriv & "<TR><TD>Arm</TD><TD>" & Arm & "</TD></TR>"
               
            Loop




        RS.movenext
        'start lykke igen
        Loop
    Response.Write Udskriv & "</Table><BR><BR>"
    End if

%>

Hmmm... Ja, nu har jeg slettet alle linierne med '

Skrevet dem fuldstændig magen til... og ja nu virker det??

Hvad sker der?

Men du hjalp :)

Smider du et svar?

Hehe.. jeg aner det ikke.. måske et mellemrum der var smuttet. Du får et svar her. :)

Bare pudsigt... Så er der et mellemrum i alle linierne efter :)

Men takker!