|
|
 | nogen som kan se fejlen??
Fra : SY |
Dato : 29-03-01 21:14 |
|
Har kigget på det script i over en uge og kan ikke se fejlen.
Her er fejlmelding:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/tilfoeje.asp, line 67
SQLkomando = "INSERT INTO salg(handel, katagori, overskrift, beskrivelse,
pris, billede )" & "VALUES('"&handel&"', '"&katagori&"', '"&overskrift&"',
'"&beskrivelse&"', "&pris&", '"&billede&"' )"
----------------------------------------------------------------------------
---------------------------^
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#INCLUDE VIRTUAL="adovbs.inc" -->
<%response.expires = 0 %>
<%Response.Buffer = true%>
<%
' Upload billede
dim upload, billede, conn, strsql, rs
set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.Save ("d:\home\antikforumdk\www\antik")
if not Upload.Files("billede") Is Nothing then
Billede = Upload.Files("billede").ExtractFileName
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath
("../db/databse.mdb")
strSQL = "Select * from bruger where kundeid=" & session("userid")
Set RS = Conn.Execute(strSQL)
handel = upload.form("select")
katagori = upload.form("select2")
overskrift = upload.form("overskrift")
beskrivelse = upload.form("beskrivelse")
pris = upload.form("pris")
tlf = rs("tlf")
billede = billede
kundeid = session("userid")
Conn.close
set Conn = Nothing
' Indsæt i databasen
dim SQLkomando
dim filePath
dim oConn
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath
("../antik/databse.mdb")
' Byg SQL komandoen
fejl *********SQLkomando = "INSERT INTO salg(handel, katagori, overskrift,
beskrivelse, pris, billede )" & "VALUES('"&handel&"', '"&katagori&"',
'"&overskrift&"', '"&beskrivelse&"', "&pris&",
'"&billede&"' )"************fejl
oConn.Execute (SQLkomando)
oConn.close
set oConn = Nothing
%>
| |
 Peter Pedersen (29-03-2001)
