Mulighed for at skrive tegn i forms

Når du gemmer er du nød til at replace dine ' ellers kokser det

streng = replace(request.form("formularfelt"), "'", "''")

- altså erstatter jeg en ' med 2 ''

/Goose

Jo, selvfølgelig - men det kokser aligevel, selve om jeg lave ' om til "
Jeg har ikke lige prøvet din løsning endnu... men " laver også problemer....

men når jeg få prøvet din løsning, tror du så jeg kan bruge ' og "
pga. de to tegn ville jeg gerne have mulighed for at bruge....

Du burde ikke have nogle problemer med at bruge "-tegnet, det er typisk ' (pling) der er skyld i problemer når du gemmer i databasen. Ved at erstatte 1 pling med 2 plinger burde du være ude over dette problem.

Prøv og send den kode gemmer til databasen, så checker jeg den lige.

/Goose

Her er min kode, er du evt. søde at indsætte den, hvis du har en løsning til dette?`

  <%
Dim tabel1, pw, fejl

fejl = false
tabel1 = Request.Form("tabel1")
tabel2 = Request.Form("tabel2")
tabel3 = Request.Form("tabel3")
tabel4 = Request.Form("tabel4")


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

'Tester om brugernavn findes i databasen
Set rs = Conn.execute ("SELECT * FROM person WHERE tabel1 ='" & tabel1 & "'")

If Not rs.Eof Then
    Response.Write("<p><font color=red>navnet er allerede oprettet! V&aelig;lg venligst et andet navn!</font></p>")
    fejl = true
End If

Conn.Close
Set Conn = Nothing

If tabel1 = "" Then
    Response.Write("<p><font color=red>Indtast venligst et navn!</font></p>")
    fejl = true
End if

'Opretter profil i databasen
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../../db/databasen.mdb")
Conn.Open DSN

strSQL = "INSERT INTO person (" &_
       
    "tabel1," &_
    "tabel2, " &_
    "tabel3, " &_
    "tabel4) " &_


    "values('" & tabel1 & "'," &_
    " '" & tabel2 & "'," &_
    " '" & tabel3 & "'," &_
    "'" & tabel4& "')"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

    Response.Write "<p>posten, " & tabel1 & "! er nu oprettet!</p>"
End If

If fejl = true Then
End If
%>

??

hollo! :)

Skriv et svar - de få point...