Endast visa datum senare än dagens.

[Snoddas 100]

Kan någon hjälpa mej att selektera bort tidigare datum än dagens på följande kod?

<td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"7"[/GRÅ] align=[GRÅ]"center"[/GRÅ]><strong>Tävlingskalender VBF visad i sportgrensordning</strong></td>
  </tr>
   <tr>
      <td width=[GRÅ]"791"[/GRÅ]><strong>Gren</strong></td>
      <td width=[GRÅ]"791"[/GRÅ]><strong>Status</strong></td>
      <td width=[GRÅ]"791"[/GRÅ]><strong>Ordinarie Datum</strong></td>
      <td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"2"[/GRÅ]><strong>NEAFP</strong></td>
      <td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"2"[/GRÅ]><strong>Reserv Datum</strong></td>
   </tr>
   <tr>
      <td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"2"[/GRÅ]><strong>Arrangör</strong></td>
      <td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"5"[/GRÅ]><strong>Tävlingsnamn</strong></td>
   </tr>
   <tr>
      <td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"2"[/GRÅ]><strong>Telefon</strong></td>
      <td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"2"[/GRÅ]><strong>E-post</strong></td>
      <td width=[GRÅ]"791"[/GRÅ] colspan=[GRÅ]"3"[/GRÅ]><strong>Hemsida</strong></td>
   </tr>
</table>
[MÄRK]<%[/MÄRK]
[color="#0000ff"]Set[/color] conn = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"ADODB.Connection"[/GRÅ])
connString = [GRÅ]"Provider=Microsoft.Jet.OLEDB.4.0; Data Source="[/GRÅ] & [b]Server[/b].MapPath([GRÅ]"db/kal05.mdb"[/GRÅ])
conn.open connString

[color="#0000ff"]Set[/color] RS=conn.[color="#0000ff"]Execute[/color]([GRÅ]"SELECT * FROM kal05 ORDER BY SG ASC, [Ordinarie Datum] ASC"[/GRÅ])
[color="#0000ff"]If[/color] [color="#0000ff"]Not[/color] RS.EOF [color="#0000ff"]Then[/color]
   [color="#0000ff"]Do[/color] Until RS.EOF
      [MÄRK]%>[/MÄRK]
<hr align=[GRÅ]"center"[/GRÅ] width=[GRÅ]"823"[/GRÅ] size=[GRÅ]"1"[/GRÅ] noshade>
<table width=[GRÅ]"828"[/GRÅ] border=[GRÅ]"0"[/GRÅ] align=[GRÅ]"center"[/GRÅ] cellpadding=[GRÅ]"4"[/GRÅ] cellspacing=[GRÅ]"0"[/GRÅ]>
  <tr>
    <td width=[GRÅ]"156"[/GRÅ]><strong>[MÄRK]<%[/MÄRK]=RS([GRÅ]"SG"[/GRÅ])[MÄRK]%>[/MÄRK]</strong></td>
    <td width=[GRÅ]"158"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"Status"[/GRÅ])[MÄRK]%>[/MÄRK]</td>
    <td width=[GRÅ]"142"[/GRÅ]><strong>[MÄRK]<%[/MÄRK]=RS([GRÅ]"Ordinarie Datum"[/GRÅ])[MÄRK]%>[/MÄRK]</strong></td>
    <td colspan=[GRÅ]"2"[/GRÅ] width=[GRÅ]"157"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"NEAFP"[/GRÅ])[MÄRK]%>[/MÄRK]</td>
    <td width=[GRÅ]"165"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"Reserv Datum"[/GRÅ])[MÄRK]%>[/MÄRK]</td>
  </tr>
  <tr>
    <td colspan=[GRÅ]"2"[/GRÅ] width=[GRÅ]"324"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"Arrangör"[/GRÅ])[MÄRK]%>[/MÄRK]</td>
    <td colspan=[GRÅ]"4"[/GRÅ] width=[GRÅ]"484"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"Tävlingsnamn"[/GRÅ])[MÄRK]%>[/MÄRK]</td>
  </tr>
  <tr>
    <td colspan=[GRÅ]"2"[/GRÅ] width=[GRÅ]"324"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"Telefon"[/GRÅ])[MÄRK]%>[/MÄRK]</td>
    <td colspan=[GRÅ]"2"[/GRÅ] width=[GRÅ]"285"[/GRÅ]><a href=[GRÅ]"mailto:<%=RS("[/GRÅ]E-post[GRÅ]")%>"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"E-post"[/GRÅ])[MÄRK]%>[/MÄRK]</a></td>
    <td colspan=[GRÅ]"2"[/GRÅ] width=[GRÅ]"189"[/GRÅ]><a href=[GRÅ]"http://<%=RS("[/GRÅ]Hemsida[GRÅ]")%>"[/GRÅ] target=[GRÅ]"_blank"[/GRÅ]>[MÄRK]<%[/MÄRK]=RS([GRÅ]"Hemsida"[/GRÅ])[MÄRK]%>[/MÄRK]</a></td>
  </tr>