| Kommentar
Fra : Peter Pedersen |
Dato : 29-03-01 21:17 |
|
"SY" <nhiasy@stofanet.dk> skrev i en meddelelse
news:RHMw6.2570$Tj4.200601@news101.telia.com...
> Har kigget på det script i over en uge og kan ikke se fejlen.
> Her er fejlmelding:
>
>
> Microsoft VBScript compilation error '800a0401'
>
> Expected end of statement
>
> /tilfoeje.asp, line 67
>
> SQLkomando = "INSERT INTO salg(handel, katagori, overskrift, beskrivelse,
> pris, billede )" & "VALUES('"&handel&"', '"&katagori&"', '"&overskrift&"',
> '"&beskrivelse&"', "&pris&", '"&billede&"' )"
> --------------------------------------------------------------------------
--
> ---------------------------^
"&pris&", '"&billede&"' )"
du mangler '' rund om "&pris&"
/p
>
> <%@ Language=VBScript %>
> <% Option Explicit %>
> <!--#INCLUDE VIRTUAL="adovbs.inc" -->
> <%response.expires = 0 %>
> <%Response.Buffer = true%>
>
> <%
> ' Upload billede
> dim upload, billede, conn, strsql, rs
> set Upload = Server.CreateObject("Persits.Upload.1")
> Upload.OverwriteFiles = False
> Upload.Save ("d:\home\antikforumdk\www\antik")
> if not Upload.Files("billede") Is Nothing then
> Billede = Upload.Files("billede").ExtractFileName
> end if
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath
> ("../db/databse.mdb")
> strSQL = "Select * from bruger where kundeid=" & session("userid")
> Set RS = Conn.Execute(strSQL)
>
> handel = upload.form("select")
> katagori = upload.form("select2")
> overskrift = upload.form("overskrift")
> beskrivelse = upload.form("beskrivelse")
> pris = upload.form("pris")
> tlf = rs("tlf")
> billede = billede
> kundeid = session("userid")
>
> Conn.close
> set Conn = Nothing
>
> ' Indsæt i databasen
> dim SQLkomando
> dim filePath
> dim oConn
>
> set oConn = Server.CreateObject("ADODB.Connection")
> oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath
> ("../antik/databse.mdb")
>
> ' Byg SQL komandoen
>
> fejl *********SQLkomando = "INSERT INTO salg(handel, katagori, overskrift,
> beskrivelse, pris, billede )" & "VALUES('"&handel&"', '"&katagori&"',
> '"&overskrift&"', '"&beskrivelse&"', "&pris&",
> '"&billede&"' )"************fejl
>
>
> oConn.Execute (SQLkomando)
> oConn.close
> set oConn = Nothing
> %>
>
>
>
| |
SY (29-03-2001)
| Kommentar
Fra : SY |
Dato : 29-03-01 21:25 |
|
Får stadig det samme fejl
men tak
"Peter Pedersen" <*.pdp@mailme.dk> skrev i en meddelelse
news:9a059j$2m1$1@news.inet.tele.dk...
>
> "SY" <nhiasy@stofanet.dk> skrev i en meddelelse
> news:RHMw6.2570$Tj4.200601@news101.telia.com...
> > Har kigget på det script i over en uge og kan ikke se fejlen.
> > Her er fejlmelding:
> >
> >
> > Microsoft VBScript compilation error '800a0401'
> >
> > Expected end of statement
> >
> > /tilfoeje.asp, line 67
> >
> > SQLkomando = "INSERT INTO salg(handel, katagori, overskrift,
beskrivelse,
> > pris, billede )" & "VALUES('"&handel&"', '"&katagori&"',
'"&overskrift&"',
> > '"&beskrivelse&"', "&pris&", '"&billede&"' )"
>
> --------------------------------------------------------------------------
> --
> > ---------------------------^
>
> "&pris&", '"&billede&"' )"
>
> du mangler '' rund om "&pris&"
>
> /p
>
> >
> > <%@ Language=VBScript %>
> > <% Option Explicit %>
> > <!--#INCLUDE VIRTUAL="adovbs.inc" -->
> > <%response.expires = 0 %>
> > <%Response.Buffer = true%>
> >
> > <%
> > ' Upload billede
> > dim upload, billede, conn, strsql, rs
> > set Upload = Server.CreateObject("Persits.Upload.1")
> > Upload.OverwriteFiles = False
> > Upload.Save ("d:\home\antikforumdk\www\antik")
> > if not Upload.Files("billede") Is Nothing then
> > Billede = Upload.Files("billede").ExtractFileName
> > end if
> >
> > Set Conn = Server.CreateObject("ADODB.Connection")
> > Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath
> > ("../db/databse.mdb")
> > strSQL = "Select * from bruger where kundeid=" & session("userid")
> > Set RS = Conn.Execute(strSQL)
> >
> > handel = upload.form("select")
> > katagori = upload.form("select2")
> > overskrift = upload.form("overskrift")
> > beskrivelse = upload.form("beskrivelse")
> > pris = upload.form("pris")
> > tlf = rs("tlf")
> > billede = billede
> > kundeid = session("userid")
> >
> > Conn.close
> > set Conn = Nothing
> >
> > ' Indsæt i databasen
> > dim SQLkomando
> > dim filePath
> > dim oConn
> >
> > set oConn = Server.CreateObject("ADODB.Connection")
> > oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath
> > ("../antik/databse.mdb")
> >
> > ' Byg SQL komandoen
> >
> > fejl *********SQLkomando = "INSERT INTO salg(handel, katagori,
overskrift,
> > beskrivelse, pris, billede )" & "VALUES('"&handel&"', '"&katagori&"',
> > '"&overskrift&"', '"&beskrivelse&"', "&pris&",
> > '"&billede&"' )"************fejl
> >
> >
> > oConn.Execute (SQLkomando)
> > oConn.close
> > set oConn = Nothing
> > %>
> >
> >
> >
>
>
| |
 Peter Pedersen (29-03-2001)
