små problemer

prøv med:

SQL = "SELECT branche FROM branche WHERE branche = '"&request.form("branche")&"' "
Set Rs = Conn.Execute SQL
if rs.eof or rs.bof then
Conn.Execute "INSERT INTO branche (branche) VALUES ('" & Request("branche") & "')"
Response.Write "<h3>Ny branche tilføjet!</h3>"
else response.write("Eksistere allerede")
Conn.Close: Set Conn = Nothing
  end if

hvis du gør sådan her if SQL = "" then , så tjekker du på om sql strengen er tom, og det er den j oaldrig, for den sætter du jo ovenfor. Ved at skriver rs.eof or rs.bof, så tjekker du på om resultatet fra den eksekverede sql streng er tom.

jeg har ikke helt styr på hvordan man åbner og lukker databasen for den brokkede sig.
Operation is not allowed when the object is closed.


If Trim(Request("branche")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database.mdb")


SQL = "SELECT branche FROM branche WHERE branche = '"&request.form("branche")&"' "
Set Rs = Conn.Execute (SQL)
Conn.Open strDSN, SQL
if rs.eof or rs.bof then
Conn.Execute "INSERT INTO branche (branche) VALUES ('" & Request("branche") & "')"
Response.Write "<h3>Ny branche tilføjet!</h3>"
else response.write("Eksistere allerede")
Conn.Close: Set Conn = Nothing
  end if

opgivende?

løst her istedet
http://www.eksperten.dk/spm/604843

<%
strTitle = request.form("branche")
If strTitle <> "" Then
    strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database.mdb")
    Set adoCn = Server.CreateObject("ADODB.Connection")
    adoCn.Open strConn

    set adoRs = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT branche From branche WHERE branche='"& strTitle &"'"
    set adoRs = adoCn.Execute(strSQL)

    If not adoRs.eof Then
              dispmsg="Title Is Already In DataBase"
              response.clear
              response.redirect "opretbranche.asp?dispmsg="&dispmsg
            response.end
    Else
        adoCn.Execute("INSERT INTO branche (branche) VALUES ('" & strTitle & "')")
        Response.Write "<h3>Ny branche tilføjet!</h3>"
        adoCn.Close: Set adoCn = Nothing
    End if

%>