</table>
        [MÄRK]<%[/MÄRK] RS.MoveNext
   [color="#0000ff"]Loop[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]Set[/color] RS=[color="#0000ff"]Nothing[/color]
conn.close
[color="#0000ff"]Set[/color] conn=[color="#0000ff"]Nothing[/color]
[MÄRK]%>[/MÄRK]

 

Ni kan även se originalsidan på http://www.vastrabf.se/test.asp

 

Det jag vill åstadkomma är att de datum som är passerade inte syns på sidan.

 

Tackar på förhand.

 

 

 

[inlägget ändrat 2005-02-27 19:19:04 av Snoddas 100]

[Olle Nyrén]

[color="#0000ff"]Set[/color] RS=conn.[color="#0000ff"]Execute[/color]([GRÅ]"SELECT * FROM kal05 WHERE DATEDIFF("[/GRÅ][GRÅ]"d"[/GRÅ][GRÅ]", NOW(), [Ordinarie Datum]) >= 0 ORDER BY SG ASC, [Ordinarie Datum] ASC"[/GRÅ])

mvh

Olle

 

Fixade lite "-slarvfel...

[inlägget ändrat 2005-02-28 08:46:29 av Olle Nyrén]

[Snoddas 100]

Du funkade inte att göra så

 

[color="#0000ff"]Set[/color] RS=conn.[color="#0000ff"]Execute[/color]([GRÅ]"SELECT * FROM kal05 WHERE DATEDIFF("[/GRÅ][GRÅ]"d"[/GRÅ][GRÅ]", NOW(), [Ordinarie Datum])>= 0 ORDER BY SG ASC, [Ordinarie Datum] ASC"[/GRÅ])
[color="#0000ff"]If[/color] [color="#0000ff"]Not[/color] RS.EOF [color="#0000ff"]Then[/color]
   [color="#0000ff"]Do[/color] Until RS.EOF

 

Får följande felmeddelande:

 

Microsoft JET Database Engine error '80040e07'

 

Data type mismatch in criteria expression.

 

/testb.asp, line 229

 

Finns det några andra förslag?

 

B

 

[Cluster]

Vilket format/datatyp har fältet Ordinarie Datum?

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

[inlägget ändrat 2005-02-28 18:27:22 av Cluster]

[Snoddas 100]

Det är ett textfält i access som det står tex. 050201 det kan även stå 050201-02 om arrangemanget sträcker sig över flera dagar.

 

B

 

[Anjuna Moon]

Ska du använda fältet som datumfält måste det konsekvent ha datat på samma format. I ditt fall får du använda dig av en scriptlösning istället.

 

[Cluster]

Om du har möjlighet (ork) så tycker jag att du bör förändra din datastruktur så att du har ett startdatum och ett slutdatum för dina arrangemang. Sätt även datatypen till datum i databasen (ist för text). på så sätt kommer det att bli väldigt mycket lättare (för att inte säga rätt) :-)

 

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

[Snoddas 100]

Cluster.

Ja ja det är väl bara att bita ihop och göra om fältet till datumformat.

Menar du att man ska ha både ett fält för startdatum och ett för slutdatum? Vad händer om man inte anger ett slutdatum? (Endagarstävling)

 

Anjuna Moon.

Kan man lösa det hela med hjälp av ett script? Hur skulle det se ut?

 

B

 

 

[Anjuna Moon]

Kan man lösa det hela med hjälp av ett script? Hur skulle det se ut?

 

Tja, då skulle jag nog hämta alla poster i tabellen och sedan via ASP kontrollera "datum"-fältet.

 

Något sånt här:

 

