---

Hej NG
Jeg skal have indlæst nogle data fra en DB til felter i en form, som jeg så
skal rette, og så opdatere DB igen
Har prøvet med:

Response.Write "FrontPage_Form1.Dato=" & RS("Dato")

Det funker ikke .

Please help...
Bjarne

---

[On fr, 28 maj 2004 09:42:11 GMT, "bsn" wrote (link:
<news:40b70971$0$232$edfadb0f@dread12.news.tele.dk>)]:

> Hej NG
> Jeg skal have indlæst nogle data fra en DB til felter i en form,
> som jeg så skal rette, og så opdatere DB igen
> Har prøvet med:
>
> Response.Write "FrontPage_Form1.Dato=" & RS("Dato")
>
> Det funker ikke .
>
> Please help...
> Bjarne
>
>
>

ASP-bibelen (i hvert fald for mig): www.html.dk/tutorials/ASP, eller
mere præcist:
http://www.html.dk/tutorials/asp/lektion22.asp


--
Mikoangelo - webmaster of
http://harrypotter.lk-data.net
Scrambled email (ROT-13):
uneelcbggre [on] yx [hyphen] qngn [spot] qx

---

"Mikoangelo" <uneelcbggre@yx-qngn.qx> skrev i en meddelelse
news:Xns94F786273ABD2uneelcbggreyxqngnqx@194.255.237.193...
> [On fr, 28 maj 2004 09:42:11 GMT, "bsn" wrote (link:
> <news:40b70971$0$232$edfadb0f@dread12.news.tele.dk>)]:
>
> > Hej NG
> > Jeg skal have indlæst nogle data fra en DB til felter i en form,
> > som jeg så skal rette, og så opdatere DB igen
> > Har prøvet med:
> >
> > Response.Write "FrontPage_Form1.Dato=" & RS("Dato")
> >
> > Det funker ikke .
> >
> > Please help...
> > Bjarne
> >
> >
> >
>
> ASP-bibelen (i hvert fald for mig): www.html.dk/tutorials/ASP, eller
> mere præcist:
> http://www.html.dk/tutorials/asp/lektion22.asp
Dette link er til opdatering af database. Det fungerer fint her ved mig...
Men...
Jeg skal bruge koden til indlæsning af data til en form med 6 felter.
Bjarne

---

bsn skrev:

> Dette link er til opdatering af database. Det fungerer fint
> her ved mig... Men...
> Jeg skal bruge koden til indlæsning af data til en form med 6
> felter.

Der er to skridt der skal udføres.

1) Data skal indlæses fra databasen. Det gøres som beskrevet her:
<http://html.dk/tutorials/asp/lektion19.asp>

2) Data skal placeres i formen. For normale inputfelter gøres det
ved at skrive noget i value-parameteren. Det kan fx se sådan ud:

<input type="text" name="fornavn" value="<%= rs("fornavn") %>">
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev
> 2) Data skal placeres i formen. For normale inputfelter gøres det
> ved at skrive noget i value-parameteren. Det kan fx se sådan ud:
>
> <input type="text" name="fornavn" value="<%= rs("fornavn") %>">

Det virker delvist...

Jeg har en listbox, som ikke vil modtage data:
<p align="left"><b>Arrangement</b><br>
&nbsp;<textarea rows="6" name="Arr" value="<%=RS("Arrangement")%>"
cols="31"></textarea></p>

Og så har jeg 5 Checkboxs, som heller ikke rigtig svinger:
<input type="checkbox" name="C1" value="<%=IF RS("Foreninger")="H"
THEN "ON" END IF %>">Højby
Fejlmelding:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/3kreds/aktivitetskalender1/editupdDB.asp, line 114, column 15
Response.Write(IF RS("Foreninger")="K" THEN "ON" END IF)
--------------^

Forstår ikke at Response.write er med, da det ikke er kodet ???
Bjarne

---

bsn skrev:

