---

Hej

Er der nogen der kan gennemskue hvad der går galt i dette stykke kode:

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

'Erstat ugyldige tegn med gyldige
Function unQuote(strSQL)
strSQL = Trim(strSQL)
unQuote = Replace(strSQL, "'", "''")
unQuote = Replace(strSQL, "vbcrlf", "<br>")
End Function

'Opdater tabellen cd
strSQL = "Update cd Set "
strSQL = strSQL & "Kunstner= '" & Request.Form("Kunstner") & "', "
strSQL = strSQL & "Album= '" & Request.Form("Album") & "', "
strSQL = strSQL & "Format= '" & Request.Form("Format") & "', "
strSQL = strSQL & "Udgivelsesaar= '" & int(Request.Form("Udgivelsesaar")) &
"', "
strSQL = strSQL & "Genre= '" & Request.Form("Genre") & "', "
strSQL = strSQL & "Status= '" & Request.Form("Status") & "', "
strSQL = strSQL & "Where Id = '" & Request.Form("id") & "'"

Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Jeg får denne fejl:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/cd/edit.asp, line 25

Mvh. Jacob

---

Hejsa,



Kan du selv se det nu ?? -- Du forsøger at returnere en værdi 2 gange!

Prøv:

Function unQuote(strSQL)
strSQL = Trim(strSQL)
unQuote = Replace(Replace(strSQL, "'", "''"), "vbcrlf", "<br>")
End Function

Held og lykke!

--

Venlig hilsen/Kind Regards,


Steffen Wogensen Jaques
Skovvej 20, 106
DK-6400 Sønderborg
Denmark
-
www.ecat.dk · www.woah.dk · www.jaques.dk · www.x6.dk


"Jacob Nielsen" <jacob.nielsen@get2net.dk> wrote in message
news:JHxC8.54$aM6.1491@news.get2net.dk...
> Hej
>
> Er der nogen der kan gennemskue hvad der går galt i dette stykke kode:
>
> <%
> ' Databaseforbindelse
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath("/db/data.mdb")
> Conn.Open DSN
>
> 'Erstat ugyldige tegn med gyldige
> Function unQuote(strSQL)
> strSQL = Trim(strSQL)
> unQuote = Replace(strSQL, "'", "''")
> unQuote = Replace(strSQL, "vbcrlf", "<br>")
> End Function
>
> 'Opdater tabellen cd
> strSQL = "Update cd Set "
> strSQL = strSQL & "Kunstner= '" & Request.Form("Kunstner") & "', "
> strSQL = strSQL & "Album= '" & Request.Form("Album") & "', "
> strSQL = strSQL & "Format= '" & Request.Form("Format") & "', "
> strSQL = strSQL & "Udgivelsesaar= '" & int(Request.Form("Udgivelsesaar"))
&
> "', "
> strSQL = strSQL & "Genre= '" & Request.Form("Genre") & "', "
> strSQL = strSQL & "Status= '" & Request.Form("Status") & "', "
> strSQL = strSQL & "Where Id = '" & Request.Form("id") & "'"
>
> Conn.Execute(strSQL)
>
> ' Luk databaseforbindelse
> Conn.Close
> Set Conn = Nothing
> %>
>
> Jeg får denne fejl:
> Error Type:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
> [Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE
statement.
> /cd/edit.asp, line 25
>
> Mvh. Jacob
>
>

---

On Thu, 9 May 2002 19:11:05 +0200, "Steffen Wogensen Jaques"
<steffen@jaNO-SPAMques.dk> wrote:

<snip>
>Kan du selv se det nu ?? -- Du forsøger at returnere en værdi 2 gange!
>
>Prøv:
>
>Function unQuote(strSQL)
> strSQL = Trim(strSQL)
> unQuote = Replace(Replace(strSQL, "'", "''"), "vbcrlf", "<br>")
>End Function

Derudover er vbcrlf ikke en streng-værdi, men en indbygget konstant,
så der skal ikke "" om.

Endelig fremgår det ikke, hvordan denne funktion skal bruges???


Good luck,
Jørn


--
Jørn Andersen,
Brønshøj

---

"Jørn Andersen" <jorn@jorna.dk> wrote in message
news:pcmlduotcj16hpufocqr9hc7n4abifu9nc@4ax.com...
> On Thu, 9 May 2002 19:11:05 +0200, "Steffen Wogensen Jaques"
> <steffen@jaNO-SPAMques.dk> wrote:
>
> <snip>
> >Kan du selv se det nu ?? -- Du forsøger at returnere en værdi 2 gange!
> >
> >Prøv:
> >
> >Function unQuote(strSQL)
> > strSQL = Trim(strSQL)
> > unQuote = Replace(Replace(strSQL, "'", "''"), "vbcrlf", "<br>")
> >End Function
>
> Derudover er vbcrlf ikke en streng-værdi, men en indbygget konstant,
> så der skal ikke "" om.
>
> Endelig fremgår det ikke, hvordan denne funktion skal bruges???

Jeg havde nogle problemer med tegn som / - osv. når man tilføjede records
til databasen, så derfor "'" til "''", og vbcrlf til <br> er bare så den
også skifter linie hvis brugeren har indtastet et linieskift..

Anyways, det var ikke grunden til fejlen, det var i sql strengen det gik
galt, men det virker nu :)

Mvh. Jacob