Hvorfor kan jeg ikke indsætte i databasen?

Jeg har en form hvor i brugeren skal udfylde nogle felter og dernæst trykke på opret hvorefter han ser hvad han har indtastet. Dernæst skal han/hun ved at trykke på godkend kunne indsætte i databasen.

Jeg har prøvet det men, får flg. fejlmeddelelse.

error \'ASP 0115\'
Unexpected error

/mkilic/form/insert.asp

A trappable error occurred in an external object. The script cannot continue running.


I kan se min demo på www.datamatikeruddannelsen.dk/mkilic/form/profil20.htm

Profil20.htm

<%
Dim strFnavn, strEnavn, strAdr, strPost, strBy, strUdd, strEmail
Dim strMessage, strMessage2, strArbsted
if Request.ServerVariables(\"Content_Length\") <> 0 then
\'  Udtrækker data fra formen
strFnavn = Trim(Request.form(\"fornavn\"))
strEnavn = Trim(Request.form(\"efternavn\"))
strAdr = Trim(Request.form(\"adresse\"))
strPost = Trim(Request.form(\"postnr\"))
strUdd = Trim(Request.form(\"Uddannelse\"))
strEmail = Trim(Request.form(\"email\"))
strArbsted = Trim(Request.form(\"arbejdssted\"))
strMessage1 = Trim(Request.form(\"Erhvervsuddbox\"))
strMessage1 = Replace(strMessage1, vbcrlf, \"<BR>\" & vbcrlf)
strMessage2 = Trim(Request.form(\"Øvrigeinfobox\"))
strMessage2 = Replace(strMessage2, vbcrlf, \"<BR>\" & vbcrlf)

%>
<HTML><body>
Herunder er din profil.<br>
Fornavn: <%= strFnavn %><br>
Efternavn: <%= strEnavn %><br>
Adresse: <%= strAdr %><br
Postnr: <%= strPost %><br>
By: <%= strBy %><br>
Uddannelse: <%= strUdd %><br>
E-mail: <%= strEmail %><br>
Arbejdssted: <%= strArbsted %><br>
Erhvervs uddannelse: <%= strMessage1 %><BR>
Øvrige informationer: <%= strMessage2 %><BR>
<p><br>
<tabel>
<tr><td><a href=\"insert.asp\">Godkend</a></td><BR><BR><td><a href=\"insert.asp\">Tilbage</a></td>
</tr>
</tabel>
</body></html>

<% End If %>

Insert.asp

<%
Dim objConn, strConn, strSQL, objRS, strOutput

Set objConn = Server.CreateObject(\"ADODB.Connection\")
strConn = \"DRIVER=SQL Server; SERVER=HC-DMU-NT1; UID=DD; PWD=PDB; DATABASE=ddpdb;\"
objConn.Open strConn
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
Set objRS.ActiveConnection = objConn

strSQL = \"Insert into profil values(\'\" & Request.Form(\"Fornavn\") & \"\',\'\" & Request(\"efternavn\") & \"\',\'\" & Request(\"adresse\") & \"\',\'\" & Request(\"postnr\") & \"\',\'\" & Request(\"postnr\") & \"\',\'\" & Request(\"bynavn\") & \"\',\'\" & Request(\"uddannelse\") & \"\',\'\" & Request(\"arbejdssted\") & \"\',\'\" & Request(\"kvalifikationer\") & \"\',\'\" & Request(\"Erhvervsuddbox\") & \"\',\'\" & Request(\"Øvrigeinfobox\") & \"\')\"

objConn.Execute strSQL

Set objRS = objConn.Execute(\"Select * from Profil\")
%>
<HTML><BODY>
Profil:<BR><BR>
<%
While Not objRS.EOF
  strOutput = \"<TR>\"
  strOutput = strOut & \"<TD>\" & HTMLEncode(objRS(\"MAILADRESSE\")) & \"<TD>\"
  strOutput = strOut & \"<TD>\" & HTMLEncode(objRS(\"FNAVN\")) & \"<TD>\"
  strOutput = strOut & \"<TD>\" & HTMLEncode(objRS(\"ENAVN\")) & \"<TD>\"
  strOutput = strOut & \"<TD>\" & HTMLEncode(objRS(\"ADRESSE\")) & \"<TD>\"
  strOutput = strOut & \"<TD>\" & HTMLEncode(objRS(\"POSTNR\")) & \"<TD>\"
  strOutput = strOut & \"<TD>\" & HTMLEncode(objRS(\"BYNAVN\")) & \"<TD>\"
  strOutput = strOut & \"<TR>\"
  Response.Write strOut
  objRS.MoveNext
Wend

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>
</BODY></HTML>