> Det virker delvist...
>
> Jeg har en listbox, som ikke vil modtage data:
> <p align="left"><b>Arrangement</b><br>
> &nbsp;<textarea rows="6" name="Arr"
> value="<%=RS("Arrangement")%>"

Textarea har ikke nogen value-parameter - her skal indholdet
skrives "inde" i elementet:

<textarea ....><%= rs("arrangement") %></textarea>



> Og så har jeg 5 Checkboxs, som heller ikke rigtig svinger:
> <input type="checkbox" name="C1" value="<%=IF
> RS("Foreninger")="H"
> THEN "ON" END IF %>">

Lidt samme problem. Tjekbokse har godt nok en value-parameter, men
den afgør alene hvad der sendes med formen hvis feltet er
afkrydset. Hvis du vil sætte den markeret (checked) skal du sætte
egenskaben checked på elementet:

<input type="checkbox" name="C1" <% IF RS("Foreninger")="H" Then
%>checked<% End If %>>


> Fejlmelding:
> Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
> Der er en syntaksfejl
> /3kreds/aktivitetskalender1/editupdDB.asp, line 114, column 15
> Response.Write(IF RS("Foreninger")="K" THEN "ON" END IF)

<%= svarer til response.write. Du kan ikke udføre kommandoer (fx en
if-sætning) i en response.write-kommando. Fjern lighedstegnet.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev
>
> <textarea ....><%= rs("arrangement") %></textarea>
>
> <input type="checkbox" name="C1" <% IF RS("Foreninger")="H" Then
> %>checked<% End If %>>
>
> <%= svarer til response.write. Du kan ikke udføre kommandoer (fx en
> if-sætning) i en response.write-kommando. Fjern lighedstegnet

Det virker - mange tak for det...

Et tillægsspørgsmål:

Nu vil jeg så opdatere det jeg har indlæst igen, men får en fejl. Her er min
kode:
Sql = "INSERT INTO tblValgaktivitet (Dato, Tid, Sted, Arrangement,
Foreninger) WHERE ID=" & Request.Form.Item("ID") & _
" VALUES ('" & (Request.Form.Item("Dato")) & "', '" &
(Request.Form.Item("Tid")) & "', '" & (Request.Form.Item("Sted")) & "', '" &
(Request.Form.Item("Arr")) & "', '" & Forening & "')"
Conn.Execute(Sql) <----- Linie 47

og her fejlmelding:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT
INTO-sætningen.
/3kreds/aktivitetskalender1/editupdDB.asp, line 47

Håber du kan hjælpe med det sidste nyk...
Bjarne

---

