Driller stadig

<%
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='"& branche &"'"
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 ('" & Request("branche") & "')")"
Response.Write "<h3>Ny branche tilføjet!</h3>"
adoCn.Close: Set adoCn = Nothing
  end if
%>

<%
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='"& branche &"'"
    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
End if
%>

hmm den den udprinter stadig bare Ny Branche tilføjet ligemeget hvad
blev nød til at fjerne den sidste end if for det brokkede den sig over koden blev sådan her. Hvad kan problemet være?

                        <%

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='"& branche &"'"
    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

%>

okay har udskrevet sql'en

SELECT branche From branche WHERE branche=''

den er tom! hvorfor?

strTitle = request.form("branche")
'Det er vel denne som skal inn

strSQL = "SELECT branche From branche WHERE branche='"& strTitle &"'"

fandt den i mellemtiden selv hehe:) point til dig og tak for hjælpen

lidt et svar her også
http://www.eksperten.dk/spm/604668

så får du 150 point for det.