[color="#0000ff"]Do[/color] [color="#0000ff"]While[/color] [color="#0000ff"]Not[/color] rs.EOF
dt=rs([GRÅ]"Ordinarie Datum"[/GRÅ])
dt2=dt
idx=[color="#0000ff"]InStr[/color](dt,[GRÅ]"-"[/GRÅ])
[color="#0000ff"]If[/color] idx>0 [color="#0000ff"]Then[/color] dt2=[color="#0000ff"]Left[/color](dt,4) & [color="#0000ff"]Right[/color](dt,2)
dt=MakeDate(dt)
dt2=MakeDate(dt2)
[color="#0000ff"]If[/color] [color="#0000ff"]Date[/color]>=dt [color="#0000ff"]And[/color] [color="#0000ff"]Date[/color]<=dt2 [color="#0000ff"]Then[/color]
	[color="#006400"]' Använd denna post[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
rs.MoveNext
[color="#0000ff"]Loop[/color]

[color="#0000ff"]Function[/color] MakeDate(s)
yy=[GRÅ]"20"[/GRÅ] & [color="#0000ff"]Left[/color](s,2)
mm=[color="#0000ff"]Mid[/color](s,3,2)
dd=[color="#0000ff"]Right[/color](s,2)
MakeDate=[color="#0000ff"]CDate[/color](yy & [GRÅ]"-"[/GRÅ] & mm & [GRÅ]"-"[/GRÅ] & dd)
[color="#0000ff"]End[/color] [color="#0000ff"]Function[/color]

[MÄRK]%>[/MÄRK]

 

EDIT: Koden förutsätter att du har datumen i formatet du beskrev ovan, dvs. yymmdd eller yymmdd-dd

[inlägget ändrat 2005-02-28 22:08:59 av Anjuna Moon]

[Cluster]

Menar du att man ska ha både ett fält för startdatum och ett för slutdatum?

Jupp! Datastrukturen bör väl utgå i från och spegla verkligheten. Eftersom du har både en- och tvådagarsarrangemang så tycker jag det är lämpligt att ha dessa fält (som om du vill dessutom kan innehålla tidsangivelser).

Vad händer om man inte anger ett slutdatum?

Det är väl bara att göra en indatakontroll från ditt formulär. Om inget slutdatum anges så sätter du slutdatum till samma värde som angets för startdatum. Eller så låter du det bli NULL i slutdatum och anpassar dina SQL-frågorna efter detta.

 

Eller så kör du med Anjuna's skript.

 

/Cluster

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

"Den som försummar att dricka ur erfarenhetens källa

kommer troligen att dö av törst i okunnighetens öken."

------> http://eforum.kicks-ass.net <------

 

[Snoddas 100]

Var i min kod ska jag lägga in kodförslaget för att det ska fungera?

 

B

 

 

 

[Anjuna Moon]

Tja, du ska ju ersätta din gamla loop med mitt förslag.

På stället där det står "Använd denna post" lägger du inte innehållet från din tidigare loop.

 

[Snoddas 100]

Förlåt en novis på området!

 

Men kommer nina andra fält i databasen att komma med när jag gör så här?

 

B

 

[Anjuna Moon]

Ja, alla fält kommer med, du använder ju din gamla query till det här:

 

[color="#0000ff"]Set[/color] RS=conn.[color="#0000ff"]Execute[/color]([GRÅ]"SELECT * FROM kal05 ORDER BY SG ASC, [Ordinarie Datum] ASC"[/GRÅ])

 

[Snoddas 100]

Hej igen!

 

Får följande felmeddelande:

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'CDate'

 

/testb.asp, line 247

 

 

Tacksam för hjälp!

 

B

 

[Anjuna Moon]

Lägg till följande rad i funktionen MakeData och tala om vad den skriver ut innan du får felmeddelandet:

 

Function MakeDate(s)

yy="20" & Left(s,2)

mm=Mid(s,3,2)

dd=Right(s,2)

Response.Write "Indata:" & yy & "-" & mm & "-" & dd

MakeDate=CDate(yy & "-" & mm & "-" & dd)

End Function

 

[Snoddas 100]

Då svarar explorer som följer:

 

