Just nu i M3-nätverket
Gå till innehåll
Eforum är stängt för nya inlägg och svar sedan 20 juni 2022. Klicka för att läsa vad som hände och om alternativ.

Tillslut så blir man blind i sin egen kodning.

Apnorix

Startad av Apnorix,
i Webbutveckling

Rekommendera Poster

Apnorix

Apnorix

Postad
Postad

Hej på er !

 

Jag har blivit blind i min egen kodning.

 

Jag får följande felmeddelande:

--------------------------------

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/ppr/omrakning.asp, line 49

 

SQL3 = "SELECT vecka"vecka" from veckoforsaljning2003 Where anstnr = "&rs("anstnr")&""

---------------------^

 

 

min kod ser ut enligt följande(kom gärna med kommentarer på felaktigheter...

 

-----------------------

<html>

<body>

 

<font face="Verdana, Helvetica, Arial" size="2">

 

Här sker alla omräkningar !!!!!!

<%

 

Set MinCon = Server.CreateObject ("ADODB.Connection")

Set MinCon2 = Server.CreateObject ("ADODB.Connection")

Set MinCon3 = Server.CreateObject ("ADODB.Connection")

 

Set rs = Server.CreateObject ("ADODB.Recordset")

Set rs2 = Server.CreateObject ("ADODB.Recordset")

Set rs3 = Server.CreateObject ("ADODB.Recordset")

 

 

MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &amp; Server.MapPath("..\..\_private\personuppgift.mdb")&amp;";"

MinCon2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &amp; Server.MapPath("..\..\_private\ppr.mdb")&amp;";"

MinCon3.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &amp; Server.MapPath("..\..\_private\veckoforsaljning2003.mdb")&amp;";"

 

 

 

SQL = "SELECT fornamn, efternamn, enhet, anstnr, status, aktiv from person Where status <= '2' and status > '0' and aktiv order by anstnr"

rs.Open SQL, MinCon

 

If not rs.EOF then

 

Vecka="30"

SQL2 = "SELECT sales from weeksales Where anstnr = "&amp;rs("anstnr")&amp;" and week = " &amp; vecka &amp; ""

rs2.Open SQL2, MinCon2

If not rs2.EOF then

 

 

SQL3 = "SELECT vecka"vecka" from veckoforsaljning2003 Where anstnr = "&amp;rs("anstnr")&amp;""

rs3.Open SQL3, MinCon3

If not rs3.EOF then

 

rs3("vecka'vecka'")=rs2("sales")

rs3.Update

<%

.%>

rs3.Close

else

rs3.Close

 

 

 

 

 

vecka=vecka-1

loop

else

rs2.Close

 

rs.MoveNext

Loop

else

rs.Close

 

%>

Nu finns de inga fler att ändra på

<%

 

 

MinCon.Close

MinCon2.Close

MinCon3.Close

 

%>

 

</body>

</html>

 

[inlägget ändrat 2003-08-12 13:42:12 av Apnorix]

Länk till kommentar
Dela på andra webbplatser
Magnus Ahlkvist

Magnus Ahlkvist

Postad
Postad

Varför gör du "SELECT vecka "vecka"..."?

 

Kolumnen heter redan vecka, varför ge den ett alias med samma namn?

 

Om det ändå är vad du vill göra behöver du göra:

 

"SELECT vecka ""vecka"" ..." för att VBScript ska kunna tolka det, annars tror VBScript att strängen ska ta slut när den stöter på det första " som inleder "vecka".

--

Snäll ibland. rättvis nästan jämt. Elak för det mesta.

 

Länk till kommentar
Dela på andra webbplatser
Apnorix

Apnorix

Postad
  • Trådskapare
Postad

Jag har i den tabellen("veckoforsaljning2003") flera olika fält som är döpta:

 

vecka1, vecka2, vecka3 [...]

 

Det jag vill är att den börjar vecka 30 och jobbar sig ner.

 

Så det jag menar med:

"SELECT vecka ""vecka"" ..."

 

är "SELECT vecka30 ..." eftersom variabeln vecka har värdet 30.

 

Hur skall jag skriva koden för att den skall uppfatta det på det sättet.

 

/

Nybörjaren Markus

 

Länk till kommentar
Dela på andra webbplatser
Mackan4

Mackan4

Postad
Postad

Om vecka är en variabel så borde din sql fråga se ut så här:

SQL3 = "SELECT vecka"&vecka&" from veckoforsaljning2003 Where anstnr = "&rs("anstnr")&""

 

Länk till kommentar
Dela på andra webbplatser
Apnorix

Apnorix

Postad
  • Trådskapare
Postad

DEssvärre får jag detta felmeddelande när jag för in din kod:

--------------------

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/ppr/omrakning.asp, line 35

 

SQL3 = "SELECT vecka"&amp;vecka&amp;" from veckoforsaljning2003 Where anstnr = "&amp;rs("anstnr")&amp;""

-------------------------^

 

 

Länk till kommentar
Dela på andra webbplatser
Anders N

Anders N

Postad
Postad

&amp; är eforum som strular.. det skall vara &-tecknet.

 

SQL3 = "SELECT vecka"&vecka&" from veckoforsaljning2003 Where anstnr = "&rs("anstnr")

 

Ciao,

Anders

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

Gå till ämneslista


×
×
  • Skapa nytt...