| Kommentar
Fra : Peter Pedersen |
Dato : 29-03-01 21:33 |
|
Prøv at sætte dette ind i stedet
SQLkomando = "INSERT INTO salg(handel, katagori, overskrift, beskrivelse,
pris, billede)"
SQLkomando = SQLkomando & "VALUES('" &handel& "','" &katagori& "','"
&overskrift& "','"&beskrivelse& "','" &pris& "','" &billede& "')"
/peter
"SY" <nhiasy@stofanet.dk> skrev i en meddelelse
news:1TMw6.2574$Tj4.201282@news101.telia.com...
> Får stadig det samme fejl
> men tak
> "Peter Pedersen" <*.pdp@mailme.dk> skrev i en meddelelse
> news:9a059j$2m1$1@news.inet.tele.dk...
> >
> > "SY" <nhiasy@stofanet.dk> skrev i en meddelelse
> > news:RHMw6.2570$Tj4.200601@news101.telia.com...
> > > Har kigget på det script i over en uge og kan ikke se fejlen.
> > > Her er fejlmelding:
> > >
> > >
> > > Microsoft VBScript compilation error '800a0401'
> > >
> > > Expected end of statement
> > >
> > > /tilfoeje.asp, line 67
> > >
> > > SQLkomando = "INSERT INTO salg(handel, katagori, overskrift,
> beskrivelse,
> > > pris, billede )" & "VALUES('"&handel&"', '"&katagori&"',
> '"&overskrift&"',
> > > '"&beskrivelse&"', "&pris&", '"&billede&"' )"
> >
>
> --------------------------------------------------------------------------
> > --
> > > ---------------------------^
> >
> > "&pris&", '"&billede&"' )"
> >
> > du mangler '' rund om "&pris&"
> >
> > /p
> >
> > >
> > > <%@ Language=VBScript %>
> > > <% Option Explicit %>
> > > <!--#INCLUDE VIRTUAL="adovbs.inc" -->
> > > <%response.expires = 0 %>
> > > <%Response.Buffer = true%>
> > >
> > > <%
> > > ' Upload billede
> > > dim upload, billede, conn, strsql, rs
> > > set Upload = Server.CreateObject("Persits.Upload.1")
> > > Upload.OverwriteFiles = False
> > > Upload.Save ("d:\home\antikforumdk\www\antik")
> > > if not Upload.Files("billede") Is Nothing then
> > > Billede = Upload.Files("billede").ExtractFileName
> > > end if
> > >
> > > Set Conn = Server.CreateObject("ADODB.Connection")
> > > Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> > Server.MapPath
> > > ("../db/databse.mdb")
> > > strSQL = "Select * from bruger where kundeid=" & session("userid")
> > > Set RS = Conn.Execute(strSQL)
> > >
> > > handel = upload.form("select")
> > > katagori = upload.form("select2")
> > > overskrift = upload.form("overskrift")
> > > beskrivelse = upload.form("beskrivelse")
> > > pris = upload.form("pris")
> > > tlf = rs("tlf")
> > > billede = billede
> > > kundeid = session("userid")
> > >
> > > Conn.close
> > > set Conn = Nothing
> > >
> > > ' Indsæt i databasen
> > > dim SQLkomando
> > > dim filePath
> > > dim oConn
> > >
> > > set oConn = Server.CreateObject("ADODB.Connection")
> > > oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> > Server.MapPath
> > > ("../antik/databse.mdb")
> > >
> > > ' Byg SQL komandoen
> > >
> > > fejl *********SQLkomando = "INSERT INTO salg(handel, katagori,
> overskrift,
> > > beskrivelse, pris, billede )" & "VALUES('"&handel&"', '"&katagori&"',
> > > '"&overskrift&"', '"&beskrivelse&"', "&pris&",
> > > '"&billede&"' )"************fejl
> > >
> > >
> > > oConn.Execute (SQLkomando)
> > > oConn.close
> > > set oConn = Nothing
> > > %>
> > >
> > >
> > >
> >
> >
>
>
| |
SY (29-03-2001)
| Kommentar
Fra : SY |
Dato : 29-03-01 21:45 |
|
Stadig det samme.
Har prøvet med recordset (addnew), det duer hellere ikke
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/tilfoeje.asp, line 68
SQLkomando = SQLkomando & "VALUES('" &handel& "','" &katagori& "','"
&overskrift& "','" &beskrivelse& "','" &pris& "','" &billede& "')"
-------------------------------------^
| |
Stig Johansen (30-03-2001)
| Kommentar
Fra : Stig Johansen |
Dato : 30-03-01 04:44 |
|
Hej.
"SY" <nhiasy@stofanet.dk> wrote in message
news:A9Nw6.2582$Tj4.202815@news101.telia.com...
> Stadig det samme.
> Har prøvet med recordset (addnew), det duer hellere ikke
>
>
> Microsoft VBScript compilation error '800a0401'
>
> Expected end of statement
>
> /tilfoeje.asp, line 68
>
> SQLkomando = SQLkomando & "VALUES('" &handel& "','" &katagori& "','"
> &overskrift& "','" &beskrivelse& "','" &pris& "','" &billede& "')"
> -------------------------------------^
>
Jeg roder ikke med ASP, men mon ikke der kan risikere at stå et ',' i
prisen?.
Hvis det er tilfældet, så prøv med 'us format'.
Derudover kan der opstå fejl hvis teksterne indeholder '. Sådanne skal
erstattes med dobbelte quotes, ''.
--
Med venlig hilsen/Best Regards
Stig Johansen - stig@w3data.dk
W3 Data - mailto@w3data.dk
| |
Jonathan Stein (29-03-2001)
| Kommentar
Fra : Jonathan Stein |
Dato : 29-03-01 23:57 |
|
SY wrote:
> fejl *********SQLkomando = "INSERT INTO salg(handel, katagori, overskrift,
> beskrivelse, pris, billede )" & "VALUES('"&handel&"', '"&katagori&"',
> '"&overskrift&"', '"&beskrivelse&"', "&pris&",
> '"&billede&"' )"************fejl
Prøv at smide mellemrum ind omkring dine & tegn. (Koder normalt ikke VBscript,
så det er kun et gæt).
M.v.h.
Jonathan
| |
|
|