Ret i DB #2

ok hvad hedder den række du vil opdatere og hvad hedder den parameter du ønsker at opdatere med?

Gør sådan her istedet :
<%
\' Chekker om brugeren har en session.
\' Hvis ikke så smides han af
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"login.asp\")
end if
%>
<%
\'--------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/all.mdb\") & \";UID=admin;PWD=;\"

If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strAf = Trim(Request.Form(\"Af\"))
    strEmail = Trim(Request.Form(\"Email\"))
    strKommentar = Request.Form(\"Kommentar\")
    SQL=\"UPDATE news SET Overskrift = \'\" & strNavn & \"\', Kommentar = \'\" & strKommentar & \"\', Af = \'\" & strAf & \"\', Email = \'\" & strEmail & \" Where ID = \" & Request.QueryString(\"ID\")
    tempConn.execute(SQL)
    Response.Redirect \"u-funk.asp\"
End If
%>

Hov prøver igen :
<%
\' Chekker om brugeren har en session.
\' Hvis ikke så smides han af
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"login.asp\")
end if
%>
<%
\'--------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/all.mdb\") & \";UID=admin;PWD=;\"

If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strAf = Trim(Request.Form(\"Af\"))
    strEmail = Trim(Request.Form(\"Email\"))
    strKommentar = Request.Form(\"Kommentar\")
    SQL=\"UPDATE news SET Overskrift = \'\" & strNavn & \"\', Kommentar = \'\" & strKommentar & \"\', Af = \'\" & strAf & \"\', Email = \'\" & strEmail & \"\' Where ID = \" & Request.QueryString(\"ID\")
    tempConn.execute(SQL)
    Response.Redirect \"u-funk.asp\"
End If
%>

Ja så behøver du faktisk heller ikke linierne :
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Databasen hedder db/all.mdb
Tabellen hedder news

Jeg vil kunne opdatere felterne Navn (også kaldt Overskrift), Af, Email og Kommentar.

Virker det jeg har ikke ?

StrSQL=”UPDATE news SET Overskrift=’” & strNavn & “’, osv. WHERE ID=\" & Request.QueryString(\"ID\")
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic

Kasseper >> Ingen af dine svar virkede !??

Det er faktisk det kasseper også skriver!

Så kan du snuppe den linie der hedder SQL i min og sætte den ind i tulle\'s

StrSQL=\"UPDATE news SET Overskrift = \'\" & strNavn & \"\', Kommentar = \'\" & strKommentar & \"\', Af = \'\" & strAf & \"\', Email = \'\" & strEmail & \"\' Where ID = \" & Request.QueryString(\"ID\")

rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic

Jeg kan ikke få nogle af dem til at virke !?

tulle:> rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic  skal ikke bruges ved UPDATE, INSERT, ALTER, DROP & DELETE statements.

Der er det nok med: tempConn.Execute strSQL

Får du fejl eller opdatere den bare ikke posten.
Bemærk at dette er kun hvis du skal opdatere en eksisterende post, ellers skal du bruge en anden sql sætning....

Jeg har erfaring med at navngivningen nogen gange kan give konfikter med det programmeringssprog man arbejder i. Prøv evt. om du kan få sætningen til at virke direkte på din database. Du kan også forsøge at hardcode nogle værdier ind i dit program og se om det virker.

tdaugaard>> OK tak for oplysningen:)

Den opdaterer ikke, og jeg får følgende fejl : HTTP 500 - Intern serverfejl

Jeg kører siden på Brinkster.com ......

Der er ikke nogen navnekonventions overlap i din navngivning, Der er ikke ÆØ eller Å, eller nogen SQL ord i dine naven, så det kan ikke være det. Måske tror jeg mere det er en kommunnikations fejl i forbindelsen til din database.....

Hvad kan jeg gøre ved det ?

Prøv evt. at sætte flg. ind i stedet :

<%
\' Chekker om brugeren har en session.
\' Hvis ikke så smides han af
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"login.asp\")
end if
%>
<%
\'--------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/all.mdb\") & \";UID=admin;PWD=;\"

If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strAf = Trim(Request.Form(\"Af\"))
    strEmail = Trim(Request.Form(\"Email\"))
    strKommentar = Request.Form(\"Kommentar\")
    SQL=\"INSERT INTO news (Overskrift, Kommentar, Af, Email) VALUES (\'\" & strNavn & \"\', \'\" & strKommentar & \"\', \'\" & strAf & \"\', \'\" & strEmail & \"\') Where ID = \" & Request.QueryString(\"ID\")
    tempConn.execute(SQL)
    Response.Redirect \"u-funk.asp\"
End If
%>



Denne prøver at lave en ny post.
Hvis det virker ved vi at du godt kan redigere i basen fra din side......
Hvad melder den tilbage ?

Jeg vil lige bemærke at navnekonventions overlap gælder også for det scriptsprog der anvendes og ikke kun for æøå eller sql ord!

Jamen tulle, hvad tror du han anvender her ???? Kunne det måske være VBScript....?????
Når der ikke står <% @Language=\"ETELLERANDETSPROG\" .....%>
Så er det default VBScript...

Jeg kan godt lave en ny post, det har jeg allerede en funktion til !

kasseper >> Det siger du ikk\'!!

Kan du prøve at gøre det med den kode jeg skrev......!

kasseper >> Tror du jeg er totalt dum?

tulle >> Jo det siger jeg, for det betyder hermed at der ikke er nogen navnekonventions overlap...!

tulle >> Om du er dum ? Næhhh, men jeg pointere bare at der ikke er nogen overlap.

Jeg prøver med det samme !

Jeg får stadig den samme fejl !?

Hvordan ser den rutine du har til at oprette en post ud ?

i hvilken linie får du iøvrigt fejl.....

jeg får bare \"HTTP 500 - Intern Serverfejl\"

OK. Må vi se koden til at oprette en post ?

gataway>> Jeg melder mig ud af det her. Om du kan bruge noget af det jeg har svarert ved jeg ikke, jeg er også ligeglad! Jeg er blevet træt af kloge-åge

tulle >> Det er bare OK ! Tak for hjælpen alligevel !

Shit, tulle-tudesisse, bliver let sur......[pssst....(visker)--PMS]

kasseper >> Selvfølgelig ! Jeg kan zippe ALT, og ligge det op på nettet, det er måske nemmere ?

KLART....

jeg laver lige en lille readme, så du kan finde rundt :-)

Jeg

og der gik strømmen

nå, nu har jeg lagt den på nettet !
den ligger på http://www15.brinkster.com/crazycounter/crazycounters.zip

Held og lykke !

Nej, strømmen gik ikke, var bare lidt tom :-)

kasseper >> Hvis du vil høre mig om noget, bliver du desværre nødt til at vente lidt...
Jeg skal ud med aviser (lortejob)...

OK, så må det sq. kunne laves sådan her :

<%
\' Chekker om brugeren har en session.
\' Hvis ikke så smides han af
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"login.asp\")
end if
%>
<%
\'--------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db/all.mdb\") & \";UID=admin;PWD=;\"

If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strAf = Trim(Request.Form(\"Af\"))
    strEmail = Trim(Request.Form(\"Email\"))
    strKommentar = Request.Form(\"Kommentar\")
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM news WHERE ID = \" & Request.QueryString(\"ID\")
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs(\"Overskrift\") = strNavn
        rs(\"Kommentar\") = strKommentar
        rs(\"Af\") = strAf
        rs(\"Email\") = strEmail
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
    Response.Redirect \"u-funk.asp\"
End If
%>
<!-- #include file=\"include/header.inc\"-->
Viderestiller
<!-- #include file=\"include/footer.inc\"-->

det var sq en lang rute du har.....;)

Nej, den er ikke så lang, mne skulle også noget bagefter !

Jeg prøvede den sidste, men lige lidt hjalp det !??

Hvis du/I har ICQ, vil det næsten altid være muligt at på fat i mig på #95741008 ....

Stadig samme fejl ?????

Ja, stadig den samme fejl !

Så må jeg jo bare prøve videre !