Opdatering af celler + posting af '-tegnet

Replace(Request.Form("feltnavn"), "'", "''")

//>Rune

Fx.

      strSQL = "Update indhold set"
        strSQL = strSQL & "tekst= '" & Replace(Request.Form("1"), "'", "''") & "', "
        strSQL = strSQL & "tid= '" & Response.Write(now()) & "'"
        strSQL = strSQL & "ip= '" & (IP) & "'"
        strSQL = strSQL & " Where id = '" & Response.Write("id")
       
        conn.execute(strSQL)

//>Rune

strSQL = strSQL & "tekst= '" & Request.Form("1") & "', "

skal være:

strSQL = strSQL & "tekst= '" & Replace(Request.Form("1"),"'","'") & "', "

for så vil ' tegnet også optræde korrekt, når man skriver dataene ud...

therealyoda> Øhh, det vil det oxo ellers!

//>Rune

for mig at se erstatter du et ' med to '

mig bekendt vil det så ikke blive vist ?

Tror vidst lige du skla prøve det af, Access konvetere selv om!

//>Rune

hmm havde ikke lige set det var access.. er selv vandt til mysql .. men nok om det..

Det lyder altsammen vældig fint, men jeg tror der er en fejl i min kode, da den viser fejl. I får lige sourcecode på mine 2 filer.

