Søg
Avatar billede hemberg Forsker
30. november 2002 - 21:56 Der er 6 kommentarer og
1 løsning

Hvad er der galt med dette modtagescript

Jeg har lavet et lille modtagescript fra en form. Men værdierne bliver ikke indsat. Der bliver godt nok indsat en ny record. Men ingen data. Hvorfor.

Scriptet er hostet på brinkster.com skal jeg have indsat min adgangskode? -hvor...?

<% ' Databaseforbindelse - husk at angive sti til din database
        Set Conn =Server.CreateObject("ADODB.Connection")
                DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
                DSN = DSN & "DBQ=" & Server.MapPath("../db/subscribe.mdb")
        Conn.Open DSN
strSQL = "Insert into smagning (aargang) values('" & Request.Form("aargang") & "')"
strSQL = "Insert into smagning (Vinnavn) values('" & Request.Form("Vinnavn") & "')"
strSQL = "Insert into smagning (Vinnavn2) values('" & Request.Form("Vinnavn2") & "')"
strSQL = "Insert into smagning (Point) values('" & Request.Form("Point") & "')"
strSQL = "Insert into smagning (Smagsdato) values('" & Request.Form("Smagsdato") & "')"
strSQL = "Insert into smagning (Klassifikation) values('" & Request.Form("Klassifikation") & "')"
strSQL = "Insert into smagning (Vintype) values('" & Request.Form("Vintype") & "')"
strSQL = "Insert into smagning (Omraade) values('" & Request.Form("Omraade") & "')"
strSQL = "Insert into smagning (Land) values('" & Request.Form("Land") & "')"
strSQL = "Insert into smagning (Arrangement) values('" & Request.Form("Arrangement") & "')"
strSQL = "Insert into smagning (Farve) values('" & Request.Form("Farve") & "')"
strSQL = "Insert into smagning (Duft) values('" & Request.Form("Duft") & "')"
strSQL = "Insert into smagning (Smag) values('" & Request.Form("Smag") & "')"
strSQL = "Insert into smagning (Potentiale) values('" & Request.Form("Potentiale") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing %>
Avatar billede donslund Nybegynder
30. november 2002 - 22:06 #1
Får du nogen form for fejlmeddelelse eller kommer der bare ikke noget?
Avatar billede donslund Nybegynder
30. november 2002 - 22:08 #2
Den bør vel indsætte påtentiale, da den eneste sætning der er gældende i det øjeblik du executer er strSQL = "Insert into smagning (Potentiale) values('" & Request.Form("Potentiale") & "')"
De andre er vel blevet erstattet af hinanden efterhånden som du definerer strSQL.
Avatar billede donslund Nybegynder
30. november 2002 - 22:11 #3
strSQL = "insert into smagning (aargang, vinnavn, Vinnavn, osv, osv ...) values ('" & Request.Form("aargang") "', '" Request.Form("Vinnavn") & ... og sådan fortsætter du til den bitre ende.

Dette er vel den rigtige måde at gøre det på.

Jeg har en kode der ser således ud:

<%

if Request.Form("password") = Request.Form("pwdgen") then

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into medlemmer (fornavn, efternavn, brugernavn, password) values "
strSQL = strSQL & "('" & Request.Form("fornavn") & "', '" & Request.Form("efternavn") & "', '"
strSQL = strSQL & Request.Form("brugernavn") & "', '" & Request.Form("password") & "'); "

Response.write strSQL

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>

Og den virker fint.
Avatar billede hemberg Forsker
30. november 2002 - 23:17 #4
>donslund. Har nu gjort det efter din metode. Fik denne fejlmelding:

Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same.

/hemberg/SMAGNING/add_notat.asp, line 20

Men den passer ikke. Efter min bedste tællemetode fra folkeskolen indeholder asp'en 14 både i streng og felter.

se selv:

strSQL = "Insert into smagning (aargang, Vinnavn, Vinnavn2, Point, Smagsdato, Klassifikation, Vintype, Omraade, Land,

