---

Hej
Jeg håber en af jer gider hjælpe mig.
Jeg er ved at lave en kalender hvor man kan vælge fra selectboks hvilke
måned man vil se.
Spørgsmålet er nu :
hvordan kan man få vist flere måneder - gerne alle måneder , hvis f.eks
ingen måned er valgt i selectboks .
Jeg skal vel lave et Array som indeholder alle måneder - men jeg har prøvet
men kan ikek få det til at virke .

På forhånd tak - hilsen Otto

Min kode er her :

<FORM Action="default.asp" Method="post">
<Select NAME="month" onChange="form.submit();">
<Option Selected>Vælg Måned</Option>
<Option Value="1">Januar</Option>
<Option Value="2">Feburar</Option>
<Option Value="3">Marts</Option>
<Option Value="4">April</Option>
<Option Value="5">Maj</Option>
<Option Value="6">Juni</Option>
<Option Value="7">Juli</Option>
<Option Value="8">August</Option>
<Option Value="9">September</Option>
<Option Value="10">Oktober</Option>
<Option Value="11">November</Option>
<Option Value="12">December</Option>
</Select>
</form>

</td>
</tr>
<tr>
<td colspan=2>

<%
varmonth=request.form("month")


' vores recordset oprettes med static cursor
Set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorType = adOpenStatic
RS.ActiveConnection = Con

' vores forespørgsels string defineres
RS.Open= "Select * from kalender where month like '"& varmonth &"' "&_
"ORDER by year , month , dato "


--
_______________________________________________

Link database: http://www3.brinkster.com/otto/web-links/
_______________________________________________

Otto Leholt - Baggesensgade 19 , 2200 N , Copenhagen
tlf 3537 4928 mobil: 2076 9094 www.leholt.dk
_______________________________________________

---

Otto escribió / skrev

> ' vores foresp›rgsels string defineres
> RS.Open= "Select * from kalender where month like '"& varmonth &"'
> "&_ "ORDER by year , month , dato "


dim SQL

SQL="Select * from kalender"

if varmonth <> "" then
SQL=SQL & " where month like '"& varmonth &"'"
end if

SQL= " ORDER by year , month , dato "


RS.Open SQL

---

Hej Lars
Tak for din hurtige respons - jeg kan godt se ideen ,
men det virker ikke. Får denne fejl

ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE',
'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

????
Håber du kan se hvhad der er galt -
siden kan ses på http://213.237.9.227/www.frberg-hf.dk/intranet/kalender/

hilsen Otto


"Lars Hoffmann" <lars@hoffmann.ac> wrote in message
news:Xns9297CE00C7CD1larshoffmannac@130.225.247.90...
> Otto escribió / skrev
>
> > ' vores foresp>rgsels string defineres
> > RS.Open= "Select * from kalender where month like '"& varmonth &"'
> > "&_ "ORDER by year , month , dato "
>
>
> dim SQL
>
> SQL="Select * from kalender"
>
> if varmonth <> "" then
> SQL=SQL & " where month like '"& varmonth &"'"
> end if
>
> SQL= " ORDER by year , month , dato "
>
>
> RS.Open SQL
>

---

Hej igen
Ok jeg har nu lavet følgende :
IF varmonth <>"" Then
RS.Open= "Select * from kalender where month like '"& varmonth &"' "&_
"ORDER by year , month , dato "
ELSE
RS.Open= "Select * from kalender ORDER by year , month , dato "
END IF

og det virker øjensynligt... men om det er den rigtige måde at gøre det på
ved jeg ikke helt ...?
hilsen Otto

