de textarea som har et nummer bag sig, er oprettet i tabellen [phrasetekster] og nummeret er deres ID i tabellen.
De som ikke har et tal bag sig, de er ikke oprettet i [phrasetekster]
Dvs, når jeg submitter formen, skal jeg have lavet en løkke der tager mine 4 textarea og skal gøre følgende:
1. er der ID efter phrase_, opdater teksten i [phrasetekster] 2. er der ikke id efter phrase_ , tjek om der er skrevet tekst, hvis der er det, så gem det i ny post i [phrasetekster] hvis ingen tekst, gør intet.
Cybersikkerhed, realtidsdata og robuste it-systemer er blevet fundamentet for moderne forsvar.
Slettet bruger
07. juni 2007 - 19:38#1
ja da her har du løsningen til en access database og så går vi ud fra at det er alle tingene i din formular som skal i betragtning...:
<html> <body> <% if (request.form<>"" and isnull(request.form)=False) then
tekst = request.form strT = split(tekst,"&") for a=0 to ubound(strT) vaerdi = (split(strT(a),"=")(1)) if (vaerdi<>"" and isnull(vaerdi)=False) then Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\DinDatabase.mdb" id = (split(strT(a),"_")(1)) if isnumeric(id) then conn.execute("update phrasetekster set phrasetekster='" & vaerdi & "' where id='" & id & "'") else conn.execute("insert into phrasetekster (phrasetekster) values ('" & vaerdi & "')") end if conn.close set conn=nothing end if next end if %> <form action="<%=request.servervariables("script_name")%>" method="post"> <textarea name="phrase_3"></textarea> <textarea name="phrase_4"></textarea> <textarea name="phrase_"></textarea> <textarea name="phrase_"></textarea> <input type="submit" value="submit"> </form> </body> </html>
Du får lige hele koden, så er det måske nemmere at gennemskue for dig..
<table cellpadding="0" cellspacing="0"> <% Set rsSprog= Conn.Execute("select * from sprog order by tekst") Do until rsSprog.eof
Set rsTekster= Conn.Execute("select * from phrasetekster where phrase = " & rsPhrase("id") & " and sprogkode = " & rsSprog("sprogkode") & "") if rsTekster.eof or rsTekster.bof then Tekst = "" phrasetekstid = "" else Tekst = rsTekster("tekst") phrasetekstid = rsTekster("id") end if
- okay... det var en fejl jeg fik lavet her med id'en den er rettet nu og så skal det så således ud:
<html> <body> <% if (request.form<>"" and isnull(request.form)=False) then
tekst = request.form strT = split(tekst,"&") for a=0 to ubound(strT) vaerdi = (split(strT(a),"=")(1)) if (vaerdi<>"" and isnull(vaerdi)=False) then Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\DinDatabase.mdb" id = (split(strT(a),"_")(1)) id = (split(id,"=")(0)) if isnumeric(id) then conn.execute("update phrasetekster set phrasetekster='" & vaerdi & "' where id='" & id & "'") else conn.execute("insert into phrasetekster (phrasetekster) values ('" & vaerdi & "')") end if conn.close set conn=nothing end if next end if %> <form action="<%=request.servervariables("script_name")%>" method="post"> <textarea name="phrase_3"></textarea> <textarea name="phrase_4"></textarea> <textarea name="phrase_"></textarea> <textarea name="phrase_"></textarea> <input type="submit" value="submit"> </form> </body> </html>
Jeg har været nød til at lave lidt ændringer i dit script, da tabelnavne mv. ikke var korrekte, og databasen er åbnet et andet sted..
Så lige nu ser det sådan her ud.
if (request.form <> "" and isnull(request.form)=False) then
tekst = request.form strT = split(tekst,"&") for a=0 to ubound(strT) vaerdi = (split(strT(a),"=")(1)) if (vaerdi<>"" and isnull(vaerdi)=False) then strid = (split(strT(a),"_")(1)) strid = (split(strid,"=")(0)) if isnumeric(id) then Conn.Execute("update PhraseTekster set tekst='" & vaerdi & "' where id=" & strid & "") else Conn.Execute("insert into phrasetekster (tekst) values ('" & vaerdi & "')") end if end if next
response.redirect "./?S=Phrase&id=" & id end if
Den opdaterer fint eksisterende felter - men taster jeg tekst ind i felt som skal oprettes, får jeg fejlen:
Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "id=".
Vil nødig presse mig på, men kunne du hjælpe mig lidt videre..?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
