12. november 2002 - 13:35
Der er
13 kommentarer og 2 løsninger
Fejl
Hej Mit script siger fejl når jeg køre det: Microsoft VBScript compilation error '800a0409' Unterminated string constant /peter77/acessFlash/EmailFlashList.asp, line 3 Serv= "Driver={Microsoft Access Driver (*.mdb)};_ -------------------------------------------------^ Her er mit asp: <% Dim Serv, Conn, RecordView, Ename, output, collect, SQL Serv= "Driver={Microsoft Access Driver (*.mdb)};_ DBQ= \\genfs1\www16\peter77\db\emailFlash.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Set RecordView = Server.CreateObject("ADODB.Recordset") Conn.Open Serv SQL="SELECT * FORM EmailTable" RecordView.Open SQL, Conn Do While Not RecordView.EOF Ename=RecordView("Name") & "<BR>" collect =collect & Ename RecordView.MoveNext Loop output="Output=" & collect Response.Write output RecordView.Close Conn.Close Set RecordView = Nothing Set Conn = Nothing %> Er der nogen som kan hjælpe mig. Det er første gang jeg arbejder i asp, access og flash. Jeg skal bare hent data ind i flash fra databasen!
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
12. november 2002 - 13:38
#1
<% Dim Serv, Conn, RecordView, Ename, output, collect, SQL Serv= "Driver={Microsoft Access Driver (*.mdb)}; &_ DBQ= \\genfs1\www16\peter77\db\emailFlash.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Set RecordView = Server.CreateObject("ADODB.Recordset") Conn.Open Serv SQL="SELECT * FORM EmailTable" RecordView.Open SQL, Conn Do While Not RecordView.EOF Ename=RecordView("Name") & "<BR>" collect =collect & Ename RecordView.MoveNext Loop output="Output=" & collect Response.Write output RecordView.Close Conn.Close Set RecordView = Nothing Set Conn = Nothing %> //>Rune
12. november 2002 - 13:39
#2
<% Dim Serv, Conn, RecordView, Ename, output, collect, SQL Serv= "Driver={Microsoft Access Driver (*.mdb)}; &_ "DBQ= \\genfs1\www16\peter77\db\emailFlash.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Set RecordView = Server.CreateObject("ADODB.Recordset") Conn.Open Serv SQL="SELECT * FORM EmailTable" RecordView.Open SQL, Conn Do While Not RecordView.EOF Ename=RecordView("Name") & "<BR>" collect =collect & Ename RecordView.MoveNext Loop output="Output=" & collect Response.Write output RecordView.Close Conn.Close Set RecordView = Nothing Set Conn = Nothing %> Sådan her er det vidst! //>Rune
12. november 2002 - 13:45
#3
Siger stadig fejl Microsoft VBScript compilation error '800a0409' Unterminated string constant /peter77/acessFlash/EmailFlashList1.asp, line 3 Serv= "Driver={Microsoft Access Driver (*.mdb)}; &_ ---------------------------------------------------^ Jeg er ikke sikker på at driveren er sat rigtigt op. Jeg kan ikke rigtig forstå hvordan DSN virker. Jeg har været inde i ODBC og lave en som hedder EmailFlash.dsn. (der er et sted jeg kan vælge ingen eller systemdatabase) Hvor skal prikken sættes?
12. november 2002 - 13:46
#4
DOH sorry! <% Dim Serv, Conn, RecordView, Ename, output, collect, SQL Serv= "Driver={Microsoft Access Driver (*.mdb)};" &_ "DBQ= \\genfs1\www16\peter77\db\emailFlash.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Set RecordView = Server.CreateObject("ADODB.Recordset") Conn.Open Serv SQL="SELECT * FORM EmailTable" RecordView.Open SQL, Conn Do While Not RecordView.EOF Ename=RecordView("Name") & "<BR>" collect =collect & Ename RecordView.MoveNext Loop output="Output=" & collect Response.Write output RecordView.Close Conn.Close Set RecordView = Nothing Set Conn = Nothing %> Sådan her er det vidst! //>Rune
12. november 2002 - 13:47
#5
Samme fejl
12. november 2002 - 13:49
#6
Sammefejl??? Weird! <% Dim Serv, Conn, RecordView, Ename, output, collect, SQL Serv= "Driver={Microsoft Access Driver (*.mdb)}" &_ "DBQ=c:\genfs1\www16\peter77\db\emailFlash.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Set RecordView = Server.CreateObject("ADODB.Recordset") Conn.Open Serv SQL="SELECT * FORM EmailTable" RecordView.Open SQL, Conn Do While Not RecordView.EOF Ename=RecordView("Name") & "<BR>" collect =collect & Ename RecordView.MoveNext Loop output="Output=" & collect Response.Write output RecordView.Close Conn.Close Set RecordView = Nothing Set Conn = Nothing %> Så prøv lige med denne..! //>Rune
12. november 2002 - 13:50
#7
Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression '* FORM EmailTable'. /peter77/acessFlash/EmailFlashList3.asp, line 11
12. november 2002 - 13:53
#8
Jeg er ikke sikker på at driveren er sat rigtigt op. Jeg kan ikke rigtig forstå hvordan DSN virker. Jeg har været inde i ODBC og lave en som hedder EmailFlash.dsn. (der er et sted jeg kan vælge ingen eller systemdatabase) Hvor skal prikken sættes?
12. november 2002 - 13:55
#9
SQL="SELECT * FORM EmailTable" Skal være SQL="SELECT * FROM EmailTable" //>Rune
12. november 2002 - 14:04
#10
Den er helt umulig! Flash siger at den ikke kan åbne asp filen og asp siger:Microsoft OLE DB Service Components error '80040e73' Format of the initialization string does not conform to the OLE DB specification. /peter77/acessFlash/EmailFlashList4.asp, line 10
12. november 2002 - 14:38
#11
Prøv at lave disse to liner Serv= "Driver={Microsoft Access Driver (*.mdb)}" &_ "DBQ=c:\genfs1\www16\peter77\db\emailFlash.mdb;" Om til: Serv= "Driver={Microsoft Access Driver (*.mdb)};" Serv = Serv & "DBQ=c:\genfs1\www16\peter77\db\emailFlash.mdb;"
12. november 2002 - 15:11
#12
Det lader ikke til at virke!
12. november 2002 - 18:23
#13
Ok får du stadig samme fejl?
13. november 2002 - 13:26
#14
Jeg takker for hjælpen igår. Jeg fandt løsningen gennem flasherne, og lortet virker nu. Jeg smider lidt til medions for indsatsen ;)
13. november 2002 - 14:30
#15
Fair nok... Thx 4 Poinz //>Rune
Kurser inden for grundlæggende programmering