error \'80040e14\'

En 80040e14 tyder på for store data.

- Morten

Lad os se koden !

/arno

Ok

<!--#include File =\"globalsub.asp\"-->
<%

cmd = Request.QueryString(\"cmd\")
Session(\"Sagsnr\") = Request.QueryString(\"Sagsnr\")

Set conntemp = server.CreateObject(\"adodb.Connection\")
conntemp.open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Ejendomme.mdb\")


Select Case cmd

Case \"SaveNew\"
FieldStr=\" (\"
ValueStr = \" VALUES (\"
If Request.QueryString(\"Beliggenhed\")<>\"\" Then
  FieldStr=FieldStr+ \"Beliggenhed, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Beliggenhed\"))+\"\', \"
End if
If Request.QueryString(\"Kontant\")<>\"\" Then
  FieldStr=FieldStr+ \"Kontant, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Kontant\"))+\"\', \"
End if
If Request.QueryString(\"Kvm\")<>\"\" Then
  FieldStr=FieldStr+ \"Kvm, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Kvm\"))+\"\', \"
End if
If Request.QueryString(\"Garage\")<>\"\" Then
  FieldStr=FieldStr+ \"Garage, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Garage\"))+\"\', \"
End if
If Request.QueryString(\"Kælder\")<>\"\" Then
  FieldStr=FieldStr+ \"Kælder, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Kælder\"))+\"\', \"
End if
If Request.QueryString(\"Beskrivelse\")<>\"\" Then
  FieldStr=FieldStr+ \"Beskrivelse, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Beskrivelse\"))+\"\', \"
End if
If Request.QueryString(\"Udbet\")<>\"\" Then
  FieldStr=FieldStr+ \"Udbet, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Udbet\"))+\"\', \"
End if
If Request.QueryString(\"Brutto\")<>\"\" Then
  FieldStr=FieldStr+ \"Brutto, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Brutto\"))+\"\', \"
End if
If Request.QueryString(\"Netto\")<>\"\" Then
  FieldStr=FieldStr+ \"Netto, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Netto\"))+\"\', \"
End if
If Request.QueryString(\"Grund\")<>\"\" Then
  FieldStr=FieldStr+ \"Grund, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Grund\"))+\"\', \"
End if
If Request.QueryString(\"Etager\")<>\"\" Then
  FieldStr=FieldStr+ \"Etager, \"
  ValueStr=ValueStr+Request.QueryString(\"Etager\")+\", \"
End if
If Request.QueryString(\"Vær\")<>\"\" Then
  FieldStr=FieldStr+ \"Vær, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Vær\"))+\"\', \"
End if
If Request.QueryString(\"Byggeår\")<>\"\" Then
  FieldStr=FieldStr+ \"Byggeår, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Byggeår\"))+\"\', \"
End if
If Request.QueryString(\"Postnr\")<>\"\" Then
  FieldStr=FieldStr+ \"Postnr, \"
  ValueStr=ValueStr+Request.QueryString(\"Postnr\")+\", \"
End if
If Request.QueryString(\"By\")<>\"\" Then
  FieldStr=FieldStr+ \"By, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"By\"))+\"\', \"
End if
If Request.QueryString(\"Nysag\")<>\"\" Then
  FieldStr=FieldStr+ \"Nysag, \"
  ValueStr=ValueStr+Request.QueryString(\"Nysag\")+\", \"
End if
If Request.QueryString(\"Reserveret\")<>\"\" Then
  FieldStr=FieldStr+ \"Reserveret, \"
  ValueStr=ValueStr+Request.QueryString(\"Reserveret\")+\", \"
End if
If Request.QueryString(\"Solgt\")<>\"\" Then
  FieldStr=FieldStr+ \"Solgt, \"
  ValueStr=ValueStr+Request.QueryString(\"Solgt\")+\", \"
End if
If Request.QueryString(\"Slettes\")<>\"\" Then
  FieldStr=FieldStr+ \"Slettes, \"
  ValueStr=ValueStr+Request.QueryString(\"Slettes\")+\", \"
End if
If Request.QueryString(\"Nypris\")<>\"\" Then
  FieldStr=FieldStr+ \"Nypris, \"
  ValueStr=ValueStr+Request.QueryString(\"Nypris\")+\", \"
End if
If Request.QueryString(\"Ejendomstype\")<>\"\" Then
  FieldStr=FieldStr+ \"Ejendomstype, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Ejendomstype\"))+\"\', \"
End if
If Request.QueryString(\"Kommune\")<>\"\" Then
  FieldStr=FieldStr+ \"Kommune, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Kommune\"))+\"\', \"
End if
If Request.QueryString(\"Kommune data\")<>\"\" Then
  FieldStr=FieldStr+ \"Kommune data, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Kommune data\"))+\"\', \"
End if
If Request.QueryString(\"Hjemmeside\")<>\"\" Then
  FieldStr=FieldStr+ \"Hjemmeside, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Hjemmeside\"))+\"\', \"
End if
If Request.QueryString(\"Foto1\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto1, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto1\"))+\"\', \"
End if
If Request.QueryString(\"Foto2\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto2, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto2\"))+\"\', \"
End if
If Request.QueryString(\"Foto3\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto3, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto3\"))+\"\', \"
End if
If Request.QueryString(\"Foto4\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto4, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto4\"))+\"\', \"
End if
If Request.QueryString(\"Foto5\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto5, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto5\"))+\"\', \"
End if
If Request.QueryString(\"Foto6\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto6, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto6\"))+\"\', \"
End if
If Request.QueryString(\"Foto7\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto7, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto7\"))+\"\', \"
End if
If Request.QueryString(\"Foto8\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto8, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto8\"))+\"\', \"
End if
If Request.QueryString(\"Foto9\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto9, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto9\"))+\"\', \"
End if
If Request.QueryString(\"Foto10\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto10, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto10\"))+\"\', \"
End if
If Request.QueryString(\"Foto11\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto11, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto11\"))+\"\', \"
End if
If Request.QueryString(\"Foto12\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto12, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto12\"))+\"\', \"
End if
If Request.QueryString(\"Salgsopstilling\")<>\"\" Then
  FieldStr=FieldStr+ \"Salgsopstilling, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Salgsopstilling\"))+\"\', \"
End if
If GetDateTimeResponse(\"Dato\")<>\"\" Then
  FieldStr=FieldStr+ \"Dato, \"
  ValueStr=ValueStr + SqlDate(GetDateTimeResponse(\"Dato\")) + \", \"
End if
FieldStr = Mid(FieldStr, 1, Len(FieldStr) - 2) + \")\"
ValueStr = Mid(ValueStr, 1, Len(ValueStr) - 2) + \");\"
SqlStr = \"Insert Into Kunde\" + FieldStr + ValueStr
conntemp.Execute (SqlStr)
conntemp.Close
Set conntemp = Nothing
response.redirect \"defaultform.asp\"

Case \"Save\"
SqlStr = \"UPDATE Kunde SET \"
If Request.QueryString(\"Beliggenhed\") <> \"\" Then
  Sqlstr=SqlStr+\"Beliggenhed=\'\"+FixDbFieldSave(Request.QueryString(\"Beliggenhed\")) + \"\', \"
End if
If Request.QueryString(\"Kontant\") <> \"\" Then
  Sqlstr=SqlStr+\"Kontant=\'\"+FixDbFieldSave(Request.QueryString(\"Kontant\")) + \"\', \"
End if
If Request.QueryString(\"Kvm\") <> \"\" Then
  Sqlstr=SqlStr+\"Kvm=\'\"+FixDbFieldSave(Request.QueryString(\"Kvm\")) + \"\', \"
End if
If Request.QueryString(\"Garage\") <> \"\" Then
  Sqlstr=SqlStr+\"Garage=\'\"+FixDbFieldSave(Request.QueryString(\"Garage\")) + \"\', \"
End if
If Request.QueryString(\"Kælder\") <> \"\" Then
  Sqlstr=SqlStr+\"Kælder=\'\"+FixDbFieldSave(Request.QueryString(\"Kælder\")) + \"\', \"
End if
If Request.QueryString(\"Beskrivelse\") <> \"\" Then
  Sqlstr=SqlStr+\"Beskrivelse=\'\"+FixDbFieldSave(Request.QueryString(\"Beskrivelse\")) + \"\', \"
End if
If Request.QueryString(\"Udbet\") <> \"\" Then
  Sqlstr=SqlStr+\"Udbet=\'\"+FixDbFieldSave(Request.QueryString(\"Udbet\")) + \"\', \"
End if
If Request.QueryString(\"Brutto\") <> \"\" Then
  Sqlstr=SqlStr+\"Brutto=\'\"+FixDbFieldSave(Request.QueryString(\"Brutto\")) + \"\', \"
End if
If Request.QueryString(\"Netto\") <> \"\" Then
  Sqlstr=SqlStr+\"Netto=\'\"+FixDbFieldSave(Request.QueryString(\"Netto\")) + \"\', \"
End if
If Request.QueryString(\"Grund\") <> \"\" Then
  Sqlstr=SqlStr+\"Grund=\'\"+FixDbFieldSave(Request.QueryString(\"Grund\")) + \"\', \"
End if
If Request.QueryString(\"Etager\") <> \"\" Then
  Sqlstr=SqlStr+\"Etager=\"+Request.QueryString(\"Etager\") + \", \"
End if
If Request.QueryString(\"Vær\") <> \"\" Then
  Sqlstr=SqlStr+\"Vær=\'\"+FixDbFieldSave(Request.QueryString(\"Vær\")) + \"\', \"
End if
If Request.QueryString(\"Byggeår\") <> \"\" Then
  Sqlstr=SqlStr+\"Byggeår=\'\"+FixDbFieldSave(Request.QueryString(\"Byggeår\")) + \"\', \"
End if
If Request.QueryString(\"Postnr\") <> \"\" Then
  Sqlstr=SqlStr+\"Postnr=\"+Request.QueryString(\"Postnr\") + \", \"
End if
If Request.QueryString(\"By\") <> \"\" Then
  Sqlstr=SqlStr+\"By=\'\"+FixDbFieldSave(Request.QueryString(\"By\")) + \"\', \"
End if
If Request.QueryString(\"Nysag\") <> \"\" Then
  Sqlstr=SqlStr+\"Nysag=\"+Request.QueryString(\"Nysag\") + \", \"
End if
If Request.QueryString(\"Reserveret\") <> \"\" Then
  Sqlstr=SqlStr+\"Reserveret=\"+Request.QueryString(\"Reserveret\") + \", \"
End if
If Request.QueryString(\"Solgt\") <> \"\" Then
  Sqlstr=SqlStr+\"Solgt=\"+Request.QueryString(\"Solgt\") + \", \"
End if
If Request.QueryString(\"Slettes\") <> \"\" Then
  Sqlstr=SqlStr+\"Slettes=\"+Request.QueryString(\"Slettes\") + \", \"
End if
If Request.QueryString(\"Nypris\") <> \"\" Then
  Sqlstr=SqlStr+\"Nypris=\"+Request.QueryString(\"Nypris\") + \", \"
End if
If Request.QueryString(\"Ejendomstype\") <> \"\" Then
  Sqlstr=SqlStr+\"Ejendomstype=\'\"+FixDbFieldSave(Request.QueryString(\"Ejendomstype\")) + \"\', \"
End if
If Request.QueryString(\"Kommune\") <> \"\" Then
  Sqlstr=SqlStr+\"Kommune=\'\"+FixDbFieldSave(Request.QueryString(\"Kommune\")) + \"\', \"
End if
If Request.QueryString(\"Kommune data\") <> \"\" Then
  Sqlstr=SqlStr+\"Kommune data=\'\"+FixDbFieldSave(Request.QueryString(\"Kommune data\")) + \"\', \"
End if
If Request.QueryString(\"Hjemmeside\") <> \"\" Then
  Sqlstr=SqlStr+\"Hjemmeside=\'\"+FixDbFieldSave(Request.QueryString(\"Hjemmeside\")) + \"\', \"
End if
If Request.QueryString(\"Foto1\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto1=\'\"+FixDbFieldSave(Request.QueryString(\"Foto1\")) + \"\', \"
End if
If Request.QueryString(\"Foto2\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto2=\'\"+FixDbFieldSave(Request.QueryString(\"Foto2\")) + \"\', \"
End if
If Request.QueryString(\"Foto3\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto3=\'\"+FixDbFieldSave(Request.QueryString(\"Foto3\")) + \"\', \"
End if
If Request.QueryString(\"Foto4\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto4=\'\"+FixDbFieldSave(Request.QueryString(\"Foto4\")) + \"\', \"
End if
If Request.QueryString(\"Foto5\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto5=\'\"+FixDbFieldSave(Request.QueryString(\"Foto5\")) + \"\', \"
End if
If Request.QueryString(\"Foto6\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto6=\'\"+FixDbFieldSave(Request.QueryString(\"Foto6\")) + \"\', \"
End if
If Request.QueryString(\"Foto7\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto7=\'\"+FixDbFieldSave(Request.QueryString(\"Foto7\")) + \"\', \"
End if
If Request.QueryString(\"Foto8\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto8=\'\"+FixDbFieldSave(Request.QueryString(\"Foto8\")) + \"\', \"
End if
If Request.QueryString(\"Foto9\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto9=\'\"+FixDbFieldSave(Request.QueryString(\"Foto9\")) + \"\', \"
End if
If Request.QueryString(\"Foto10\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto10=\'\"+FixDbFieldSave(Request.QueryString(\"Foto10\")) + \"\', \"
End if
If Request.QueryString(\"Foto11\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto11=\'\"+FixDbFieldSave(Request.QueryString(\"Foto11\")) + \"\', \"
End if
If Request.QueryString(\"Foto12\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto12=\'\"+FixDbFieldSave(Request.QueryString(\"Foto12\")) + \"\', \"
End if
If Request.QueryString(\"Salgsopstilling\") <> \"\" Then
  Sqlstr=SqlStr+\"Salgsopstilling=\'\"+FixDbFieldSave(Request.QueryString(\"Salgsopstilling\")) + \"\', \"
End if
If GetDateTimeResponse(\"Dato\") <> \"\" Then
  Sqlstr=SqlStr+\"Dato=\"+SqlDate(GetDateTimeResponse(\"Dato\")) + \", \"
End if
SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
SqlStr = SqlStr + \" WHERE Sagsnr=\"+ request.querystring(\"Sagsnr\")+ \";\"
conntemp.Execute (SqlStr)
SqlStr =\"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While rs.EOF <> True And a < Session(\"CurRec\")
  a = a + 1
  rs.MoveNext
Wend

Case \"\"
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
If rs.EOF = True Then
  Response.redirect \"defaultform.asp?cmd=New\"
End If
rs.MoveFirst
a = 0
While rs.EOF <> True
  a = a + 1
  rs.MoveNext
Wend
Session(\"NumOfRecs\") = a
Session(\"CurRec\") = 1
rs.MoveFirst

Case \"First\"
Session(\"CurRec\") = 1
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst

Case \"Last\"
Session(\"CurRec\") = Session(\"NumOfRecs\")
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While a < Session(\"NumOfRecs\")
  a = a + 1
  rs.MoveNext
Wend

Case \"Prev\"
Session(\"CurRec\") = Session(\"CurRec\") - 1
If Session(\"CurRec\") <= 0 Then
  Session(\"CurRec\") = Session(\"NumOfRecs\")
End If
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While rs.EOF <> True And a < Session(\"CurRec\")
  a = a + 1
  rs.MoveNext
Wend

Case \"Next\"
Session(\"CurRec\") = Session(\"CurRec\") + 1
If Session(\"CurRec\") > Session(\"NumOfRecs\") Then
  Session(\"CurRec\") = 1
End If
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While rs.EOF <> True And a < Session(\"CurRec\")
  a = a + 1
  rs.MoveNext
Wend

Case \"Del\"
SqlStr = \"DELETE FROM Kunde WHERE Sagsnr=\"+ Session(\"Sagsnr\")+ \";\"
conntemp.Execute (SqlStr)
conntemp.Close
Set conntemp = Nothing
response.redirect \"defaultform.asp\"

Case \"Fromlist\"
Session(\"CurRec\") = 1
SqlStr1 = \"SELECT Count(Sagsnr) As TotalCount From Kunde;\"
Set Rs1 = conntemp.Execute(SqlStr1)
Session(\"NumOfRecs\") = Rs1(\"TotalCount\")
Rs1.Close
Set Rs1 = Nothing
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
While Trim(Session(\"Sagsnr\")) <> Trim(CStr(rs(\"Sagsnr\")))
  Session(\"CurRec\") = Session(\"CurRec\") + 1
  rs.MoveNext
Wend
End Select

If cmd <> \"New\" And cmd<>\"Copy\" Then
  Session(\"Sagsnr\") = server.Urlencode(rs(\"Sagsnr\"))
Session(\"Beliggenhed\") = FixDbField(rs(\"Beliggenhed\"))
Session(\"Kontant\") = FixDbField(rs(\"Kontant\"))
Session(\"Kvm\") = FixDbField(rs(\"Kvm\"))
Session(\"Garage\") = FixDbField(rs(\"Garage\"))
Session(\"Kælder\") = FixDbField(rs(\"Kælder\"))
Session(\"Beskrivelse\") = rs(\"Beskrivelse\")
Session(\"Udbet\") = FixDbField(rs(\"Udbet\"))
Session(\"Brutto\") = FixDbField(rs(\"Brutto\"))
Session(\"Netto\") = FixDbField(rs(\"Netto\"))
Session(\"Grund\") = FixDbField(rs(\"Grund\"))
Session(\"Etager\") = FixDbField(rs(\"Etager\"))
Session(\"Vær\") = FixDbField(rs(\"Vær\"))
Session(\"Byggeår\") = FixDbField(rs(\"Byggeår\"))
Session(\"Postnr\") = FixDbField(rs(\"Postnr\"))
Session(\"By\") = FixDbField(rs(\"By\"))
Session(\"Nysag\") = FixDbField(rs(\"Nysag\"))
Session(\"Reserveret\") = FixDbField(rs(\"Reserveret\"))
Session(\"Solgt\") = FixDbField(rs(\"Solgt\"))
Session(\"Slettes\") = FixDbField(rs(\"Slettes\"))
Session(\"Nypris\") = FixDbField(rs(\"Nypris\"))
Session(\"Ejendomstype\") = FixDbField(rs(\"Ejendomstype\"))
Session(\"Kommune\") = FixDbField(rs(\"Kommune\"))
Session(\"Kommune data\") = rs(\"Kommune data\")
Session(\"Hjemmeside\") = FixDbField(rs(\"Hjemmeside\"))
Session(\"Foto1\") = FixDbField(rs(\"Foto1\"))
Session(\"Foto2\") = FixDbField(rs(\"Foto2\"))
Session(\"Foto3\") = FixDbField(rs(\"Foto3\"))
Session(\"Foto4\") = FixDbField(rs(\"Foto4\"))
Session(\"Foto5\") = FixDbField(rs(\"Foto5\"))
Session(\"Foto6\") = FixDbField(rs(\"Foto6\"))
Session(\"Foto7\") = FixDbField(rs(\"Foto7\"))
Session(\"Foto8\") = FixDbField(rs(\"Foto8\"))
Session(\"Foto9\") = FixDbField(rs(\"Foto9\"))
Session(\"Foto10\") = FixDbField(rs(\"Foto10\"))
Session(\"Foto11\") = FixDbField(rs(\"Foto11\"))
Session(\"Foto12\") = FixDbField(rs(\"Foto12\"))
Session(\"Salgsopstilling\") = FixDbField(rs(\"Salgsopstilling\"))
Session(\"Dato\") = FixDbField(rs(\"Dato\"))
rs.Close
Set rs = Nothing
End if

If cmd=\"New\" Then
  Session(\"Sagsnr\") = \"\"
  Session(\"Beliggenhed\") = \"\"
  Session(\"Kontant\") = \"\"
  Session(\"Kvm\") = \"\"
  Session(\"Garage\") = \"\"
  Session(\"Kælder\") = \"\"
  Session(\"Beskrivelse\") = \"\"
  Session(\"Udbet\") = \"\"
  Session(\"Brutto\") = \"\"
  Session(\"Netto\") = \"\"
  Session(\"Grund\") = \"\"
  Session(\"Etager\") = \"\"
  Session(\"Vær\") = \"\"
  Session(\"Byggeår\") = \"\"
  Session(\"Postnr\") = \"\"
  Session(\"By\") = \"\"
  Session(\"Nysag\") = \"False\"
  Session(\"Reserveret\") = \"False\"
  Session(\"Solgt\") = \"False\"
  Session(\"Slettes\") = \"False\"
  Session(\"Nypris\") = \"False\"
  Session(\"Ejendomstype\") = \"\"
  Session(\"Kommune\") = \"\"
  Session(\"Kommune data\") = \"\"
  Session(\"Hjemmeside\") = \"\"
  Session(\"Foto1\") = \"\"
  Session(\"Foto2\") = \"\"
  Session(\"Foto3\") = \"\"
  Session(\"Foto4\") = \"\"
  Session(\"Foto5\") = \"\"
  Session(\"Foto6\") = \"\"
  Session(\"Foto7\") = \"\"
  Session(\"Foto8\") = \"\"
  Session(\"Foto9\") = \"\"
  Session(\"Foto10\") = \"\"
  Session(\"Foto11\") = \"\"
  Session(\"Foto12\") = \"\"
  Session(\"Salgsopstilling\") = \"\"
  Session(\"Dato\") = \"\"
End If
conntemp.Close
Set conntemp = Nothing
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<title>Limited ShareWare version !!!! ATAF Version 4.5.0, Database : Kunde</title>
<base target=\"_self\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"globalcss.css\">

</head>
<body>

<form method=\"GET\" action=\"defaultform.asp\" name=\"Kunde\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
 
  <td>Sagsnr</td>
  <td><input type=\"text\" name=\"Beliggenhed\" size=\"100\"  Value=\"<%=Session(\"Sagsnr\")%>\"></td>
    </tr>
  <tr>
  <td>Beliggenhed</td>
  <td><input type=\"text\" name=\"Beliggenhed\" size=\"100\"  Value=\"<%=Session(\"Beliggenhed\")%>\"></td>
  </tr>
  <tr>
  <td>Kontant</td>
  <td><input type=\"text\" name=\"Kontant\" size=\"50\"  Value=\"<%=Session(\"Kontant\")%>\"></td>
  </tr>
  <tr>
  <td>Kvm</td>
  <td><input type=\"text\" name=\"Kvm\" size=\"50\"  Value=\"<%=Session(\"Kvm\")%>\"></td>
  </tr>
  <tr>
  <td>Garage</td>
  <td><input type=\"text\" name=\"Garage\" size=\"50\"  Value=\"<%=Session(\"Garage\")%>\"></td>
  </tr>
  <tr>
  <td>Kælder</td>
  <td><input type=\"text\" name=\"Kælder\" size=\"50\"  Value=\"<%=Session(\"Kælder\")%>\"></td>
  </tr>
  <tr>
  <td>Beskrivelse</td>
  <td><textarea rows=\"3\" name=\"Beskrivelse\" cols=\"30\" ><%=Session(\"Beskrivelse\")%></textarea></td>
  </tr>
  <tr>
  <td>Udbet</td>
  <td><input type=\"text\" name=\"Udbet\" size=\"50\"  Value=\"<%=Session(\"Udbet\")%>\"></td>
  </tr>
  <tr>
  <td>Brutto</td>
  <td><input type=\"text\" name=\"Brutto\" size=\"50\"  Value=\"<%=Session(\"Brutto\")%>\"></td>
  </tr>
  <tr>
  <td>Netto</td>
  <td><input type=\"text\" name=\"Netto\" size=\"50\"  Value=\"<%=Session(\"Netto\")%>\"></td>
  </tr>
  <tr>
  <td>Grund</td>
  <td><input type=\"text\" name=\"Grund\" size=\"50\"  Value=\"<%=Session(\"Grund\")%>\"></td>
  </tr>
  <tr>
  <td>Etager</td>
  <td><input type=\"text\" name=\"Etager\" size=\"6\"  Value=\"<%=Session(\"Etager\")%>\"></td>
  </tr>
  <tr>
  <td>Vær</td>
  <td><input type=\"text\" name=\"Vær\" size=\"50\"  Value=\"<%=Session(\"Vær\")%>\"></td>
  </tr>
  <tr>
  <td>Byggeår</td>
  <td><input type=\"text\" name=\"Byggeår\" size=\"50\"  Value=\"<%=Session(\"Byggeår\")%>\"></td>
  </tr>
  <tr>
  <td>Postnr</td>
  <td><input type=\"text\" name=\"Postnr\" size=\"5\"  Value=\"<%=Session(\"Postnr\")%>\"></td>
  </tr>
  <tr>
  <td>By</td>
  <td><input type=\"text\" name=\"By\" size=\"50\"  Value=\"<%=Session(\"By\")%>\"></td>
  </tr>
  <tr>
  <td>Nysag</td>
<td>
<%
Response.write CreateYesNo(\"True\",\"False\",\"True\",\"False\",\"Nysag\",Session(\"Nysag\"),\"False\")
%>
</td>
  </tr>
  <tr>
  <td>Reserveret</td>
<td>
<%
Response.write CreateYesNo(\"True\",\"False\",\"True\",\"False\",\"Reserveret\",Session(\"Reserveret\"),\"False\")
%>
</td>
  </tr>
  <tr>
  <td>Solgt</td>
<td>
<%
Response.write CreateYesNo(\"True\",\"False\",\"True\",\"False\",\"Solgt\",Session(\"Solgt\"),\"False\")
%>
</td>
  </tr>
  <tr>
  <td>Slettes</td>
<td>
<%
Response.write CreateYesNo(\"True\",\"False\",\"True\",\"False\",\"Slettes\",Session(\"Slettes\"),\"False\")
%>
</td>
  </tr>
  <tr>
  <td>Nypris</td>
<td>
<%
Response.write CreateYesNo(\"True\",\"False\",\"True\",\"False\",\"Nypris\",Session(\"Nypris\"),\"False\")
%>
</td>
  </tr>
  <tr>
  <td>Ejendomstype</td>
<td>
<%
Response.write CreateDropDownBox(Session(\"Ejendomstype\"),\"Villa Bondegåård\",\"Ejendomstype\",\"1\",\"\",Session(\"Ejendomstype\"))
%>
</td>
  </tr>
  <tr>
  <td>Kommune</td>
  <td><input type=\"text\" name=\"Kommune\" size=\"150\"  Value=\"<%=Session(\"Kommune\")%>\"></td>
  </tr>
  <tr>
  <td>Kommune data</td>
  <td><textarea rows=\"3\" name=\"Kommune data\" cols=\"30\" ><%=Session(\"Kommune data\")%></textarea></td>
  </tr>
  <tr>
  <td>Hjemmeside</td>
  <td><input type=\"text\" name=\"Hjemmeside\" size=\"100\"  Value=\"<%=Session(\"Hjemmeside\")%>\"></td>
  </tr>
  <tr>
  <td>Foto1</td>
  <td><input type=\"text\" name=\"Foto1\" size=\"50\"  Value=\"<%=Session(\"Foto1\")%>\"></td>
  </tr>
  <tr>
  <td>Foto2</td>
  <td><input type=\"text\" name=\"Foto2\" size=\"50\"  Value=\"<%=Session(\"Foto2\")%>\"></td>
  </tr>
  <tr>
  <td>Foto3</td>
  <td><input type=\"text\" name=\"Foto3\" size=\"50\"  Value=\"<%=Session(\"Foto3\")%>\"></td>
  </tr>
  <tr>
  <td>Foto4</td>
  <td><input type=\"text\" name=\"Foto4\" size=\"50\"  Value=\"<%=Session(\"Foto4\")%>\"></td>
  </tr>
  <tr>
  <td>Foto5</td>
  <td><input type=\"text\" name=\"Foto5\" size=\"50\"  Value=\"<%=Session(\"Foto5\")%>\"></td>
  </tr>
  <tr>
  <td>Foto6</td>
  <td><input type=\"text\" name=\"Foto6\" size=\"50\"  Value=\"<%=Session(\"Foto6\")%>\"></td>
  </tr>
  <tr>
  <td>Foto7</td>
  <td><input type=\"text\" name=\"Foto7\" size=\"50\"  Value=\"<%=Session(\"Foto7\")%>\"></td>
  </tr>
  <tr>
  <td>Foto8</td>
  <td><input type=\"text\" name=\"Foto8\" size=\"50\"  Value=\"<%=Session(\"Foto8\")%>\"></td>
  </tr>
  <tr>
  <td>Foto9</td>
  <td><input type=\"text\" name=\"Foto9\" size=\"50\"  Value=\"<%=Session(\"Foto9\")%>\"></td>
  </tr>
  <tr>
  <td>Foto10</td>
  <td><input type=\"text\" name=\"Foto10\" size=\"50\"  Value=\"<%=Session(\"Foto10\")%>\"></td>
  </tr>
  <tr>
  <td>Foto11</td>
  <td><input type=\"text\" name=\"Foto11\" size=\"50\"  Value=\"<%=Session(\"Foto11\")%>\"></td>
  </tr>
  <tr>
  <td>Foto12</td>
  <td><input type=\"text\" name=\"Foto12\" size=\"50\"  Value=\"<%=Session(\"Foto12\")%>\"></td>
  </tr>
  <tr>
  <td>Salgsopstilling</td>
  <td><input type=\"text\" name=\"Salgsopstilling\" size=\"50\"  Value=\"<%=Session(\"Salgsopstilling\")%>\"></td>
  </tr>
  <tr>
  <td>Dato</td>
  <td>
      <%
        Response.write CreateDateTimeBox(Session(\"Dato\"),\"Dato\",\"dd-mm-yy hh:mi:ss\")
      %>
  </td>
  </tr>
</table>
</div>
<% If cmd<>\"New\"  and cmd<>\"Copy\" then %>
<input type=\"button\" value=\"¦&lt;\" onClick=\"parent.location=\'defaultform.asp?cmd=First&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to go to the first record\")%>Class=\"Button\">
<input type=\"button\" value=\"&lt;&lt;\" onClick=\"parent.location=\'defaultform.asp?cmd=Prev&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Move one record backwards\")%>Class=\"Button\">
<input type=\"button\" value=\"Delete\" onClick=\"parent.location=\'defaultform.asp?cmd=Del&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to delete the current record\")%>Class=\"Button\">
<input type=\"text\" size=\"8\" Value=\"<%=Session(\"CurRec\")%> of <%=Session(\"NumOfRecs\")%>\" Class=\"Button\">
<input type=\"submit\" value=\"Save\"<%=ShowTextOnPic(\"Click here to saves you changes\")%>Class=\"Button\">
<input type=\"button\" value=\"New\" onClick=\"parent.location=\'defaultform.asp?cmd=New&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to create a new record\")%>Class=\"Button\">
<input type=\"button\" value=\"Copy\" onClick=\"parent.location=\'defaultform.asp?cmd=Copy&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to go copy the current record\")%>Class=\"Button\">
<input type=\"button\" value=\"Search\" onClick=\"parent.location=\'defaultsearch.asp\'\"<%=ShowTextOnPic(\"Click search in the database\")%>Class=\"Button\">
<input type=\"button\" value=\"&gt;&gt;\" onClick=\"parent.location=\'defaultform.asp?cmd=Next&Sagsnr=<%=Session(\"Sagsnr\")%>\'\" <%=ShowTextOnPic(\"Click to go to next record\")%>Class=\"Button\">
<input type=\"button\" value=\"&gt;¦\" onClick=\"parent.location=\'defaultform.asp?cmd=Last&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to go to the last record\")%>Class=\"Button\">
<br><input type=\"button\" value=\"Back to menu\" onClick=\"parent.location=\'default.asp\'\"<%=ShowTextOnPic(\"Click to go back to the main menu\")%>Class=\"Button\">
<input type=\"button\" value=\"ListView\" onClick=\"parent.location=\'defaultlist.asp\'\"<%=ShowTextOnPic(\"Click here to view the records in a listview\")%>Class=\"Button\">
<input type=\"hidden\" name=\"Sagsnr\" value=\"<%=Session(\"Sagsnr\")%>\">
<input type=\"Hidden\"name=\"cmd\" value=\"Save\">
<% Else %>
<input type=\"submit\" value=\"Save\"<%=ShowTextOnPic(\"Click to save the new record\")%>Class=\"Button\">
<input type=\"button\" value=\"Cancel\" onClick=\"parent.location=\'defaultform.asp\'\"<%=ShowTextOnPic(\"Click cancel creating a new record\")%>Class=\"Button\">
<input type=\"hidden\" name=\"cmd\" value=\"SaveNew\">
<%End If %>
</form>

</body>
</html>

Kan du ikke lave en response.write på den sql du sender af sted ??

/arno

Jov da

hvis du har mellem run i dine kolonne navne skal du have [] omkring:
Kommune data  -> [Kommune data]

Generalt om kolonnenavne:
- undgå mellemrum og -
- undgå æøå
- Benyt karaterne: a-z, 0-9, det er det mest sikre

Lige ledes er  By  reservered ord Access. Omdøb kolonne navnet til eks.vis bynavn eller sæt [] omkring navnet i SQL sætningen [by].

Jeg prøver lige at rette den til....og vendr tilbage...

Ok det hjalp lidt at forenkle det...så new, listView og copy virker men save og delete virker ikke.

Så jeg afsætter yderligere 100 point..

Fejl ved save

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression \'Sagsnr=0500, 0500\'.

/databaser/test/xx/defaultform.asp, line 77


Og her er koden på ny:

<!--#include File =\"globalsub.asp\"-->
<%

cmd = Request.QueryString(\"cmd\")
Session(\"Sagsnr\") = Request.QueryString(\"Sagsnr\")

Set conntemp = server.CreateObject(\"adodb.Connection\")
conntemp.open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"Ejendomme.mdb\")

Select Case cmd

Case \"SaveNew\"
FieldStr=\" (\"
ValueStr = \" VALUES (\"

If Request.QueryString(\"Sagsnr\")<>\"\" Then
  FieldStr=FieldStr+ \"Sagsnr, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Sagsnr\"))+\"\', \"

End if
If Request.QueryString(\"Beliggenhed\")<>\"\" Then
  FieldStr=FieldStr+ \"Beliggenhed, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Beliggenhed\"))+\"\', \"
End if
If Request.QueryString(\"Brutto\")<>\"\" Then
  FieldStr=FieldStr+ \"Brutto, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Brutto\"))+\"\', \"
End if
If Request.QueryString(\"Netto\")<>\"\" Then
  FieldStr=FieldStr+ \"Netto, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Netto\"))+\"\', \"
End if
If Request.QueryString(\"Postnr\")<>\"\" Then
  FieldStr=FieldStr+ \"Postnr, \"
  ValueStr=ValueStr+Request.QueryString(\"Postnr\")+\", \"
End if
If Request.QueryString(\"Foto4\")<>\"\" Then
  FieldStr=FieldStr+ \"Foto4, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Foto4\"))+\"\', \"
End if
If Request.QueryString(\"Kommune\")<>\"\" Then
  FieldStr=FieldStr+ \"Kommune, \"
  ValueStr=ValueStr+\"\'\"+FixDbFieldSave(Request.QueryString(\"Kommune\"))+\"\', \"
End if
FieldStr = Mid(FieldStr, 1, Len(FieldStr) - 2) + \")\"
ValueStr = Mid(ValueStr, 1, Len(ValueStr) - 2) + \");\"
SqlStr = \"Insert Into Kunde\" + FieldStr + ValueStr
conntemp.Execute (SqlStr)
conntemp.Close
Set conntemp = Nothing
response.redirect \"defaultform.asp\"

Case \"Save\"
SqlStr = \"UPDATE Kunde SET \"
If Request.QueryString(\"Beliggenhed\") <> \"\" Then
  Sqlstr=SqlStr+\"Beliggenhed=\'\"+FixDbFieldSave(Request.QueryString(\"Beliggenhed\")) + \"\', \"
End if
If Request.QueryString(\"Brutto\") <> \"\" Then
  Sqlstr=SqlStr+\"Brutto=\'\"+FixDbFieldSave(Request.QueryString(\"Brutto\")) + \"\', \"
End if
If Request.QueryString(\"Netto\") <> \"\" Then
  Sqlstr=SqlStr+\"Netto=\'\"+FixDbFieldSave(Request.QueryString(\"Netto\")) + \"\', \"
End if
If Request.QueryString(\"Postnr\") <> \"\" Then
  Sqlstr=SqlStr+\"Postnr=\"+Request.QueryString(\"Postnr\") + \", \"
End if
If Request.QueryString(\"Foto4\") <> \"\" Then
  Sqlstr=SqlStr+\"Foto4=\'\"+FixDbFieldSave(Request.QueryString(\"Foto4\")) + \"\', \"
End if
If Request.QueryString(\"Kommune\") <> \"\" Then
  Sqlstr=SqlStr+\"Kommune=\'\"+FixDbFieldSave(Request.QueryString(\"Kommune\")) + \"\', \"
End if
SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
SqlStr = SqlStr + \" WHERE Sagsnr=\"+ request.querystring(\"Sagsnr\")+ \";\"


conntemp.Execute (SqlStr)

SqlStr =\"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While rs.EOF <> True And a < Session(\"CurRec\")
  a = a + 1
  rs.MoveNext
Wend

Case \"\"
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
If rs.EOF = True Then
  Response.redirect \"defaultform.asp?cmd=New\"
End If
rs.MoveFirst
a = 0
While rs.EOF <> True
  a = a + 1
  rs.MoveNext
Wend
Session(\"NumOfRecs\") = a
Session(\"CurRec\") = 1
rs.MoveFirst

Case \"First\"
Session(\"CurRec\") = 1
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst

Case \"Last\"
Session(\"CurRec\") = Session(\"NumOfRecs\")
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While a < Session(\"NumOfRecs\")
  a = a + 1
  rs.MoveNext
Wend

Case \"Prev\"
Session(\"CurRec\") = Session(\"CurRec\") - 1
If Session(\"CurRec\") <= 0 Then
  Session(\"CurRec\") = Session(\"NumOfRecs\")
End If
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While rs.EOF <> True And a < Session(\"CurRec\")
  a = a + 1
  rs.MoveNext
Wend

Case \"Next\"
Session(\"CurRec\") = Session(\"CurRec\") + 1
If Session(\"CurRec\") > Session(\"NumOfRecs\") Then
  Session(\"CurRec\") = 1
End If
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
a = 1
While rs.EOF <> True And a < Session(\"CurRec\")
  a = a + 1
  rs.MoveNext
Wend

Case \"Del\"
SqlStr = \"DELETE FROM Kunde WHERE Sagsnr=\"+ Session(\"Sagsnr\")+ \";\"
conntemp.Execute (SqlStr)
conntemp.Close
Set conntemp = Nothing
response.redirect \"defaultform.asp\"

Case \"Fromlist\"
Session(\"CurRec\") = 1
SqlStr1 = \"SELECT Count(Sagsnr) As TotalCount From Kunde;\"
Set Rs1 = conntemp.Execute(SqlStr1)
Session(\"NumOfRecs\") = Rs1(\"TotalCount\")
Rs1.Close
Set Rs1 = Nothing
SqlStr = \"SELECT * FROM Kunde ORDER BY Sagsnr\"
Set rs = conntemp.Execute(SqlStr)
rs.MoveFirst
While Trim(Session(\"Sagsnr\")) <> Trim(CStr(rs(\"Sagsnr\")))
  Session(\"CurRec\") = Session(\"CurRec\") + 1
  rs.MoveNext
Wend
End Select

If cmd <> \"New\" And cmd<>\"Copy\" Then
  Session(\"Sagsnr\") = server.Urlencode(rs(\"Sagsnr\"))
Session(\"Beliggenhed\") = FixDbField(rs(\"Beliggenhed\"))
Session(\"Brutto\") = FixDbField(rs(\"Brutto\"))
Session(\"Netto\") = FixDbField(rs(\"Netto\"))
Session(\"Postnr\") = FixDbField(rs(\"Postnr\"))
Session(\"Foto4\") = FixDbField(rs(\"Foto4\"))
Session(\"Kommune\") = FixDbField(rs(\"Kommune\"))
rs.Close
Set rs = Nothing
End if

If cmd=\"New\" Then
  Session(\"Sagsnr\") = \"\"
  Session(\"Beliggenhed\") = \"\"
  Session(\"Brutto\") = \"\"
  Session(\"Netto\") = \"\"
  Session(\"Postnr\") = \"\"
  Session(\"Foto4\") = \"\"
  Session(\"Kommune\") = \"\"
End If
conntemp.Close
Set conntemp = Nothing
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<title>AdminInterface</title>
<base target=\"_self\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"globalcss.css\">

</head>
<body>

<form method=\"GET\" action=\"defaultform.asp\" name=\"Kunde\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
  <td>Sagsnr</td>
  <td><input type=\"text\" name=\"Sagsnr\" size=\"100\"  Value=\"<%=Session(\"Sagsnr\")%>\"></td>
  </tr>
  <tr>

  <td>Beliggenhed</td>
  <td><input type=\"text\" name=\"Beliggenhed\" size=\"100\"  Value=\"<%=Session(\"Beliggenhed\")%>\"></td>
  </tr>
  <tr>
  <td>Brutto</td>
  <td><input type=\"text\" name=\"Brutto\" size=\"50\"  Value=\"<%=Session(\"Brutto\")%>\"></td>
  </tr>
  <tr>
  <td>Netto</td>
  <td><input type=\"text\" name=\"Netto\" size=\"50\"  Value=\"<%=Session(\"Netto\")%>\"></td>
  </tr>
  <tr>
  <td>Postnr</td>
  <td><input type=\"text\" name=\"Postnr\" size=\"5\"  Value=\"<%=Session(\"Postnr\")%>\"></td>
  </tr>
  <tr>
  <td>Foto4</td>
  <td><input type=\"text\" name=\"Foto4\" size=\"50\"  Value=\"<%=Session(\"Foto4\")%>\"></td>
  </tr>
  <tr>
  <td>Kommune</td>
  <td><input type=\"text\" name=\"Kommune\" size=\"150\"  Value=\"<%=Session(\"Kommune\")%>\"></td>
  </tr>
</table>
</div>
<% If cmd<>\"New\"  and cmd<>\"Copy\" then %>
<input type=\"button\" value=\"¦&lt;\" onClick=\"parent.location=\'defaultform.asp?cmd=First&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to go to the first record\")%>Class=\"Button\">
<input type=\"button\" value=\"&lt;&lt;\" onClick=\"parent.location=\'defaultform.asp?cmd=Prev&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Move one record backwards\")%>Class=\"Button\">
<input type=\"button\" value=\"Delete\" onClick=\"parent.location=\'defaultform.asp?cmd=Del&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to delete the current record\")%>Class=\"Button\">
<input type=\"text\" size=\"8\" Value=\"<%=Session(\"CurRec\")%> of <%=Session(\"NumOfRecs\")%>\" Class=\"Button\">
<input type=\"submit\" value=\"Save\"<%=ShowTextOnPic(\"Click here to saves you changes\")%>Class=\"Button\">
<input type=\"button\" value=\"New\" onClick=\"parent.location=\'defaultform.asp?cmd=New&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to create a new record\")%>Class=\"Button\">
<input type=\"button\" value=\"Copy\" onClick=\"parent.location=\'defaultform.asp?cmd=Copy&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to go copy the current record\")%>Class=\"Button\">
<input type=\"button\" value=\"Search\" onClick=\"parent.location=\'defaultsearch.asp\'\"<%=ShowTextOnPic(\"Click search in the database\")%>Class=\"Button\">
<input type=\"button\" value=\"&gt;&gt;\" onClick=\"parent.location=\'defaultform.asp?cmd=Next&Sagsnr=<%=Session(\"Sagsnr\")%>\'\" <%=ShowTextOnPic(\"Click to go to next record\")%>Class=\"Button\">
<input type=\"button\" value=\"&gt;¦\" onClick=\"parent.location=\'defaultform.asp?cmd=Last&Sagsnr=<%=Session(\"Sagsnr\")%>\'\"<%=ShowTextOnPic(\"Click to go to the last record\")%>Class=\"Button\">
<br><input type=\"button\" value=\"Back to menu\" onClick=\"parent.location=\'default.asp\'\"<%=ShowTextOnPic(\"Click to go back to the main menu\")%>Class=\"Button\">
<input type=\"button\" value=\"ListView\" onClick=\"parent.location=\'defaultlist.asp\'\"<%=ShowTextOnPic(\"Click here to view the records in a listview\")%>Class=\"Button\">
<input type=\"hidden\" name=\"Sagsnr\" value=\"<%=Session(\"Sagsnr\")%>\">
<input type=\"Hidden\"name=\"cmd\" value=\"Save\">
<% Else %>
<input type=\"submit\" value=\"Save\"<%=ShowTextOnPic(\"Click to save the new record\")%>Class=\"Button\">
<input type=\"button\" value=\"Cancel\" onClick=\"parent.location=\'defaultform.asp\'\"<%=ShowTextOnPic(\"Click cancel creating a new record\")%>Class=\"Button\">
<input type=\"hidden\" name=\"cmd\" value=\"SaveNew\">
<%End If %>
</form>

</body>
</html>

Og fejlen på delete:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e07\'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/databaser/test/xx/defaultform.asp, line 151

ok
Hvis data er defineret som tal i databasen skal der ikke \' omkring. Hvis de er defineret som tekst/notat skal der \' omkring de data man sætter ind.

Prøv at udsskrive din SQL lige inde du executer den. Så er det let at se om du mangler \' omkring nogle data.

Jeg vil helt klart kun benytte + til at ligge tal samme og så benytte & til at ligge strenge sammen.

Ikke forstået

+ bruges til at ligge tal sammen b = 10+4:
c=10, d=4
b = c+d  ;her bliver b=14
b = c&d  ; b bliver = 104

Hvis du har to strenge s1= \"a\" og s2=\"b\" så virker + som & men hvis s1=\"1\" og s2=\"3\" så er det muligt at du får 4 ved s1+s2 og ikke 13 som du skulle.

+ ligger tal sammen
& ligger strenge sammen
Bland dem og du får problemmer før eller siden.

Nårr

Stregen ser sådan her ud http://www.vipiil.dk/databaser/test/xx/defaultform.asp?Sagsnr=0500&Beliggenhed=&Brutto=555668&Netto=777878&Postnr=0&Foto4=&Kommune=&Sagsnr=0500&cmd=Save

Og det ser jo godt ud, men hvad er så problemet...

Hvid du udskriver inde du executer din SQL kan man nogle gange let se hvad fejlen er:

SqlStr = \"DELETE FROM Kunde WHERE Sagsnr=\"+ Session(\"Sagsnr\")+ \";\"
conntemp.Execute (SqlStr)

--->

SqlStr = \"DELETE FROM Kunde WHERE Sagsnr=\"+ Session(\"Sagsnr\")+ \";\"
Response.write(SqlStr)
conntemp.Execute (SqlStr)

ok nu tænke jeg mere genrelt i koden:

SqlStr = \"DELETE FROM Kunde WHERE Sagsnr=\"+ Session(\"Sagsnr\")+ \";\"
------>
SqlStr = \"DELETE FROM Kunde WHERE Sagsnr=\" & Session(\"Sagsnr\") & \";\"

Du har mere end et sagsnummer med i din update, siden du får fejlen på:
\'Sagsnr=0500, 0500\'

Problemet ligger i at du har et hidden felt ved navn sagsnr, og et text felt der hedder sagsnr.

Ved delete kan det være lidt af hvert, men er formentligt det samme.

Som eagleeye skriver, er du nødt til at finde ud af hvad du rent faktisk executer, så indsæt en Response.Write SqlStr lige før den execute (og kommenter redirects ud).

Generelt er det en god idé at bruge post som method på formularer (og så selvf Request.Form).

Brug & til at sammenlægge strenge, istedet for +.
& vil lave en 1+1 om til 11
+ vil lave 1+1 om til 2

- Morten

UPDATE Kunde SET Brutto=\'555668\', Netto=\'777878\', Postnr=0 WHERE Sagsnr=0500, 0500;
Microsoft OLE DB Provider for ODBC Drivers
Når jeg laver en Response.write så får jeg det her ... Sagsnr skal ikke komme 2 gange ???
error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression \'Sagsnr=0500, 0500\'.

/databaser/test/xx/defaultform.asp, line 76

Din session(\"sagsnr\") er lig med \'0500, 0500\'
fordi den er med 2 gange i dit link.

Den er med i onClick:
onClick=\"parent.location=\'defaultform.asp?cmd=First&Sagsnr=<%=Session(\"Sagsnr\")%>
Og i dit HIDDEN felt:
<input type=\"hidden\" name=\"Sagsnr\" value=\"<%=Session(\"Sagsnr\")%>\">

Jeg dit hidden felt da du ligger sagnummer ind i linket på all knapper.

Dvs at det er den her der skriver sagsnr 2 gange og også kommaet

SqlStr = Mid(SqlStr, 1, Len(SqlStr) - 2)
SqlStr = SqlStr + \" WHERE Sagsnr=\"+ request.querystring(\"Sagsnr\")+ \";\"

Det kan jeg ikke lige gennemskue...

den: sagsnr=0500

og i din database er sagsnr vel ikke et tal hvis den er = 0500 det er en tekst streng.

Dit link
defaultform.asp?Sagsnr=0500&  <--første sagsnr
Beliggenhed=&Brutto=555668&
Netto=777878&Postnr=0&
Foto4=&Kommune=&
Sagsnr=0500&            <-------- andet sagsnr
cmd=Save

første Sagsnr kommer fra :
onClick=\"parent.location=\'defaultform.asp?cmd=First&Sagsnr=<%=Session(\"Sagsnr\")%>

Anden fra det felt Sagsnr som er hidden
<input type=\"hidden\" name=\"Sagsnr\" value=\"<%=Session(\"Sagsnr\")%>\">

Fjern enten onClick : &Sagsnr=<%=Session(\"Sagsnr\")%>
Eller fjern:
<input type=\"hidden\" name=\"Sagsnr\" value=\"<%=Session(\"Sagsnr\")%>\">

Eller lav din SQL om:

SqlStr = \"DELETE FROM Kunde WHERE Sagsnr=\" & request.querystring(\"Sagsnr\") & \";\"
og måske skal der \' omkring request.querystring(\"Sagsnr\") da de ligner en streng og ikke et tal.

Jeg lukker det her spørgsmål og åbner et nyt pga. at der er for mange linjer nu men hvis i lige følger med så er det perfekt...

hmmm så husk lige på at du har fået svar på nogle at dine problmmer i dette spm.

Det ved jeg godt og derfor vil det være perfekt hvis du svarre over i det nye spørgsmål