Indata:2005-04-23Indata:2005-04-23Indata:2005-04-16Indata:2005-04-16Indata:2005-06-18Indata:2005-06-18Indata:2005-06-19Indata:2005-06-19Indata:2005-08-27Indata:2005-08-27Indata:2005-08-28Indata:2005-08-28Indata:2005-09-10Indata:2005-09-10Indata:2005-09-11Indata:2005-09-11Indata:2005-06-04Indata:2005-06-04Indata:2005-08-21Indata:2005-08-21Indata:2005-02-26Indata:2005-02-26Indata:2005-03-05Indata:2005-03-05Indata:2005-03-25Indata:2005-03-25Indata:2005-04-02Indata:2005-04-02Indata:2005-04-03Indata:2005-04-03Indata:2005-04-09Indata:2005-04-09Indata:2005-04-09Indata:2005-04-09Indata:2005-04-16Indata:2005-04-16Indata:2005-04-23Indata:2005-04-23Indata:2005-04-23Indata:2005-04-23Indata:2005-05-01Indata:2005-05-01Indata:2005-05-01Indata:2005-05-01Indata:2005-05-05Indata:2005-05-05Indata:2005-05-05Indata:2005-05-05Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-14Indata:2005-05-14Indata:2005-05-14Indata:2005-05-14Indata:2005-05-16Indata:2005-05-16Indata:2005-05-21Indata:2005-05-21Indata:2005-05-21Indata:2005-05-21Indata:2005-05-22Indata:2005-05-22Indata:2005-05-28Indata:2005-05-28Indata:2005-05-28Indata:2005-05-28Indata:2005-06-05Indata:2005-06-05Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-05Indata:2005-06-05Indata:2005-06-11Indata:2005-06-11Indata:2005-06-12Indata:2005-06-12Indata:2005-06-12Indata:2005-06-12Indata:2005-06-18Indata:2005-06-18Indata:2005-06-18Indata:2005-06-18Indata:2005-06-22Indata:2005-06-22Indata:2005-06-29Indata:2005-06-29Indata:2005-07-01Indata:2005-07-01Indata:2005-07-10Indata:2005-07-10Indata:2005-07-23Indata:2005-07-23Indata:2005-07-27Indata:2005-07-27Indata:2005-07-30Indata:2005-07-30Indata:2005-07-30Indata:2005-07-30Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-13Indata:2005-08-13Indata:2005-08-13Indata:2005-08-13Indata:2005-08-21Indata:2005-08-21Indata:2005-08-20Indata:2005-08-20Indata:2005-08-20Indata:2005-08-20Indata:2005-08-21Indata:2005-08-21Indata:2005-08-27Indata:2005-08-27Indata:2005-08-28Indata:2005-08-28Indata:2005-08-28Indata:2005-08-28Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-04Indata:2005-09-04Indata:2005-09-10Indata:2005-09-10Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-18Indata:2005-09-18Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-10-01Indata:2005-10-01Indata:2005-10-01Indata:2005-10-01Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-15Indata:2005-10-15Indata:2005-10-15Indata:2005-10-15Indata:2005-10-22Indata:2005-10-22Indata:2005-10-22Indata:2005-10-22Indata:2005-11-05Indata:2005-11-05Indata:2005-11-06Indata:2005-11-06Indata:2005-11-12Indata:2005-11-12Indata:2005-05-14Indata:2005-05-14Indata:2005-06-05Indata:2005-06-05Indata:2005-06-11Indata:2005-06-11Indata:2005-08-21Indata:2005-08-21Indata:2005-08-28Indata:2005-08-28Indata:2005-09-24Indata:2005-09-24Indata:2005-04-23Indata:2005-04-23Indata:2005-04-30Indata:2005-04-30Indata:2005-08-13Indata:2005-08-13Indata:20--

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'CDate'

 

/testb.asp, line 249

 

Hoppas att det hjälper dej.

 

B

 

[Anjuna Moon]

Nja, då är det inget fel med min kod utan du har någon post i databasen som inte innehåller ett datum på rätt format (eller så är fältet helt enkelt tomt). Kontrollera din databas

 

[Snoddas 100]

Får väl kolla det...

 

B

 

[Snoddas 100]

Vid min kontroll så hittade jag tre tomma fält som jag satte till 000000 men inte hjälpte det. Sedan ändrade jag dessa tre rader till 051231 och då får jag följande meddelande.

 

