replace tegn i database

SQL1 = "select * from tabelnavn"
set rs = conn.execute("SQL1")

Do while not rs.eof
SQL = "UPDATE tabelnavn SET beskrivelse = '" & replace(replace(replace(replace(rs("beskrivelse"),"","Ø"),"‘","æ"),"›","ø"),"†","å") & "'" WHERE id = " & rs("id")
rs.movenext
loop

jeg får denne fejl :

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/butik/data/replace.asp, line 11

SQL = "UPDATE varer SET beskrivelse = '" & replace(replace(replace(replace(rs("beskrivelse"),"","Ø"),"‘","æ"),"›","ø"),"†","å") & "'" WHERE id = " & rs("id")
---------------------------------------------------------------------------------------------------------------------------------------^

hovsa

SQL = "UPDATE tabelnavn SET beskrivelse = '" & replace(replace(replace(replace(rs("beskrivelse"),"","Ø"),"‘","æ"),"›","ø"),"†","å") & "' WHERE id = " & rs("id")

jeg får nu en "intern fejl" hvad kan det skyldes ? :


Siden kan ikke vises
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.

--------------------------------------------------------------------------------

Prøv følgende:

Åbn www.ditdomæne.dk hjemmesiden og søg efter links til de oplysninger, du vil have.
Klik på knappen  Opdater, eller prøv igen senere.

Klik på  Søg for at søge efter oplysninger på Internettet.
Du kan også se en liste over relaterede websteder.




HTTP 500 - Intern serverfejl
Internet Explorer

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

ved ikke hvordan og hvorledes, men min kode er ikke alt - du skal selv skrive selve connection til databasen. Har du gjort det?

Jeg får denne fejl :
---------------------------
Microsoft JET Database Engine error '80040e14'

Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

/butik/data/replace.asp, line 8

--------------------
min kode ser sådan ud :

<%

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")


SQL1 = "select * from varer"
set rs = conn.execute("SQL1")

Do while not rs.eof
SQL = "UPDATE varer SET beskrivelse = '" & replace(replace(replace(replace(rs("beskrivelse"),"","Ø"),"‘","æ"),"›","ø"),"†","å") & "' WHERE id = " & rs("id")
response.write sql
rs.movenext
loop

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
færdig !!

<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")


SQL1 = "select * from [varer]"
set rs = conn.execute(SQL1)

Do while not rs.eof
    SQL = "UPDATE varer SET beskrivelse = '" & replace(replace(replace(replace(rs("beskrivelse"),"","Ø"),"&#8216;","æ"),"&#8250;","ø"),"&#8224;","å") & "' WHERE id = " & rs("id")
    conn.execute(SQL)
rs.movenext
loop

Conn.Close
Set Conn = Nothing
%>

Jeg må bukke og skrabe :-)

Det var bare perfekt.

10000000 Tak for hjælpen, svar venligst

svar :)