Syntax error

Du skal replace ' med '':
Replace(SQL, "'", "''")
Hvor SQL er den streng du bygger din SQL-sætning op i.

<%
If Trim(Request("ny")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database.mdb")
Conn.Open

jeg har ikke andet der

jo og så kommer der dette

if request("ny") = ""

er det den jeg skal ændre ?

Nej, det er den streng som du formodentligt bruger som parameter til Execute. Eks. en linie som Conn.Execute(SQL).

sådan en bruger jeg ikke i dette script.... scriptet skal sådan bare sætte nogen indtastede oplysninger ind i min database... der behøves den nemlig ikke. Kan man ikke gøre noget andet smart?

Hvordan indsætter du i din database?

Hvis du bruger SQL INSERT så skal du udskifte et ' med to '' :

ny = replace(Trim(Request("ny")), "'", "''")
SQL = "INSERT INTO tabel (ny_kol) VALUES ('" & ny & "')"
Conn.Execute (SQL)

----
Alternativt hvis du åbner et recordset med adgang til databasen:

rs.Open "SELECT * FROM tabel WHERE ID=0", Conn, 1, 3
rs.Addnew
rs("ny_kol") = Trim(request("ny"))
rs.Update
rs.Close

jeg bruger denne linie

Conn.Execute "INSERT INTO ny (kommentar, blah, blah.....osv)

Ok, så skal du bruger replace for at lave en ' om til to ''. En ' i SQL er start og slut på en streng i stil med " i VBScript. Hvis man vil gemme en ' i teksten eks. Ole's bil så skal man så inden man gemmer laver en ' om til to '' med Replace.

Så du kan stadig havde dette

If Trim(Request("ny")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database.mdb")
Conn.Open

'men der hvor du laver din SQL skal du så ændre list så dette kommer med:
ny = replace(Trim(Request("ny")), "'", "''")

Conn.Execute "INSERT INTO ny (kommentar, blah, blah.....osv) VALUE ('" & ny & "', ....osv..)"

her får du hele du lige resten...

<%
If Trim(Request("ny")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database.mdb")
Conn.Open DSN
if request("ny") = "" OR request("ny2") ="" OR request("emne")="" OR request("emne2")="" then
response.write("ALT SKAL UDFYLDES!")
else
Conn.Execute "INSERT INTO ny (ny,email,ny2,emne,emne2,ka,ht,tilf,kl,dato,ip) VALUES ('" & Request("ny") & "','" & Request("email") & "','" & Request("ny2") & "','" & Request("emne") & "','" & Request("emne2") & "','" & Request("ka") & "','0','0','" & time() & "','" & date() & "','" & Request("REMOTE_ADDR") & "')"

Conn.Close: Set Conn = Nothing

  Response.Write "<h1>SENDT!</h1>"
%>


det er nok lidt forvirrende at se på, men hvad skal der ændres?

I stedet for request("ny"), Request("email") o.s.v. skal du bruge:
Replace(Request("ny"), "'", "''"), Replace(Request("email"), "'", "''") o.s.v.

dvs.

('" & Replace(Request("ny"), "'", "''"), Replace(Request("email"), "'", "''"),

?

jeg kan sgu ikke få det til at fungere... jeg får en syntax fejl

Conn.Execute "INSERT INTO ny (ny,email,ny2,emne,emne2,ka,ht,tilf,kl,dato,ip) VALUES ('" & Replace(Request("ny"), "'", "''") & "','" & Replace(Request("email"), "'", "''") & "','" & Request("ny2") & "','" & Request("emne") & "','" & Request("emne2") & "','" & Request("ka") & "','0','0','" & time() & "','" & date() & "','" & Request("REMOTE_ADDR") & "')"


Nu har jeg kun vist Replace på ny og email men det samme skal naturligvis gøre for hvert felt du ønsker at indsætte i.

den giver stadig en syntax fejl...

Prøv at cut'e teksten herfra og paste den ind i din ASP-kode. Koden er korrekt.

sorry... jeg må jeg overset et , eller lignende... det virker nemlig nu:=) takker!