Opdatere data i Access database...

du gjør følgende:

...navn = \'(\'enverdi\')\'

men det skal være:

...navn = \'enverdi\'

deretter har du et komma for mye før WHERE...prøv denne:

strSQL = \"Update data set \"
strSQL = strSQL & \"navn= \'\" & Request.Form(\"navn\") & \"\' \"
strSQL = strSQL & \" Where direkte = (\'\" & Session(\"direkte\") & \"\')\"

Hmm... nu melder den følgende fejl:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/mt/update.asp, line 11


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Side:
POST 105 bytes to /mt/update.asp

POST Data:
navn=Thomsen&stilling=&adresse=&postnr=&telefon=&direkte=87336642&mobil=&fax=&email=&Submit=Forts%E6t+%3E

Her er det fulde script...

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \" Update data set \"
strSQL = strSQL & \" navn = \'\" & Request.Form(\"navn\") & \"\' \"
strSQL = strSQL & \" stilling = \'\" & Request.Form(\"stilling\") & \"\' \"
strSQL = strSQL & \" adresse = \'\" & Request.Form(\"adresse\") & \"\' \"
strSQL = strSQL & \" postnr = \'\" & Request.Form(\"postnr\") & \"\' \"
strSQL = strSQL & \" telefon = \'\" & Request.Form(\"telefon\") & \"\' \"
strSQL = strSQL & \" mobil = \'\" & Request.Form(\"mobil\") & \"\' \"
strSQL = strSQL & \" fax = \'\" & Request.Form(\"fax\") & \"\' \"
strSQL = strSQL & \" email = \'\" & Request.Form(\"email\") & \"\' \"
strSQL = strSQL & \" Where direkte = \'\" & Session(\"direkte\") & \"\' \"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>

<%
response.redirect \"layout.asp\"
%>

Prøv dette:

SQL = \"Update data set navn=\'\" & request.form(\"navn\") & \"\' where direkte=\'\" & session(\"direkte\") & \"\'\"

Thomas

Denne fik jeg til at virke... ellers tak for hjælpen alle! :o)

<%
navn=request.form(\"navn\")
stilling=request.form(\"stilling\")
adresse=request.form(\"adresse\")
postnr=request.form(\"postnr\")
telefon=request.form(\"telefon\")
mobil=request.form(\"mobil\")
fax=request.form(\"fax\")
email=request.form(\"email\")
direkte=session(\"direkte\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

SQL = \"UPDATE data set \"
SQL = SQL & \"navn=\'\" & navn & \"\', \"
SQL = SQL & \"stilling=\'\" & stilling & \"\', \"
SQL = SQL & \"adresse=\'\" & adresse & \"\', \"
SQL = SQL & \"postnr=\'\" & postnr & \"\', \"
SQL = SQL & \"telefon=\'\" & telefon & \"\', \"
SQL = SQL & \"mobil=\'\" & mobil & \"\', \"
SQL = SQL & \"fax=\'\" & fax & \"\', \"
SQL = SQL & \"email=\'\" & email & \"\' \"
SQL = SQL & \" Where direkte=\" & direkte

Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
%>

<%
response.redirect \"layout.asp\"
%>