"Otto" <leholt@worldonline.dk> wrote in message
news:gUml9.46906$Qk5.1838417@news010.worldonline.dk...
> Hej Lars
> Tak for din hurtige respons - jeg kan godt se ideen ,
> men det virker ikke. Får denne fejl
>
> ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE',
> 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.
>
> ????
> Håber du kan se hvhad der er galt -
> siden kan ses på http://213.237.9.227/www.frberg-hf.dk/intranet/kalender/
>
> hilsen Otto
>
>
> "Lars Hoffmann" <lars@hoffmann.ac> wrote in message
> news:Xns9297CE00C7CD1larshoffmannac@130.225.247.90...
> > Otto escribió / skrev
> >
> > > ' vores foresp>rgsels string defineres
> > > RS.Open= "Select * from kalender where month like '"& varmonth &"'
> > > "&_ "ORDER by year , month , dato "
> >
> >
> > dim SQL
> >
> > SQL="Select * from kalender"
> >
> > if varmonth <> "" then
> > SQL=SQL & " where month like '"& varmonth &"'"
> > end if
> >
> > SQL= " ORDER by year , month , dato "
> >
> >
> > RS.Open SQL
> >
>
>

---

Otto escribió / skrev

> ODBC Microsoft Access Driver] Invalid SQL statement; expected
> 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

Du har garantere glemt

SQL= SQL & "....."

og kun skrevet

SQL= "....."

MEd venlig hilsen
Lars Hoffmann

---

Lars Hoffmann escribió / skrev

> Du har garantere glemt
>
> SQL= SQL & "....."
>
> og kun skrevet
>
> SQL= "....."

Ligesom jeg har gjort i den "order by" clausul der ender SQL sætningen
)))

---

Som svar på skriblerier forfattet af Otto

> hvordan kan man få vist flere måneder - gerne alle måneder , hvis
> f.eks ingen måned er valgt i selectboks .

Opbyg din SQL dynamisk som Lars foresl[r

> Jeg skal vel lave et Array som indeholder alle måneder - men jeg har
> prøvet men kan ikek få det til at virke .
>
Du kan chekke på flere måneder hvis det er du vil

fx
Select * From myMonthTable Where ShortName In ('Jan', 'Feb')

Men det kommer svjv lidt an på database system

mvh/Peter Lykkegaard

---

Hej Peter og Lars
tak for jeres respons - jeg har fået gæster - så jeg har desværre ikke
tid lige nu til at prøve hvad I foreslår .. men glæder mig til det ..
hilsen otto

"Peter Lykkegaard" <polonline@hotmail.com> wrote in message
news:an4tud$r72$1@sunsite.dk...
> Som svar på skriblerier forfattet af Otto
>
> > hvordan kan man få vist flere måneder - gerne alle måneder , hvis
> > f.eks ingen måned er valgt i selectboks .
>
> Opbyg din SQL dynamisk som Lars foresl[r
>
> > Jeg skal vel lave et Array som indeholder alle måneder - men jeg har
> > prøvet men kan ikek få det til at virke .
> >
> Du kan chekke på flere måneder hvis det er du vil
>
> fx
> Select * From myMonthTable Where ShortName In ('Jan', 'Feb')
>
> Men det kommer svjv lidt an på database system
>
> mvh/Peter Lykkegaard
>
>

---

Lars og Peter
tak for hjælpen - det fungerer fint efter rettelsen
Hilsen Otto


"Otto" <leholt@worldonline.dk> wrote in message
news:aYol9.48155$Qk5.1857918@news010.worldonline.dk...
> Hej Peter og Lars
> tak for jeres respons - jeg har fået gæster - så jeg har desværre ikke
> tid lige nu til at prøve hvad I foreslår .. men glæder mig til det ..
> hilsen otto
>
> "Peter Lykkegaard" <polonline@hotmail.com> wrote in message
> news:an4tud$r72$1@sunsite.dk...
> > Som svar på skriblerier forfattet af Otto
> >
> > > hvordan kan man få vist flere måneder - gerne alle måneder , hvis
> > > f.eks ingen måned er valgt i selectboks .
> >
> > Opbyg din SQL dynamisk som Lars foresl[r
> >
> > > Jeg skal vel lave et Array som indeholder alle måneder - men jeg har
> > > prøvet men kan ikek få det til at virke .
> > >
> > Du kan chekke på flere måneder hvis det er du vil
> >
> > fx
> > Select * From myMonthTable Where ShortName In ('Jan', 'Feb')
> >
> > Men det kommer svjv lidt an på database system
> >
> > mvh/Peter Lykkegaard
> >
> >
>
>