> Det virker - mange tak for det...
>
> Et tillægsspørgsmål:
>
> Nu vil jeg så opdatere det jeg har indlæst igen, men får en fejl. Her er
min
> kode:
> Sql = "INSERT INTO tblValgaktivitet (Dato, Tid, Sted, Arrangement,
> Foreninger) WHERE ID=" & Request.Form.Item("ID") & _
> " VALUES ('" & (Request.Form.Item("Dato")) & "', '" &
> (Request.Form.Item("Tid")) & "', '" & (Request.Form.Item("Sted")) & "', '"
&
> (Request.Form.Item("Arr")) & "', '" & Forening & "')"
> Conn.Execute(Sql) <----- Linie 47
>
> og her fejlmelding:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
> [Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT
> INTO-sætningen.
> /3kreds/aktivitetskalender1/editupdDB.asp, line 47
>
> Håber du kan hjælpe med det sidste nyk...
> Bjarne

Prøv at udskrive din SQL-streng, og se, om den viser det, du havde tænkt
dig?
(læs mere på http://www.asp-faq.dk/article/?id=41)

Denne vil dog indsætte en ny post (dog ikke med WHERE ID=... osv), og ikke
opdatere posten.
Det skal i midlertid gøres som på denne side:
http://www.html.dk/tutorials/asp/lektion22.asp

MVH Jonas (aka Juke)

---

"Jonas Schmeltz Aaberg" <julledyret@hotmail.com> skrev i en meddelelse
news:40b7aa93$0$3050$14726298@news.sunsite.dk...
> > Det virker - mange tak for det...
> >
> > Et tillægsspørgsmål:
> >
> > Nu vil jeg så opdatere det jeg har indlæst igen, men får en fejl. Her er
> min
> > kode:
> > Sql = "INSERT INTO tblValgaktivitet (Dato, Tid, Sted, Arrangement,
> > Foreninger) WHERE ID=" & Request.Form.Item("ID") & _
> > " VALUES ('" & (Request.Form.Item("Dato")) & "', '" &
> > (Request.Form.Item("Tid")) & "', '" & (Request.Form.Item("Sted")) & "',
'"
> &
> > (Request.Form.Item("Arr")) & "', '" & Forening & "')"
> > Conn.Execute(Sql) <----- Linie 47
> >
> > og her fejlmelding:
> > Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
> > [Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT
> > INTO-sætningen.
> > /3kreds/aktivitetskalender1/editupdDB.asp, line 47
> >
> > Håber du kan hjælpe med det sidste nyk...
> > Bjarne
>
> Prøv at udskrive din SQL-streng, og se, om den viser det, du havde tænkt
> dig?
> (læs mere på http://www.asp-faq.dk/article/?id=41)
>
> Denne vil dog indsætte en ny post (dog ikke med WHERE ID=... osv), og ikke
> opdatere posten.
> Det skal i midlertid gøres som på denne side:
> http://www.html.dk/tutorials/asp/lektion22.asp
Tak for det - jeg havde stirret mig blind på INSERT , men det driller
stadig...

Har rettet update siden til, men jeg kan ikke få overleveret variablen med
posten jeg er ved at opdatere...
Jeg bruger samme variabel til at finde updatePosten, som edit DBpost er
fundet med (Request.Form.Item("ID"))


kode:
<form action="editupdDB.asp" <%"?" & "id=" & <%Request.Form.Item("ID")%>
method="post" <--------------Linie 96
name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)"
language="JavaScript">
<div align="center">

giver denne fejl:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/3kreds/aktivitetskalender1/editgetDB.asp, line 96
"?" & "id=" & <%Request.Form.Item("ID")

Bjarne

---

"bsn" <bsn_NoSpam_@oncable.dk> skrev
> kode:
> <form action="editupdDB.asp" <%"?" & "id=" & <%Request.Form.Item("ID")%>
> method="post" <--------------Linie 96
> name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)"
> language="JavaScript">
> <div align="center">
>
> giver denne fejl:
> Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
> En sætning var ventet
> /3kreds/aktivitetskalender1/editgetDB.asp, line 96
> "?" & "id=" & <%Request.Form.Item("ID")
Har fået variablen overført - det var jo Request.Querystring, som skulle
bruges...
Nyt problem:

Min Kode:
Sql = "UPDATE tblValgaktivitet (Dato, Tid, Sted, Arrangement, Foreninger)
WHERE ID=" & Request.Querystring("id") & _
" VALUES ('" & (Request.Form.Item("Dato")) & "', '" &
(Request.Form.Item("Tid")) & "', '" & (Request.Form.Item("Sted")) & "', '" &
(Request.Form.Item("Arr")) & "', '" & Forening & "')"
Conn.Execute(Sql)

Min Sql:
UPDATE tblValgaktivitet (Dato, Tid, Sted, Arrangement, Foreninger) WHERE
ID=15 VALUES ('10-08-2004', '19:00', 'Rugårdsvej 91', 'fællesbestyrelsesmøde
i Odense', 'K')

Fejlmelding:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i
UPDATE-sætningen.

Bjarne

---

"bsn" <bsn_NoSpam_@oncable.dk> skrev
Så svinger det hele..
tak for hjælpen til jer begge...
Bjarne