"Jesper Stocholm" <spam200204@stocholm.dk> wrote in message
news:a994u7$65i$1@sunsite.dk...
> Klaus Egebjerg wrote in dk.edb.internet.webdesign.serverside.asp:
> > Hej
> >
> > Jeg sidder lige og roder med et Update problem.
> >
> > Det virker meget godt hvis jeg kun har et felt der skal opdateres. Så
> > anvender jeg sætningen:
> >
> > strQ ="UPDATE Kunder SET Navn ='"&Navn1&"' WHERE Mail= '"& Mail1&"'"
> >
> > Hvis jeg så skal have 2 felter updated så har jeg baladen. Jeg har
forsøgt
> > både med
> >
> > strQ ="UPDATE Kunder SET Navn ='"&Navn1&"' WHERE Mail= '"& Mail1&"'"
> > strQ = StrQ & "UPDATE Kunder SET Adresse1 ='"&Adresse11&"' WHERE Mail=
'"&
> > Mail1&"'"
> > Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
> >
> > [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing
operator)
> in
> > query expression 'Mail= 'ke@brygladen.dk'UPDATE Kunder SET Adresse1
='Løget
> > Høj 10 A 1 mf. tv.' WHERE Mail= 'ke@brygladen.dk''.
> >
> > /retkunde.asp, line 102
> > giver følgende fejl:
> >
> > og med:
> > strQ ="UPDATE Kunder SET Navn ='"&Navn1&"' WHERE Mail= '"& Mail1&"'"
> > strQ ="UPDATE Kunder SET Adresse1 ='"&Adresse11&"' WHERE Mail= '"&
> Mail1&"'"
> > Denne løsning updater bare den sidste linie
> >
>
> Måden at bruge UPDATE på er følgende:
>
> UPDATE
> TABLE1
> SET
> Field1 = Value1,Field2=Value2
> WHERE
> Field3 = Value3
>
>
> Se i øvrigt
>
>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tsqlref/ts_
u
> a-uz_82n9.asp?frame=true
>
Jeg har nu lavet scriptet om til:
Select Case Trim(Request.Form("DO"))
Case "Opdater"
Navn1 = Trim(Request.Form("Navn"))
Adresse11 = Trim(Request.Form("Adresse1"))
Adresse21 = Trim(Request.Form("Adresse2"))
Postnr1 = Trim(Request.Form("Postnr"))
By1 = Trim(Request.Form("By"))
Telefon1 = Trim(Request.Form("Telefon"))
Mail1 = Trim(Request.Form("Mail"))
Password1 = Trim(Request.Form("Password"))
Liter1 = Trim(Request.Form("Liter"))
CStr Ret (Kunder)
End Select
Function Ret (Kunder)
OpenConn("opskrifter.mdb")
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.ActiveConnection = Conn
strNavn1 = Trim(Request.Form("Navn"))
strQ = "SELECT * FROM Kunder where Mail ='" & strMail & "'"
Set rs = Conn.Execute (strQ)
UPDATE Kunder
SET Navn = "'Navn1'"
where Mail ="'" & strMail & "'"
Conn.Close
Set rs = Nothing
Set Conn = Nothing
End Function
Desværre så får jeg stadigvæk en fejl i UPDATE sætningen. Forslag ?
Klaus