Indata:2005-04-23Indata:2005-04-23Indata:2005-04-16Indata:2005-04-16Indata:2005-06-18Indata:2005-06-18Indata:2005-06-19Indata:2005-06-19Indata:2005-08-27Indata:2005-08-27Indata:2005-08-28Indata:2005-08-28Indata:2005-09-10Indata:2005-09-10Indata:2005-09-11Indata:2005-09-11Indata:2005-06-04Indata:2005-06-04Indata:2005-08-21Indata:2005-08-21Indata:2005-02-26Indata:2005-02-26Indata:2005-03-05Indata:2005-03-05Indata:2005-03-25Indata:2005-03-25Indata:2005-04-02Indata:2005-04-02Indata:2005-04-03Indata:2005-04-03Indata:2005-04-09Indata:2005-04-09Indata:2005-04-09Indata:2005-04-09Indata:2005-04-16Indata:2005-04-16Indata:2005-04-23Indata:2005-04-23Indata:2005-04-23Indata:2005-04-23Indata:2005-05-01Indata:2005-05-01Indata:2005-05-01Indata:2005-05-01Indata:2005-05-05Indata:2005-05-05Indata:2005-05-05Indata:2005-05-05Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-07Indata:2005-05-14Indata:2005-05-14Indata:2005-05-14Indata:2005-05-14Indata:2005-05-16Indata:2005-05-16Indata:2005-05-21Indata:2005-05-21Indata:2005-05-21Indata:2005-05-21Indata:2005-05-22Indata:2005-05-22Indata:2005-05-28Indata:2005-05-28Indata:2005-05-28Indata:2005-05-28Indata:2005-06-05Indata:2005-06-05Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-04Indata:2005-06-05Indata:2005-06-05Indata:2005-06-11Indata:2005-06-11Indata:2005-06-12Indata:2005-06-12Indata:2005-06-12Indata:2005-06-12Indata:2005-06-18Indata:2005-06-18Indata:2005-06-18Indata:2005-06-18Indata:2005-06-22Indata:2005-06-22Indata:2005-06-29Indata:2005-06-29Indata:2005-07-01Indata:2005-07-01Indata:2005-07-10Indata:2005-07-10Indata:2005-07-23Indata:2005-07-23Indata:2005-07-27Indata:2005-07-27Indata:2005-07-30Indata:2005-07-30Indata:2005-07-30Indata:2005-07-30Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-06Indata:2005-08-13Indata:2005-08-13Indata:2005-08-13Indata:2005-08-13Indata:2005-08-21Indata:2005-08-21Indata:2005-08-20Indata:2005-08-20Indata:2005-08-20Indata:2005-08-20Indata:2005-08-21Indata:2005-08-21Indata:2005-08-27Indata:2005-08-27Indata:2005-08-28Indata:2005-08-28Indata:2005-08-28Indata:2005-08-28Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-03Indata:2005-09-04Indata:2005-09-04Indata:2005-09-10Indata:2005-09-10Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-17Indata:2005-09-18Indata:2005-09-18Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-10-01Indata:2005-10-01Indata:2005-10-01Indata:2005-10-01Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-08Indata:2005-10-15Indata:2005-10-15Indata:2005-10-15Indata:2005-10-15Indata:2005-10-22Indata:2005-10-22Indata:2005-10-22Indata:2005-10-22Indata:2005-11-05Indata:2005-11-05Indata:2005-11-06Indata:2005-11-06Indata:2005-11-12Indata:2005-11-12Indata:2005-05-14Indata:2005-05-14Indata:2005-06-05Indata:2005-06-05Indata:2005-06-11Indata:2005-06-11Indata:2005-08-21Indata:2005-08-21Indata:2005-08-28Indata:2005-08-28Indata:2005-09-24Indata:2005-09-24Indata:2005-04-23Indata:2005-04-23Indata:2005-04-30Indata:2005-04-30Indata:2005-08-13Indata:2005-08-13Indata:2005-04-24Indata:2005-04-24Indata:2005-05-07Indata:2005-05-07Indata:2005-06-12Indata:2005-06-12Indata:2005-08-28Indata:2005-08-28Indata:2005-09-11Indata:2005-09-11Indata:2005-09-24Indata:2005-09-24Indata:2005-12-31Indata:2005-12-31Indata:2005-12-31Indata:2005-12-31Indata:2005-12-31Indata:2005-12-31Indata:2005-01-22Indata:2005-01-22Indata:2005-03-20Indata:2005-03-20Indata:2005-04-03Indata:2005-04-03Indata:2005-05-08Indata:2005-05-08Indata:2005-05-08Indata:2005-05-08Indata:2005-05-15Indata:2005-05-15Indata:2005-05-29Indata:2005-05-29Indata:2005-05-29Indata:2005-05-29Indata:2005-06-04Indata:2005-06-04Indata:2005-06-12Indata:2005-06-12Indata:2005-06-19Indata:2005-06-19Indata:2005-07-31Indata:2005-07-31Indata:2005-08-21Indata:2005-08-21Indata:2005-09-11Indata:2005-09-11Indata:2005-09-25Indata:2005-09-25Indata:2005-10-22Indata:2005-10-22Indata:2005-11-12Indata:2005-11-12Indata:2005-12-17Indata:2005-12-17Indata:2005-12-28Indata:2005-12-28Indata:2005-04-30Indata:2005-04-30Indata:2005-05-16Indata:2005-05-16Indata:2005-05-22Indata:2005-05-22Indata:2005-06-18Indata:2005-06-18Indata:2005-07-03Indata:2005-07-03Indata:2005-09-17Indata:2005-09-17Indata:2005-09-25Indata:2005-09-25Indata:2005-01-15Indata:2005-01-15Indata:2005-01-21Indata:2005-01-21Indata:2005-01-22Indata:2005-01-22Indata:2005-01-29Indata:2005-01-29Indata:2005-02-06Indata:2005-02-06Indata:2005-02-06Indata:2005-02-06Indata:2005-02-19Indata:2005-02-19Indata:2005-02-19Indata:2005-02-19Indata:2005-02-26Indata:2005-02-26Indata:2005-02-26Indata:2005-02-26Indata:2005-02-26Indata:2005-02-26Indata:2005-04-10Indata:2005-04-10Indata:2005-04-10Indata:2005-04-10Indata:2005-04-16Indata:2005-04-16Indata:2005-04-23Indata:2005-04-23Indata:2005-05-01Indata:2005-05-01Indata:2005-05-07Indata:2005-05-07Indata:2005-05-14Indata:2005-05-14Indata:2005-05-21Indata:2005-05-21Indata:2005-05-28Indata:2005-05-28Indata:2005-05-28Indata:2005-05-28Indata:2005-06-05Indata:2005-06-05Indata:2005-06-11Indata:2005-06-11Indata:2005-07-02Indata:2005-07-02Indata:2005-07-16Indata:2005-07-16Indata:2005-07-23Indata:2005-07-23Indata:2005-07-23Indata:2005-07-23Indata:2005-07-29Indata:2005-07-29Indata:2005-08-13Indata:2005-08-13Indata:2005-08-20Indata:2005-08-20Indata:2005-08-27Indata:2005-08-27Indata:2005-09-03Indata:2005-09-03Indata:2005-09-10Indata:2005-09-10Indata:2005-09-11Indata:2005-09-11Indata:2005-09-17Indata:2005-09-17Indata:2005-09-18Indata:2005-09-18Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-09-24Indata:2005-10-01Indata:2005-10-01Indata:2005-10-01Indata:2005-10-01Indata:2005-10-02Indata:2005-10-02Indata:2005-10-08Indata:2005-10-08Indata:2005-10-09Indata:2005-10-09Indata:2005-10-22Indata:2005-10-22Indata:2005-02-05Indata:2005-02-05

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

