---

En bruger har en selectbox med multiple choice, således at man i et felt kan
vælge x antal brancher, når man vil oprette et nyt emne. Når det nye emne
skal indsættes i databasen skulle den så gerne indsætte en post med emnet
for hver af de brancher man har valgt i multiple choices boxen. Har man
f.eks. valgt 3 brancher, skulle den gerne oprette 3 poster. Kan nogen hjælpe
med hvordan jeg får den løst?

---

"Belial"
> En bruger har en selectbox med multiple choice, således at man i et felt
kan
> vælge x antal brancher, når man vil oprette et nyt emne. Når det nye emne
> skal indsættes i databasen skulle den så gerne indsætte en post med emnet
> for hver af de brancher man har valgt i multiple choices boxen. Har man
> f.eks. valgt 3 brancher, skulle den gerne oprette 3 poster. Kan nogen
hjælpe
> med hvordan jeg får den løst?

Fra en selectbox med multiple choice vi du få en kommasepareret streng,
den kan du lægge i et array og så kan du gennemløbe arrayet og tilføje
en post for hvert ting i arrayet.

arrBranche = request.form("cboBranche")
response.write arrBranche & "<br>"
' Læg svaret i et array
arrBranche = split(arrBranche ,",")
' Læs fra array med en løkke
for ix = 0 to ubound(arrBranche)
' Her til føjer du en ny post
rst.addnew
......... osv ........

next

--
Med venlig hilsen
Tom Jensen

Læs mere om databaser og asp her:
http://www.FFSoft.dk

---

> Fra en selectbox med multiple choice vi du få en kommasepareret streng,
> den kan du lægge i et array og så kan du gennemløbe arrayet og tilføje
> en post for hvert ting i arrayet.
>
> arrBranche = request.form("cboBranche")
> response.write arrBranche & "<br>"
> ' Læg svaret i et array
> arrBranche = split(arrBranche ,",")
> ' Læs fra array med en løkke
> for ix = 0 to ubound(arrBranche)
> ' Her til føjer du en ny post
> rst.addnew
> ........ osv ........
>
> next

Tak for svaret. Jeg kan dog ikke rigtigt få det til at virke, formentlig
fordi jeg aldrig har brugt den metode til at indsætte poster i en tabel. jeg
har forsøgt mig med:

---------
arrBranche = request.form("erhverv_opret")
response.write arrBranche & "<br>"
' Læg svaret i et array
arrBranche = split(arrBranche ,",")
' Læs fra array med en løkke
for ix = 0 to ubound(arrBranche)
' Her til føjer du en ny post
objRS.addnew


SQL = "INSERT INTO erhvervsregister( branche, virksomhed, adresse,
tlf, fax, url, email, kommentar_dk, kommentar_de, kommentar_gb) VALUES('"
SQL = SQL & Request.Form("branche") & "', '"
SQL = SQL & Replace(Request.Form("virksomhed"),"'","''") & "', '"
SQL = SQL & Replace(Request.Form("adresse"),"'","''") & "', "
SQL = SQL & Request.Form("tlf") & ", "
SQL = SQL & Request.Form("fax") & ", '"
SQL = SQL & Replace(Request.Form("url"),"'","''") & "', '"
SQL = SQL & Replace(Request.Form("email"),"'","''") & "', '"
SQL = SQL & Replace(Request.Form("kommentar_dk"),"'","''") & "',
'"
SQL = SQL & Replace(Request.Form("kommentar_de"),"'","''") & "',
'"
SQL = SQL & Replace(Request.Form("kommentar_gb"),"'","''") & "')"

Connect.Execute(sql)

next
---------

men der bliver ikke indsat noget i databasen. Kan du give mig et hint i den
rigtige retning?

---

"Belial"
> SQL = "INSERT INTO erhvervsregister( branche, virksomhed, adresse,
> tlf, fax, url, email, kommentar_dk, kommentar_de, kommentar_gb) VALUES('"
> SQL = SQL & Request.Form("branche") & "', '"
> SQL = SQL & Replace(Request.Form("virksomhed"),"'","''") & "',
'"
> SQL = SQL & Replace(Request.Form("adresse"),"'","''") & "', "
> SQL = SQL & Request.Form("tlf") & ", "
> SQL = SQL & Request.Form("fax") & ", '"
> SQL = SQL & Replace(Request.Form("url"),"'","''") & "', '"
> SQL = SQL & Replace(Request.Form("email"),"'","''") & "', '"
> SQL = SQL & Replace(Request.Form("kommentar_dk"),"'","''") & "',
> '"
> SQL = SQL & Replace(Request.Form("kommentar_de"),"'","''") & "',
> '"
> SQL = SQL & Replace(Request.Form("kommentar_gb"),"'","''") &
"')"
>
> Connect.Execute(sql)
>
> next
> ---------
>
> men der bliver ikke indsat noget i databasen. Kan du give mig et hint i
den
> rigtige retning?
>

Først: Check dine variabler

strBranche = Request.Form("branche")
response.write strBranche & "<br>"
strVirksomhed = Request.Form("virksomhed")
response.write strVirksomhed & "<br>"
osv...

Du kan altid ukommentere response.write sætningerne
når du har set det hele køre. Er der noges speciel grund til
at du så flittigt bruger replace() ??

Inden du udfører din SQL sætning så prøv at udskrive den
response.write SQL & "<br>"

--
Med venlig hilsen
Tom Jensen

Læs mere om databaser og asp her:
http://www.FFSoft.dk