Hvad *-/& er der galt ?

Jeg tror det er fordi dit ID er et tal!

Hvis det er det skal du gøre følgende:

strSQL = "update forhandler set firmanavn = "&request.form("firmanavn")&" where Id ="&id
Conn.Execute(strSQL)

strSQL = "update forhandler set firma = "&request.form("firma")&" where Id ="&id
Conn.Execute(strSQL)

strSQL = "update forhandler set adresse = "&request.form("adresse")&" where Id ="&id
Conn.Execute(strSQL)

Har selv haft det problem og jeg mener jeg løste det på den måde! ;0)

vil tro dette burde virke;

strSQL = "update forhandler set firmanavn = '"&request.form("firmanavn")&"' where Id = "&id&""
Conn.Execute(strSQL)

strSQL = "update forhandler set firma = '"&request.form("firma")&"' where Id = "&id&""
Conn.Execute(strSQL)

strSQL = "update forhandler set adresse = '"&request.form("adresse")&"' where Id = "&id&""
Conn.Execute(strSQL)

Hvis et af felterne, firmanavn, firma og adresse er blank får du en fejl.

Anvend evt. denne  sætning:

if Request.Form("firmanavn") then
  strSQL = "update forhandler set firmanavn = "&request.form("firmanavn")&" where Id ="&id
  Conn.Execute(strSQL)
end if

og ligesådan med  de andre linier.

Sorry. Sådan:

if Request.Form("firmanavn") <> "" then
  strSQL = "update forhandler set firmanavn = "&request.form("firmanavn")&" where Id ="&id
  Conn.Execute(strSQL)
end if

virker stadig ikke her er hele koden:
det skal siges at form felterne kan indeholde mellemrum, tal og bogstaver samlet.

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../forhandler/kunder.mdb")
Conn.Open DSN

id = request.form("Id")


strSQL = "update forhandler set firmanavn = "&request.form("firmanavn")&" where Id ="&id
Conn.Execute(strSQL)

strSQL = "update forhandler set firma = "&request.form("firma")&" where Id ="&id
Conn.Execute(strSQL)

strSQL = "update forhandler set adresse = "&request.form("adresse")&" where Id ="&id
Conn.Execute(strSQL)

%>

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../forhandler/kunder.mdb")
Conn.Open DSN

id = request.form("Id")


strSQL = "update forhandler set firmanavn = '"&request.form("firmanavn")&"' where Id ="&id
Conn.Execute(strSQL)

strSQL = "update forhandler set firma = '"&request.form("firma")&"' where Id ="&id
Conn.Execute(strSQL)

strSQL = "update forhandler set adresse = '"&request.form("adresse")&"' where Id ="&id
Conn.Execute(strSQL)

%> 


Ovenstående kræver at ID er et tal-felt.....evt. autonummerering!

Hvis dit ID-felt er af type tekst, skal det være følgende:

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../forhandler/kunder.mdb")
Conn.Open DSN

id = request.form("Id")


strSQL = "update forhandler set firmanavn = '"&request.form("firmanavn")&"' where Id ='"&id&"'"
Conn.Execute(strSQL)

strSQL = "update forhandler set firma = '"&request.form("firma")&"' where Id ='"&id&"'"
Conn.Execute(strSQL)

strSQL = "update forhandler set adresse = '"&request.form("adresse")&"' where Id ='"&id&"'"
Conn.Execute(strSQL)

%>