ADODB.Field error '80020009'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/testb.asp, line 0

 

Numer ser min kod ut såhär.

 

[MÄRK]<%[/MÄRK]
[color="#0000ff"]Set[/color] conn = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"ADODB.Connection"[/GRÅ])
connString = [GRÅ]"Provider=Microsoft.Jet.OLEDB.4.0; Data Source="[/GRÅ] & [b]Server[/b].MapPath([GRÅ]"db/kal05.mdb"[/GRÅ])
conn.open connString

[color="#0000ff"]Set[/color] RS=conn.[color="#0000ff"]Execute[/color]([GRÅ]"SELECT * FROM kal05 ORDER BY SG ASC, [Ordinarie Datum] ASC"[/GRÅ])

[color="#0000ff"]Do[/color] [color="#0000ff"]While[/color] [color="#0000ff"]Not[/color] rs.EOF
dt=rs([GRÅ]"Ordinarie Datum"[/GRÅ])
dt2=dt
idx=[color="#0000ff"]InStr[/color](dt,[GRÅ]"-"[/GRÅ])
[color="#0000ff"]If[/color] idx>0 [color="#0000ff"]Then[/color] dt2=[color="#0000ff"]Left[/color](dt,4) & [color="#0000ff"]Right[/color](dt,2)
dt=MakeDate(dt)
dt2=MakeDate(dt2)
[color="#0000ff"]If[/color] [color="#0000ff"]Date[/color]>=dt [color="#0000ff"]And[/color] [color="#0000ff"]Date[/color]<=dt2 [color="#0000ff"]Then[/color]
[color="#006400"]' Använd denna post[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
rs.MoveNext
[color="#0000ff"]Loop[/color]

