Avatar billede intrique Nybegynder
05. januar 2002 - 00:18 Der er 77 kommentarer og
1 løsning

Form med connect til DB & Indsæt data!

Et stykke ASP kode som kunne connecte til en DB, hente data fra en form!

Mangler mest koden!

Følgende skal være brugt: Time, Nyhed, Nick, Titel

Time må gerne være now! Hjælp!
Avatar billede darkhero Nybegynder
05. januar 2002 - 00:33 #1
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"DATABASENAVN\")
Conn.Open DSN

strSQL = \"INSERT INTO mappenavn (time, nyhed, nick, titel) values(now(),\'request.form(\"nyhed\")\',\'request.form(\"nick\")\',\'Request.form(\"titel\")\')\"
Conn.execute(\"strSQL\")
Avatar billede darkhero Nybegynder
05. januar 2002 - 00:34 #2
Whops.. den skriver til databasen sorry.. læste forkert i opgaven!
Avatar billede keysersoze Ekspert
05. januar 2002 - 00:39 #3
mener du indsætte data fra en form til databasen eller hente data fra databasen og skrive ud på siden?
Avatar billede intrique Nybegynder
05. januar 2002 - 00:47 #4
Skrive ny data ind i DB\'en! Vil nu gerne have det pænt arrangeret, under hinanden :)

Det var mig der skrev forkert!
Avatar billede keysersoze Ekspert
05. januar 2002 - 00:52 #5
Avatar billede intrique Nybegynder
05. januar 2002 - 01:01 #6
tark.. øh... Den bliver bare VED med at sige: Expected end of statement!!!! ;o/
Avatar billede intrique Nybegynder
05. januar 2002 - 01:02 #7
Altså pga Request.Form(\"Bla\") - De der damn \"....
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:06 #8
prøv at kom med lidt kode så...
Avatar billede intrique Nybegynder
05. januar 2002 - 01:08 #9
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'Value(Now()\', \"
strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
strSQL = strSQL & \"\'Request.Form(\"titel\")\', \"
strSQL = strSQL & \"\'Request.Form(\"nyhed\")\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:10 #10
Sådan:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'Value(Now(), \"
strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
strSQL = strSQL & \"\'Request.Form(\"titel\")\', \"
strSQL = strSQL & \"\'Request.Form(\"nyhed\")\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>
Avatar billede intrique Nybegynder
05. januar 2002 - 01:10 #11
Også et extra spørgsmål > Hvor mange records synes i MAX der skal være i en Access DB?
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:11 #12
du havde en tick (\') for meget!
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:13 #13
\"Hvor mange records synes i MAX der skal være i en Access DB?\"

Det kommer an på hvilken server den ligger på, og hvor store de poster er!
Avatar billede intrique Nybegynder
05. januar 2002 - 01:13 #14
Det var IKKE det! Den siger følgende:

Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/mdtester/addnews.asp, line 54

strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
----------------------------------^

Fordi den mener at \" stopper koden.. help mere plx :)
Avatar billede intrique Nybegynder
05. januar 2002 - 01:28 #15
ØVser.. svar :)
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:30 #16
Prøv lige at gøre sådan: og skriv så hvad der står på siden!

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'Value(Now(), \"
strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
strSQL = strSQL & \"\'Request.Form(\"titel\")\', \"
strSQL = strSQL & \"\'Request.Form(\"nyhed\")\')\"

Response.write(strSQL)
\'Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>
Avatar billede intrique Nybegynder
05. januar 2002 - 01:32 #17
At siden ikke kan vises!!!
Avatar billede intrique Nybegynder
05. januar 2002 - 01:32 #18
En Intern HTTP500 Serverfejl
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:34 #19
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'Value(Now(), \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"

Response.write(strSQL)
Conn.Execute(strSQL)
%>
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:34 #20
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"Now(), \"
strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
strSQL = strSQL & \"\'Request.Form(\"titel\")\', \"
strSQL = strSQL & \"\'Request.Form(\"nyhed\")\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:36 #21
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values(Now(), \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"

Response.write(strSQL)
Conn.Execute(strSQL)
%>
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:37 #22
jeg var hurtigst Keyser ;o)
Avatar billede intrique Nybegynder
05. januar 2002 - 01:38 #23
Ny fejl!

Insert into News (Time, Nick, Titel, Nyhed) values(Now(), \'Dark-SkY\', \'En lille elegant DB test :)\', \'Hejsa, jeg skal bare lige teste en .. øh.. db con :)\')
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/mdtester/addnews.asp, line 47

I hate this!

Linje 47 > Conn.Execute(strSQL)
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:39 #24
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'Now()\', \"
strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
strSQL = strSQL & \"\'Request.Form(\"titel\")\', \"
strSQL = strSQL & \"\'Request.Form(\"nyhed\")\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede intrique Nybegynder
05. januar 2002 - 01:40 #25
Efter Intern fejlen, skrev Keyzer:

Insert into News (Time, Nick, Titel, Nyhed) values( \'Value(Now(), \'Dark-SkY\', \'Tjo.. test.. øh?\', \'Ja, endnu en DEJLIG TEsT FRA MiG :)\')
Microsoft OLE DB Provider for ODBC Drivers error \'80040e10\'

[Microsoft][ODBC Microsoft Access Driver]COUNT field incorrect

/mdtester/addnews.asp, line 56

Og linje 56 er: (ligesom før:)Conn.Execute(strSQL)

Avatar billede darkhero Nybegynder
05. januar 2002 - 01:40 #26
sådan her:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & Now() & \"\', \"
strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
strSQL = strSQL & \"\'Request.Form(\"titel\")\', \"
strSQL = strSQL & \"\'Request.Form(\"nyhed\")\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede intrique Nybegynder
05. januar 2002 - 01:42 #27
Hvis i får det til at virke, fordeler jeg mine 400 point ligeligt mellem jer hver (200 - dumpapper :P)
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:43 #28
fulgte op med en ny lidt senere - så selv en fejl ;)

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values(Now(), \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"

Avatar billede darkhero Nybegynder
05. januar 2002 - 01:43 #29
virker mit forslag ikke?
Avatar billede intrique Nybegynder
05. januar 2002 - 01:44 #30
nej, Dark :)
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:45 #31
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & Now() & \", \"
strSQL = strSQL & \"\'Request.Form(\"nick\")\', \"
strSQL = strSQL & \"\'Request.Form(\"titel\")\', \"
strSQL = strSQL & \"\'Request.Form(\"nyhed\")\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede intrique Nybegynder
05. januar 2002 - 01:45 #32
Keyser, tror vi er tættere på med din sidste kode :) Nu siger den at der er fejl i selve linjen du har skrevet! Det er meget bedre :D
Avatar billede intrique Nybegynder
05. januar 2002 - 01:46 #33
Virkede ikke, Darkhero
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:47 #34
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & Now() & \", \"
strSQL = strSQL & \"\'\" & Request.Form(\"nick\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"titel\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"nyhed\") & \"\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:48 #35
så skulle den være der;

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values(#\" & Now() &#, \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"



Avatar billede intrique Nybegynder
05. januar 2002 - 01:49 #36
*trommehvirvel*
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:50 #37
og endelig fandt darkhero en MEGET graverende fejl i det han konstant har skrevet (pga hjælp fra mig gennem icq) ;)

virker mit ikke, så fortæl mig hvilken felttype \"Time\" har...
Avatar billede intrique Nybegynder
05. januar 2002 - 01:50 #38
FuXorzZZZ ny Fejl :

(Anderledes, meget :)

Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/mdtester/addnews.asp, line 44

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values(#\" & Now() &#, \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"
-------------------------------------------------------------------------^

Fuxors
Avatar billede intrique Nybegynder
05. januar 2002 - 01:51 #39
Time.. wait a moment
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:51 #40
  <%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"#\" & Now() & \"#, \"
strSQL = strSQL & \"\'\" & Request.Form(\"nick\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"titel\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"nyhed\") & \"\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede intrique Nybegynder
05. januar 2002 - 01:51 #41
Time er *gulp* tekst.. ? =)
Avatar billede intrique Nybegynder
05. januar 2002 - 01:52 #42
Hey, mit ICQ er 146295051 - Add mig =)
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:52 #43
doh...

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values(#\" & Now() & \"#, \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"



Avatar billede darkhero Nybegynder
05. januar 2002 - 01:52 #44
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & Now() & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"nick\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"titel\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"nyhed\") & \"\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:53 #45
tekstfelt;

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values(\'\" & Now() & \"\', \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"



Avatar billede darkhero Nybegynder
05. januar 2002 - 01:54 #46
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strDato = now()

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & strDato & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"nick\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"titel\") & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"nyhed\") & \"\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>
Avatar billede intrique Nybegynder
05. januar 2002 - 01:54 #47
Det virkede heller ikke
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:56 #48
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strDato = now()

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & strDato & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"nick\") & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"titel\") & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"nyhed\") & \"\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>
Avatar billede keysersoze Ekspert
05. januar 2002 - 01:57 #49
i stedet for bare at sige det ikke virker, så fortæl hvor der meldes fejl henne...
Avatar billede darkhero Nybegynder
05. januar 2002 - 01:57 #50
Hvad skriver den nu?

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strDato = now()

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & strDato & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"nick\") & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"titel\") & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"nyhed\") & \"\')\"

Response.write(strSQL)
\'Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede intrique Nybegynder
05. januar 2002 - 01:59 #51
Nuværende fejl: Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/mdtester/addnews.asp, line 60
Avatar billede intrique Nybegynder
05. januar 2002 - 02:00 #52
DER ER INGEN ERROR
Avatar billede keysersoze Ekspert
05. januar 2002 - 02:01 #53
er det vores begges eller kun det ene?
Avatar billede intrique Nybegynder
05. januar 2002 - 02:01 #54
Nej, Darkheros sidste :)
Avatar billede darkhero Nybegynder
05. januar 2002 - 02:02 #55
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strDato = now()

strSQL = \"Insert into News (\"

strSQL = strSQL & \"Time, \"
strSQL = strSQL & \"Nick, \"
strSQL = strSQL & \"Titel, \"
strSQL = strSQL & \"Nyhed) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & strDato & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"nick\") & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"titel\") & \"\', \"
strSQL = strSQL & \"\'\" & Request(\"nyhed\") & \"\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>
Avatar billede keysersoze Ekspert
05. januar 2002 - 02:04 #56
hvad med den jeg sendte

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values (\'\" & Now() & \"\', \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"

?


Avatar billede intrique Nybegynder
05. januar 2002 - 12:18 #57
Nopz, ingen virkede :/
Avatar billede keysersoze Ekspert
05. januar 2002 - 12:25 #58
så sig hvad der sker af fejl - ellers er det jo ret svært at hjælpe...
Avatar billede keysersoze Ekspert
05. januar 2002 - 12:30 #59
og det er ikke noget med \"Syntax error in INSERT INTO statement.\" - også den henvisning til HVOR fejlen er...
Avatar billede intrique Nybegynder
05. januar 2002 - 13:14 #60
Ingen henvisning, det er med din nyeste kode!

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/mdtester/addnews.asp, line 48
Avatar billede keysersoze Ekspert
05. januar 2002 - 13:30 #61
strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values (\'test\', \'test\', \'test\', \'test\')\"

prøv ovenstående...

er alle felter tekst eller notatfelter?

og gør lige dette hvis ikke det allerede er;

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values (\'\" & Now() & \"\', \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"

Tools>Internet Options>Advanced>Uncheck \"Show friendly HTTP-errors\"

Funktioner>Internet Instillinger>Avanceret>Fjern kryds i \"Vis uskadelige HTTP-fejl\"

Avatar billede keysersoze Ekspert
05. januar 2002 - 13:31 #62
HOV!!! forfra;

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values (\'test\', \'test\', \'test\', \'test\')\"

prøv ovenstående...

er alle felter tekst eller notatfelter?

og gør lige dette hvis ikke det allerede er;

Tools>Internet Options>Advanced>Uncheck \"Show friendly HTTP-errors\"

Funktioner>Internet Instillinger>Avanceret>Fjern kryds i \"Vis uskadelige HTTP-fejl\"



Avatar billede cygnet Praktikant
05. januar 2002 - 13:40 #63
intrique  >>

Undskyld jeg lige forstyrre...

Angående spg http://www.eksperten.dk/spm/154346

Du skrev du manglede design til et forum.

Jeg har et som jeg blandt andet har sat op til
http://ingermann.dk/scratch/ under [debatter]

Skriv lige hvis du kan bruge det...

/cygnet
Avatar billede intrique Nybegynder
05. januar 2002 - 16:39 #64
Det er jo fra Wservice.dk - det kan jeg desvære ikke bruge :)

prøver det du skrev, Keyser
Avatar billede intrique Nybegynder
05. januar 2002 - 16:41 #65
Med din nyeste kode, Keyser, er der ingen fejl, den opdaterer bare ikke databasen :/
Avatar billede keysersoze Ekspert
05. januar 2002 - 16:46 #66
ok - må jeg så se koden som du har lige nu
Avatar billede intrique Nybegynder
05. januar 2002 - 16:49 #67
Ok ...

(Sagde det samme med din kode uden TEST)

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strDato = now()

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values (\'test\', \'test\', \'test\', \'test\')\"

Response.Write(strSQL)

\'Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>
Avatar billede keysersoze Ekspert
05. januar 2002 - 16:55 #68
erhm... du UDFØRER ikke sql\'en!!!

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"database.mdb\")
Conn.Open DSN

strDato = now()

strSQL = \"Insert into News (Time, Nick, Titel, Nyhed) values (\'test\', \'test\', \'test\', \'test\')\"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%> 
Avatar billede intrique Nybegynder
05. januar 2002 - 16:59 #69
Nej, den duer stadig ikke!

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/mdtester/addnews.asp, line 48
Avatar billede keysersoze Ekspert
05. januar 2002 - 17:44 #70
det forstår jeg ikke... hmmm prøv denne;

strSQL = \"Insert into News ([Time], [Nick], [Titel], [Nyhed]) values (\'test\', \'test\', \'test\', \'test\')\"

og så spørger jeg igen - er alle felter enten tekst eller notat felter?
Avatar billede intrique Nybegynder
06. januar 2002 - 12:59 #71
Ja det er de :)
Avatar billede keysersoze Ekspert
06. januar 2002 - 13:09 #72
ok - har du så prøvet det jeg skrev?
Avatar billede intrique Nybegynder
06. januar 2002 - 15:01 #73
prøver det nu, Keyser
Avatar billede intrique Nybegynder
06. januar 2002 - 15:03 #74
DEt fuCkiNg VirKeR :)

Men eh.. tror du også det virker med request.form ????
Avatar billede keysersoze Ekspert
06. januar 2002 - 15:13 #75
så prøv;

strSQL = \"Insert into News ([Time], [Nick], [Titel], [Nyhed]) values (\'\" & Now() & \"\', \'\" & Request.Form(\"nick\") & \"\', \'\" & Request.Form(\"titel\") & \"\', \'\" & Request.Form(\"nyhed\") & \"\')\"

Avatar billede intrique Nybegynder
06. januar 2002 - 15:56 #76
Det gør jeg så  nu.. cross fingre =)
Avatar billede intrique Nybegynder
06. januar 2002 - 15:59 #77
Det virkede :)
Avatar billede keysersoze Ekspert
06. januar 2002 - 16:16 #78
ok.... grunden til det er, at en af dine tabeller (formentlig time) er et reserveret ord i sql. Derfor vil den melde fejl medmindre man sætter [] omkring tabelnavnet
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester