kontrollere om Rs er tomt.

ahh damm. skulle ha været :

arrTypeCode = Split(SplitSingleLine, " ")
Response.Write("<b> TYP-Code her = <span class='style2'>" & arrTypeCode(2) & "</span></b><br>")

Set RsTypeCode = Conn.Execute("SELECT * FROM tblTypeCode;")
Do Until RsTypeCode.EOF
    If RsTypeCode("TypeCode") = arrTypeCode(2) Then
        TypeCodeId = RsTypeCode("Id")
        Response.Write(RsTypeCode("Id"))
        Response.Write("Hallo<br>")
    Else
        tblTypeCodeSql = "Insert Into tblTypecode (TypeCode)" & "values( '" & arrtypecode(2) & "')"
        Response.Write(tblTypeCodeSql)
        Response.Write("bøøøøøøh")
        'Conn.Execute(tblTypeCodeSql)
       
        'Hent det nye ID nummer
        'tblTypeCodeSql = "SELECT @@IDENTITY AS NewID"
        'Set RsNewId = Conn.Execute(tblTypeCodeSql)
        'TypeCodeNewId = RsNewId.Fields("NewID").value
       
    End If
RsTypeCode.movenext
Loop

Det er vel netop fordi at din database er tom... Den finder ikke nogle records den kan bladre igennem... prøv med følgende:

arrTypeCode = Split(SplitSingleLine, " ")
Response.Write("<b> TYP-Code her = <span class='style2'>" & arrTypeCode(2) & "</span></b><br>")

Set RsTypeCode = Conn.Execute("SELECT * FROM tblTypeCode;")
if RsTypeCode.EOF=True then
        Response.Write(tblTypeCodeSql)
        Response.Write("bøøøøøøh")
else
Do Until RsTypeCode.EOF
    If RsTypeCode("TypeCode") = arrTypeCode(2) Then
        TypeCodeId = RsTypeCode("Id")
        Response.Write(RsTypeCode("Id"))
        Response.Write("Hallo<br>")
    Else
        tblTypeCodeSql = "Insert Into tblTypecode (TypeCode)" & "values( '" & arrtypecode(2) & "')"
        Response.Write(tblTypeCodeSql)
        Response.Write("bøøøøøøh")
        'Conn.Execute(tblTypeCodeSql)
       
        'Hent det nye ID nummer
        'tblTypeCodeSql = "SELECT @@IDENTITY AS NewID"
        'Set RsNewId = Conn.Execute(tblTypeCodeSql)
        'TypeCodeNewId = RsNewId.Fields("NewID").value
       
    End If
RsTypeCode.movenext
Loop
end if

Du skal tjekke om der er noget i databasen inden du laver dit loop... Og her gør den så dette og udskriver noget hvis databasen er tom...

\Dan

Ja self. :-)

Men da burde dette jo være nok :

arrTypeCode = Split(SplitSingleLine, " ")
Response.Write("<b> TYP-Code her = <span class='style2'>" & arrTypeCode(2) & "</span></b><br>")

Set RsTypeCode = Conn.Execute("SELECT * FROM tblTypeCode;")
if RsTypeCode.EOF=True then
    tblTypeCodeSql = "Insert Into tblTypecode (TypeCode)" & "values( '" & arrtypecode(2) & "')"
    Response.Write(tblTypeCodeSql)
    Response.Write("bøøøøøøh")
    'Conn.Execute(tblTypeCodeSql)

    'Hent det nye ID nummer
    'tblTypeCodeSql = "SELECT @@IDENTITY AS NewID"
    'Set RsNewId = Conn.Execute(tblTypeCodeSql)
    'TypeCodeNewId = RsNewId.Fields("NewID").value
                               
else
Do Until RsTypeCode.EOF
                If RsTypeCode("TypeCode") = arrTypeCode(2) Then
                                TypeCodeId = RsTypeCode("Id")
                                Response.Write(RsTypeCode("Id"))
                                Response.Write("Hallo<br>")                                       
                End If
RsTypeCode.movenext
Loop
end if

Ja... det burde være nok - alt afhængig af hvad det egentlig er du vil... men det ved du vel bedst selv...

- hermed et svar...

\Dan

Tak for det.

Ja den ser jo om EOF=True. Er den det så oprettes den record og tar ud ny Id.

Ellers finder den Record og tar ud ny Id

Så det burde holde, skal bare bruge Ny Id eller eksisterende Id til en relation

ok... jamen held og lykke med dit hjemmeside-projekt!

- og tak for point...

\Dan