[color="#0000ff"]Function[/color] MakeDate(s)
yy=[GRÅ]"20"[/GRÅ] & [color="#0000ff"]Left[/color](s,2)
mm=[color="#0000ff"]Mid[/color](s,3,2)
dd=[color="#0000ff"]Right[/color](s,2)
[b]Response[/b].Write [GRÅ]"Indata:"[/GRÅ] & yy & [GRÅ]"-"[/GRÅ] & mm & [GRÅ]"-"[/GRÅ] & dd
MakeDate=[color="#0000ff"]CDate[/color](yy & [GRÅ]"-"[/GRÅ] & mm & [GRÅ]"-"[/GRÅ] & dd)
[color="#0000ff"]End[/color] [color="#0000ff"]Function[/color]

[MÄRK]%>[/MÄRK]

 

Tacksam för hjälp

 

B

 

[inlägget ändrat 2005-03-05 19:20:18 av Snoddas 100]

[Anjuna Moon]

Inget i den koden ser ut att ge upphov till felet. Är det där verkligen hela din kod?

 

[Snoddas 100]

Nja inte hela men det finns ju html oxå postar hela så får du titta.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE HTML Public "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<title>VBF Tävlingskalender 2005</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta name="Microsoft Border" content="tb">

</head>

<body stylesrc="index.htm" background="images/Gray_Textured5204.gif"><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

 

<p align="center"><a href="index.htm" name="Topp"><img border="0" src="images/vbf.gif" width="518" height="95"></a></p>

 

<p align="center">

 

<applet code="fphover.class" width="120" height="24">

<param name="textcolor" value="#FFFFFF">

<param name="text" value="BLANKETTER">

<param name="font" value="Dialog">

<param name="fontsize" value="14">

<param name="color" value="#666666">

<param name="hovercolor" value="#C0C0C0">

<param name="bgcolor" value="#FFFFFF">

<param name="effect" value="reverseGlow">

<param name="fontstyle" value="bold">

<param name="url" valuetype="ref" value="blankett.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="text" value="DOMARE">

<param name="effect" value="reverseGlow">

<param name="font" value="Dialog">

<param name="fontsize" value="14">

<param name="fontstyle" value="bold">

<param name="textcolor" value="#FFFFFF">

<param name="color" value="#666666">

<param name="hovercolor" value="#C0C0C0">

<param name="url" valuetype="ref" value="domare.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="GÄSTBOK">

<param name="url" valuetype="ref" value="http://www.olzzon.com/g/g.php?a=s&amp;i=g16-00589-e7">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="text" value="KALENDER">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="url" valuetype="ref" value="kalender05.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="KLUBBAR">

<param name="url" valuetype="ref" value="klubbar.htm">

</applet><br>

<applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="KOMMITTÉER">

<param name="url" valuetype="ref" value="kommite.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="KURSER">

<param name="url" valuetype="ref" value="kurser.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="LÄNKAR">

<param name="url" valuetype="ref" value="links.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="MÄSTERSKAP">

<param name="url" valuetype="ref" value="mastersk.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="STYRELSE">

<param name="url" valuetype="ref" value="styrelse.htm">

</applet><br>

<applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="TEKNIKER">

<param name="url" valuetype="ref" value="tekniker.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="url" valuetype="ref" value="tjejer.htm">

<param name="text" value="TJEJER">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="UNGDOM">

<param name="url" valuetype="ref" value="ungdom.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="url" valuetype="ref" value="utb.htm">

<param name="text" value="UTBILDARE">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="EMAIL">

<param name="url" valuetype="ref" value="mailto:kansliet@vastrabf.se">

</applet> <br>

<applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="FOLKRACE">

<param name="url" valuetype="ref" value="folkrace/index.htm">

</applet> <applet code="fphover.class" width="220" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="BILSPORTKONFERENSEN">

<param name="url" valuetype="ref" value="konferensen/index.htm">

</applet> <applet code="fphover.class" width="120" height="24">

<param name="color" value="#666666">

<param name="font" value="Dialog">

<param name="fontstyle" value="bold">

<param name="fontsize" value="14">

<param name="effect" value="reverseGlow">

<param name="textcolor" value="#FFFFFF">

<param name="hovercolor" value="#C0C0C0">

<param name="text" value="RALLY">

<param name="url" valuetype="ref" value="rally/index.htm">

</applet> </p>

<hr>

 

</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">

<table width="823" border="0" align="center" cellpadding="4" cellspacing="0" bgcolor="#FFFFCC">

 

<td width="791" colspan="7" align="center"><strong>Tävlingskalender VBF visad i sportgrensordning</strong></td>

</tr>

<tr>

<td width="791"><strong>Gren</strong></td>

<td width="791"><strong>Status</strong></td>

<td width="791"><strong>Ordinarie Datum</strong></td>

<td width="791" colspan="2"><strong>NEAFP</strong></td>

<td width="791" colspan="2"><strong>Reserv Datum</strong></td>

</tr>

<tr>

<td width="791" colspan="2"><strong>Arrangör</strong></td>

<td width="791" colspan="5"><strong>Tävlingsnamn</strong></td>

</tr>

<tr>

<td width="791" colspan="2"><strong>Telefon</strong></td>

<td width="791" colspan="2"><strong>E-post</strong></td>

<td width="791" colspan="3"><strong>Hemsida</strong></td>

</tr>

</table>

<%

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

connString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/kal05.mdb")

conn.open connString

 

Set RS=conn.Execute("SELECT * FROM kal05 ORDER BY SG ASC, [Ordinarie Datum] ASC")

 

Do While Not rs.EOF

dt=rs("Ordinarie Datum")

dt2=dt

idx=InStr(dt,"-")

If idx>0 Then dt2=Left(dt,4) & Right(dt,2)

dt=MakeDate(dt)

dt2=MakeDate(dt2)

If Date>=dt And Date<=dt2 Then

' Använd denna post

End If

rs.MoveNext

Loop

 

Function MakeDate(s)

yy="20" & Left(s,2)

mm=Mid(s,3,2)

dd=Right(s,2)

Response.Write "Indata:" & yy & "-" & mm & "-" & dd

MakeDate=CDate(yy & "-" & mm & "-" & dd)

End Function

 

%>

 

 

<hr align="center" width="823" size="1" noshade>

<table width="828" border="0" align="center" cellpadding="4" cellspacing="0">

<tr>

<td width="156"><strong><%=RS("SG")%></strong></td>

<td width="158"><%=RS("Status")%></td>

<td width="142"><strong><%=RS("Ordinarie Datum")%></strong></td>

<td colspan="2" width="157"><%=RS("NEAFP")%></td>

<td width="165"><%=RS("Reserv Datum")%></td>

</tr>

<tr>

<td colspan="2" width="324"><%=RS("Arrangör")%></td>

<td colspan="4" width="484"><%=RS("Tävlingsnamn")%></td>

</tr>

<tr>

<td colspan="2" width="324"><%=RS("Telefon")%></td>

<td colspan="2" width="285"><a href="mailto:<%=RS("E-post")%>"><%=RS("E-post")%></a></td>

<td colspan="2" width="189"><a href="http://<%=RS("Hemsida")%>" target="_blank"><%=RS("Hemsida")%></a></td>

</tr>

</table>

 

<hr align="center" width="823" size="1" noshade>

<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

 

<hr>

<p align="center"><font color="#00FF00"><a href="blankett.htm">Blanketter</a> <a href="domare.htm"> Domare</a>

<a href="http://www.olzzon.com/g/g.php?a=s&amp;i=g16-00589-e7">Gästbok</a>&nbsp;

<a href="kalender05.htm">Kalender</a> <a href="klubbar.htm"> Klubbar</a> <a href="kommite.htm">Kommittéer</a>

<a href="kurser.htm"> Kurser</a>

<a href="links.htm"> Länkar<br>

</a><a href="mastersk.htm">Mästerskap</a> <a href="styrelse.htm">Styrelse</a> <a href="tekniker.htm"> Tekniker</a>

<a href="tjejer.htm"> Tjejer</a> <a href="ungdom.htm"> Ungdom</a> <a href="utb.htm"> Utbildning</a>

<a href="mailto:kansliet@vastrabf.se">Email<br>

</a><a href="folkrace/index.htm">Folkrace</a> <a href="konferensen/index.htm">Bilsportkonferensen</a>

<a href="rally/index.htm">Rally</a><br>

<br>

</font>

<font SIZE="3">©</font>2004 <font color="#0000FF"><u><a href="mailto:webmaster@vastrabf.se">webmaster@vastrabf.se</a> </u></font>

 

</td></tr><!--msnavigation--></table></body>

</html>

 

B

 

[Anjuna Moon]

Hm, ja det var ju inte konstigt att inte det där fungerar. Du försöker ju anropa recordsetet EFTER loopen är klar! Dessutom gör du inget med loopen (det är ju bara en tom loop som du gjort det)

 

Där jag skrev ' Använd denna post är där du ska hämta och använda dina databasposter.

 

[Snoddas 100]

Nu när jag gjorde lite ändringar i koden så skriver den ut en post men det ser väldigt konstigt ut.

 

se följande länk: http://www.vastrabf.se/testb.asp

 

 

B