Hvad gør jeg..

min kode ser lige nu sådan ud. men virker ikke

<%
Tm1 = Tm1 + "Debitor,Webhoteltype,Domaenavn,Firmanavn"
Test = Test + "'Kunde','"& Trim(Replace(Request.Form("R1"),"'","")) & "','"& Trim(Replace(Request.Form("Domaene"),"'","")) & Trim(Replace(Request.Form("TLD"),"'","")) & "'"

if Request.Form("Firma") <> "" THEN
Tm1 = Tm1 + ", Firmanavn"
Test = test + ",'" & Request.Form("Firma") & "'"
end if

'if Request.Form("CVR") <> "" THEN
'Tm1 = Tm1 + ", CVR"
'Test = test + ",'" & Trim(Replace(Request.Form("CVR"),"'","")) & "'"
'end if

'if Request.Form("Navn") <> "" THEN
'Tm1 = Tm1 + ", Person"
'Test = test + ",'" & Trim(Replace(Request.Form("Navn"),"'","")) & "'"
'end if

'if Request.Form("Adresse") <> "" THEN
'Tm1 = Tm1 + ", Adrasse1"
'Test = test + ",'" & Trim(Replace(Request.Form("Adresse"),"'","")) & "'"
'end if

'if Request.Form("Postnummer") <> "" THEN
'Tm1 = Tm1 + ",Postnr"
'Test = test + ",'" & Trim(Replace(Request.Form("Postnummer"),"'","")) & "'"
'end if

'if Request.Form("By") <> "" THEN
'Tm1 = Tm1 + ",By"
'Test = test + ",'" & Trim(Replace(Request.Form("By"),"'","")) & "'"
'end if

'if Request.Form("Landekode") <> "" THEN
'Tm1 = Tm1 + ",Land"
'Test = test + ",'" & Trim(Replace(Request.Form("Landekode"),"'","")) & "'"
'end if

'if Request.Form("Telefon") <> "" THEN
'Tm1 = Tm1 + ",Telefon"
'Test = test + ",'" & Trim(Replace(Request.Form("Telefon"),"'","")) & "'"
'end if

'if Request.Form("Telefax") <> "" THEN
'Tm1 = Tm1 + ",Telefax"
'Test = test + ",'" & Trim(Replace(Request.Form("Telefax"),"'","")) & "'"
'end if

'if Request.Form("Email") <> "" THEN
'Tm1 = Tm1 + ",Epost"
'Test = test + ",'" & Trim(Replace(Request.Form("Email"),"'","")) & "'"
'end if

'if Request.Form("OFF") = "Ja tak" THEN
'Tm1 = Tm1 + ",Offentlig"
'Test = test + ",'J'"
'Else
'Tm1 = Tm1 + ",Offentlig"
'Test = test + ",'N'"
'End if

'if Request.Form("R2") = "Ja tak" THEN             'Opret email i en anden side..
'Else
'End if

'if Request.Form("Besked") <> "" THEN
'Tm1 = Tm1 + ",Notat"
'Test = test + ",'" & Trim(Replace(Request.Form("Besked"),"'","")) & "'"
'end if




SQL = "insert into Debitor (" & Tm1 & ") values (" &  Test & ")"
conn.execute(SQL)
%>

Det er er galt er nogle af dine felter i databasen er sat til obligatoriske det vil sige der skal stå noget i dem når en post oprettes.

Åben databasen og check hvad felteterne står til i design visning, Tilladnul længde skal skiftes fra Nej til JA

Tak. Det var lige hvad jeg skulle bruge..

Tak for Point :ø)