fil1.asp :

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

    strSQL = "Select  * from indhold where id = " & Request.Querystring("id")
    Set rs = Conn.Execute(strSQL)
   
    Response.Write "<form method=post action='fil2.asp?id=" & rs("id") & "'>"
    Response.Write "" & rs("ip") & "<br><br>"
    Response.write "<br> <textarea name='1' cols='60'     rows='10'>""" & rs("text") & """</textarea><br>"
    Response.write "<input type=submit size='19' value=opdater></form>"
   
    Conn.Close
    Set Conn = Nothing
%>

fil2.asp :

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

    strSQL = "Select  * from indhold where id = " & Request.Querystring("id")
    Set rs = Conn.Execute(strSQL)


        strSQL = "Update indhold set"
        strSQL = strSQL & "tekst= '" & Replace(Request.Form("1"), "'", "''") & "', "
        strSQL = strSQL & "tid= '" & Response.Write(now()) & "'"
        strSQL = strSQL & "ip= '" & (IP) & "'"
        strSQL = strSQL & " Where id = '" & Response.Write("id")
       
        conn.execute(strSQL)

       
        conn.execute(strSQL)

        Conn.Close
        Set Conn = Nothing
        response.redirect "oversigt.asp"


Umiddelbart kan jeg ikke se hvad der er galt.

hvilken fejl viser den ?

evt link til send

link: http://frip.dk/miwu/beta/edit.asp?id=34

strSQL = strSQL & " Where id = '" & Response.Write("id")

skal rettes til :

strSQL = strSQL & " Where id = '" & id

har lige rettet med lader ikke til at virke

prøv at skriv en response.write(strSQL) før conn.execute(strSQL)

Hvad mener du? (jeg er har ikke programmeret i over et halvt år.. så jeg er ikke helt frisk endnu ;) )

strSQL = strSQL & " Where id = '" & Response.Write("id")
  response.write (strSQL)   
        conn.execute(strSQL)

virker stadig ikke. Nogen der har et helt andet alternativ for mig? Altså en anden måde at gøre det på? Lader vist til at min måde er ret så skod :/

Det der var planen med response.write var at se dit sql kald..

Update indhold settekst= '""', tid= ''ip= '80.160.191.62' Where id = '

og der er jo bestemt noget galt..

ret din kode til :

strSQL = "Update indhold set"
        strSQL = strSQL & " tekst= '" & Replace(Request.Form("1"), "'", "&#39;") & "', "
        strSQL = strSQL & " tid= '" & now() & "', "
        strSQL = strSQL & " ip= '" & IP & "', "
        strSQL = strSQL & " Where id = '" & id

så skulle det meget gerne virke..

skidtet virker stadig ikke - tjek evt. link

ok, her får I lige hvordan fil2.asp ser ud. Måske er det noget lort jeg selv har lavet?

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

    strSQL = "Select  * from indhold where id = " & Request.Querystring("id")
    Set rs = Conn.Execute(strSQL)


        strSQL = "Update indhold set"
        strSQL = strSQL & " tekst= '" & Replace(Request.Form("1"), "'", "&#39;") & "', "
        strSQL = strSQL & " tid= '" & now() & "', "
        strSQL = strSQL & " ip= '" & IP & "', "
        strSQL = strSQL & " Where id = '" & id
       
        conn.execute(strSQL)

        Conn.Close
        Set Conn = Nothing
        response.redirect "oversigt.asp"

strSQL = strSQL & " Where id = '" & id

du mangler lige at trykke enter efter denne linje.. den tror denne og næste linje er den samme linje.. det skal detjo ik være

dvs der bare skal stå:

ok, her får I lige hvordan fil2.asp ser ud. Måske er det noget lort jeg selv har lavet?

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

    strSQL = "Select  * from indhold where id = " & Request.Querystring("id")
    Set rs = Conn.Execute(strSQL)


        strSQL = "Update indhold set"
        strSQL = strSQL & " tekst= '" & Replace(Request.Form("1"), "'", "&#39;") & "', "
        strSQL = strSQL & " tid= '" & now() & "', "
        strSQL = strSQL & " ip= '" & IP & "', "
        strSQL = strSQL & " Where id = '" & id
       

        conn.execute(strSQL)

        Conn.Close
        Set Conn = Nothing
        response.redirect "oversigt.asp"


?? For det virker nemlig stadig ikke.. fuck hvor er det her asp pis forvirrende

Har også lige tjekket jeres svar angående '-tegnet. Det virker skam heller ikke :/

hov, det virker sq alligevel, sry

Jeg har lige ændret lidt på fil2.asp. Ændringen er at fil1.asp har fået sig en tekstboks med id nr i. fil2.asp kommer så til at hente den, men det virker stadig ikke. Den siger der er problemer med "conn.execute(strSQL)"

således ser den ud(fil2.asp):

    if session.contents("login") <> 1 then
        response.redirect "../admin.asp?login=nej"
    end if

    Dim IP
    IP = Request.Servervariables("REMOTE_ADDR")

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


        strSQL = "Update indhold set "
        strSQL = strSQL & "navn= '" & Replace(Request.Form("navn"), "'", "''") & "', "
        strSQL = strSQL & "text= '" & Replace(Request.Form("tekst"), "'", "''") & "', "
        strSQL = strSQL & "ip= '" & (IP) & "'"
        strSQL = strSQL & " Where id = " & Request.Form("postid")
   
    conn.execute(strSQL)

    Conn.Close
    Set Conn = Nothing
    response.redirect "oversigt.asp"

hov.. jeg har selvføleglig lavet den ændren som "therealyoda" forslog med enter før conn.execute osv.

du har dog stadig ikke accepteret mit svar.

tjaeh.. mit lort virker dog stadig ikke, men jeg opgir sq.

hjælper gerne.. du har da lige haft det til at virke ?

nej.. jeg fik kun delen med at tilføje '-tegnet til at virke. Den gider dog stadig ikke opdaterer efter jeg har gjort som du har sagt. I øjeblikket ser min sourcecode således ud ^ ^

er du sikker på at:  strSQL = strSQL & " Where id = " & Request.Form("postid")
ikke skal være :  strSQL = strSQL & " Where id = " & Request.querystring("id")

ellers skriv lige til mig på icq:17571515 eller msn: therealyoda666@hotmail.com

nej, fordi jeg har gjort det så smart at den i fil1.asp tager id'et som er printet ud på et felt.. den hedder så postid. Men det var åbenbart ikke så smart som regnet, da skidtet rent faktisk viste sig ikke at virke alligevel

du har glemt at lave feltet på din edit.asp

eller også har du glemt at uploade filen..

men lad os tage den over msn eller icq..

hmm... ja, skal vist lige uploade nye filer.. det sker nu