SQL fejl, løsning er tiltrængt hurtigts muligt!

Jeg får en Intern server fejl når jeg prøve at køre dette script, men jeg kan simpelthen ikke finde fejlen. Her er 200 nemme point til den der kan finde fejlen i en fart...

Har prøvet med On error resume next, og scriptet ser ud til at fungerer fint, men kan bare opdatere databasen...

Har også prøvet at skrive indholdet at variablerne ud på skærmen men indholdet bliver fint hentet med over fra formen...

<%

pIdCart = request.Form("cart")
pFornavn = request.Form("fornavn")
pEfternavn = request.Form("efternavn")
pEmail = request.Form("email")
pTelefon = request.Form("telefon")
pAdresse = request.Form("adresse")
pBy = request.Form("by")
pPostnr = request.Form("postnr")

' validation
if pFornavn="" or pEfternavn="" or pEmail="" or pTelefon="" or pAdresse="" or pBy="" or pPostnr="" then
response.write "Udfyld venligts alle felter" 
end if

' Her oprettes forbindelsen
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=***Den her fungerer fint, så det er ikke fejlen***"
DataConn.Open conStr

' Her laver du din SQL statement
DataConn.Execute "INSERT INTO kunder (fornavn, efternavn, email, telefon, adresse, by, postnr, idCart) VALUES ('" & pFornavn & "','" & pEfternavn & "','" & pEmail & "','" & pTelefon & "','" & pAdresse & "','" & pBy & "','" & pPostnr & "','" & pIdCart & "')"

Set objRS = DataConn.Execute("SELECT * FROM kunder")

while not objRS.EOF

  strOutput = objRS("fornavn") & " " & objRS("efternavn")
  Response.Write Server.HTMLEncode(strOutput) & "<br>"
  objRS.Movenext
wend

' NB!!! Luk altid din forbindelse efter brug.
' Det holder din forbindelse stabil og frigøres
' samtidig hukommelse på serveren.
objRS.Close
DataConn.Close
Set objRS = Nothing
Set DataConn = Nothing


Response.Write "Succes!!!"

%>