Arrangement, Farve, Duft, Smag, Potentiale) values('" & Request.Form("aargang") & "')"','"('" & Request.Form("Vinnavn") &

"')"','"('" & Request.Form("Vinnavn2") & "')"','"('" & Request.Form("Point") & "')"','"('" & Request.Form("Smagsdato") &

"')"','"('" & Request.Form("Klassifikation") & "')"','"('" & Request.Form("Vintype") & "')"','"('" & Request.Form("Omraade")

& "')"','"('" & Request.Form("Land") & "')"','"('" & Request.Form("Arrangement") & "')"','"('" & Request.Form("Farve") &

"')"','"('" & Request.Form("Duft") & "')"','"('" & Request.Form("Smag") & "')"','"('" & Request.Form("Potentiale") & "')"'
Avatar billede donslund Nybegynder
01. december 2002 - 10:18 #5
strSQL = "Insert into smagning (aargang, Vinnavn, Vinnavn2, Point, Smagsdato," strSQL = strSQL & "Klassifikation, Vintype, Omraade, Land, Arrangement, Farve,"
strSQL = strSQL & " Duft, Smag, Potentiale) values ('"
strSQL = strSQL & Request.Form("aargang") & "', '"
strSQL = strSQL & Request.Form("Vinnavn") & "', '"
strSQL = strSQL & Request.Form("Vinnavn2") & "', '"
strSQL = strSQL & Request.Form("Point") & "', '"
strSQL = strSQL & Request.Form("Smagsdato") & "', '"
strSQL = strSQL & Request.Form("Klassifikation") & "', '"
strSQL = strSQL & Request.Form("Vintype") & "', '"
strSQL = strSQL & Request.Form("Omraade") & "', '"
strSQL = strSQL & Request.Form("Land") & "', '"
strSQL = strSQL & Request.Form("Arrangement") & "', '"
strSQL = strSQL & Request.Form("Farve") & "', '"
strSQL = strSQL & Request.Form("Duft") & "', '"
strSQL = strSQL & Request.Form("Smag") & "', '"
strSQL = strSQL & Request.Form("Potentiale") & "'); "

Prøv lige denne smøre. Det er lidt mere overskueligt.
Avatar billede donslund Nybegynder
01. december 2002 - 10:19 #6
strSQL = "Insert into smagning (aargang, Vinnavn, Vinnavn2, Point, Smagsdato,"
strSQL = strSQL & "Klassifikation, Vintype, Omraade, Land, Arrangement, Farve,"
strSQL = strSQL & " Duft, Smag, Potentiale) values ('"
strSQL = strSQL & Request.Form("aargang") & "', '"
strSQL = strSQL & Request.Form("Vinnavn") & "', '"
strSQL = strSQL & Request.Form("Vinnavn2") & "', '"
strSQL = strSQL & Request.Form("Point") & "', '"
strSQL = strSQL & Request.Form("Smagsdato") & "', '"
strSQL = strSQL & Request.Form("Klassifikation") & "', '"
strSQL = strSQL & Request.Form("Vintype") & "', '"
strSQL = strSQL & Request.Form("Omraade") & "', '"
strSQL = strSQL & Request.Form("Land") & "', '"
strSQL = strSQL & Request.Form("Arrangement") & "', '"
strSQL = strSQL & Request.Form("Farve") & "', '"
strSQL = strSQL & Request.Form("Duft") & "', '"
strSQL = strSQL & Request.Form("Smag") & "', '"
strSQL = strSQL & Request.Form("Potentiale") & "'); "

Altså linie skift før strSQL
Avatar billede annikadk Nybegynder
05. januar 2003 - 08:00 #7
Husk at lukke dette + evt. andre gamle spørgsmål.
Du kan finde dine åbne spørgsmål ved at gå ind på http://www.eksperten.dk/konto.phtml?option=22
Klik på @ for at sortere efter flag, og tjek alle dem der er gul eller grøn.

Hvis der er svar som var brugbare accepterer du dem.
Hvis der er kommentarer som var brugbare kan du bede om at der lægges et svar (indenfor 2 dage fx.) som du derefter accepterer.
Har du ikke fundet hjælp kan du selv ligge et svar som du accepterer.

God fornøjelse :)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
27/0916:43 Nomad Tracking Car Af fleknes i Apps til Android
White papers
Flere white papers »