Skal skrive i alle felter - Det vil jeg ikke.
Jeg har åbenbart et problem med tekstfelter. Alle nedstående felter er med på en side, hvorfra kunder oprettes - opret_kunder.asp. Action er fra en funktionsside opret_kunder_func.asp. Jeg er ikke interesseret i at skulle skrive alle oplysningerne ind for nye kunder med det samme, da de måske ikke er tilgængelige. Hvordan medtager jeg et tekstfelt, der er tomt.Det går fint med f.eks telefax:
telefax = trim(request.form(\"telefax\"))
if telefax = \"\" then telefax = 0
men med eksempelvis:
navn = trim(request.form(\"navn\"))
if navn = \"\" then navn = Nobody
så får jeg fejlmeddelelse:
Feltet \"produkt.navn\" kan ikke indeholde en streng af længden nul.
/opret_kunder_func.asp, line 51
Koden på opret_kunder_func.asp er:
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db/db1.mdb\")
strSQL = \"INSERT INTO kunder (navn,dato,adresse,postnr,city,telefon,telefax,hjemmeside,email,info)\"
strSQL = strSQL & \" VALUES (\'\" & request.form(\"navn\") & \"\',#\" & Now & \"#,\'\" & request.form(\"adresse\") & \"\',\" & request.form(\"postnr\") & \",\'\" & request.form(\"city\") & \"\',\" & request.form(\"telefon\") & \",\" & telefax & \",\'\" & request.form(\"hjemmeside\") & \"\',\'\" & request.form(\"email\") & \"\',\'\" & request.form(\"info\") & \"\')\"
response.write strSQL
Conn.Execute (strSQL)
strSQL = \"INSERT INTO produkt (navn, info, email)\"
strSQL = strSQL & \" VALUES (\'\" & request.form(\"navn\") & \"\',\'\" & request.form(\"info\") & \"\',\'\" & request.form(\"email\") & \"\')\"
response.write strSQL
Conn.Execute (strSQL)
conn.Close
Set conn = nothing
Set strSQL = nothing
response.redirect (\"default.asp\")
Hvad gør jeg??
