INSERT INTO, fra en Dropdown box virker ikke!

Det er forresten BrugerType der er min DropDownbox:

Den ser således ud:

<select name="BrugerType">
  <option value="Bruger">Bruger</option>
  <option value="Ekstern">Ekstern</option>
  <option value="Intern">Intern</option>
</select>

Hvordan ser resten af scriptet ud? Altså der hvor Navn, Firma osv bliver tildelt værdier fra din form?

Hvad er fejlen?

Og så returneres der ikke et recordset ved insert, update eller delete. Så koden bør skrives som:

strSQL = "INSERT INTO Brugere (Navn,Firma,Brugernavn,Password,BrugerType) "
strSQL = strSQL & "VALUES ('"& Navn &"','"& Firma &"','"& Brugernavn &"','"& Password &"','"& BrugerType &"')"
objCnx.Execute strSQL

Sådan her:

Dim Navn, Firma, Brugernavn, Password, BrugerType
       
Navn        = Replace(Request.Form("Navn"),"'","")
Firma        = Replace(Request.Form("Firma"),"'","")
Brugernavn    = Replace(Request.Form("Brugernavn"),"'","")
Password    = Replace(Request.Form("Password"),"'","")
BrugerType    = Replace(Request.Form("BrugerType"),"'","")

Hele koden hvis det er til nogen hjælp:

<!--#include file="var.asp"-->
<!--#include file="cnx.asp"-->

<%
    'If Request.Form("Submit") <> "" Then
   
    If action = ("new") Then
       
        Dim Navn, Firma, Brugernavn, Password, BrugerType
       
        Navn        = Replace(Request.Form("Navn"),"'","")
        Firma        = Replace(Request.Form("Firma"),"'","")
        Brugernavn    = Replace(Request.Form("Brugernavn"),"'","")
        Password    = Replace(Request.Form("Password"),"'","")
        BrugerType    = Replace(Request.Form("BrugerType"),"'","")
       
        Dim errorfound, strError
          strError     = ""
          errorfound     = 0
       
        If Navn         = "" Then
            errorfound     = 1
            strError     = "Indtast et navn!<br />"
          End If
       
        If Firma         = "" Then
            errorfound     = 1
            strError     = "Indtast et Firma!<br />"
          End If
       
        If Brugernavn     = "" Then
            errorfound     = 1
            strError     = "Indtast et Brugernavn!<br />"
          End If
       
        If Password     = "" Then
            errorfound     = 1
            strError     = "Indtast et Password!<br />"
          End If
       
        If BrugerType     = "" Then
            errorfound     = 1
            strError     = "Vælg Type bruger!<br />"
          End If
       
        If errorfound = 0 Then
            Set objRS = Server.CreateObject("ADODB.Recordset")
            strSQL = "INSERT INTO Brugere (Navn,Firma,Brugernavn,Password,BrugerType) "
            strSQL = strSQL & "VALUES ('"& Navn &"','"& Firma &"','"& Brugernavn &"','"& Password &"','"& BrugerType &"')"
            'Response.Write strSQL
            'Response.End
            Set objRS = objCnx.Execute(strSQL)
           
            Call Close
        End If
    End If
   
    Sub Close
        objRS.Close
        objCnx.Close
        Set objRS = Nothing
        Set    objCnx = Nothing
    End Sub
   
    If page = ("opret") Then
%>
<tr>
    <td align="center" valign="top">
        <table cellpadding="10" cellspacing="0" border="0">
        <form action="default.asp?page=opret&action=new" method="post">
            <tr>
                <td>Navn:</td>
                <td><input type="Text" name="Navn" /></td>
            </tr>
            <tr>
                <td>Firma:</td>
                <td><input type="Text" name="Firma" /></td>
            </tr>
            <tr>
                <td>Brugernavn:</td>
                <td><input type="Text" name="Brugernavn" /></td>
            </tr>
            <tr>
                <td>Password:</td>
                <td><input type="Text" name="Password" /></td>
            </tr>
            <tr>
                <td colspan="2">
                    <table align="center" width="230" cellpadding="0" cellspacing="0" border="0">
                        <tr>
                            <td>Vælg bruger retigheder<br><br></td>
                        </tr>
                        <tr>
                            <td>
                            <select name="BrugerType">
                                <option value="Bruger">Bruger</option>
                                <option value="Ekstern">Ekstern</option>
                                <option value="Intern">Intern</option>
                            </select>
                            </td>
                        </tr>
                    </table>
                </td>
            </tr>
            <tr>
                <td colspan="2" align="right"><input style="width:80px;" type="Submit" value="Tilføj" /></td>
            </tr>
        </form>
        <tr>
            <td colspan="2">
                <%
                    If strError <> "" Then
                        Response.Write "<table cellpadding=""0"" cellspacing=""0"" border=""0"">" &_
                          "  <tr>" &_
                          "    <td>" &_
                          "      <font color='red'><b>" & strError & "<b></font>" &_
                          "    </td>" &_
                          "  </tr>" &_
                          "</table>"
                    End If
                %>
            </td>
        </tr>
        </table>
    </td>
</tr>
<%
    End If
%>

Den SQL som bliver udskrevet ser da også rigtig nok ud. Så hvilken fejl opstår der?

Og fejl meddelelsen er:

Microsoft JET Database Engine fejl '80040e14'
Der er en syntaksfejl i INSERT INTO-sætningen.

/dktele_test/ssi/opret_brugere.asp, line 52

Prøv på den måde:
strSQL = "INSERT INTO Brugere (Navn,Firma,Brugernavn,Password,BrugerType) VALUES ('" _
        & Navn &"','"& Firma &"','"& Brugernavn &"','" _
        & Password &"')"
Kalder du din tabel Brugere og stave´t rigtig?

Undskyld jeg har glemt at give points.........

De kommer her kichian! :-(

Mvh Lucien