Vis denne uges koncert(er) fra database

Giver følgende det resultat, du ønsker?

Set rs = Conn.Execute("Select Dato, Format(Dato, 'dd. mm hh:nn') As CDato, Spillested, [By] Where (((DatePart("ww",[Dato],2,2)) = DatePart("ww",Date(),2,2)) And ((DatePart("yyyy",[Dato],2,2)) = Year(Date())))")

While Not rs.EOF
  Response.Write WeekDayName(WeekDay(rs("Dato"))) & ", " & rs("Dato") & "<br>" & rs("Spillested") & ", " & rs("By") & "<br><br>"
  rs.MoveNext
Wend

Den sidste rs("Dato") skal i stedet hedde rs("CDato").

Og fjern lige alle de der " i SQL-sætningen.

Hvilken syntaks skal jeg sætte det ind i? Jeg er grøn - men prøver...
Jeg skal vel indlede med at connecte:

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\kalender.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

Og så lægge dit forslag ind i en tabel..?

Skal jeg ikke afslutte med noget à la
<%
Conn.Close
set Conn = nothing

???

Du er vel ikke mere "grøn" end, at du kan se princippet i det?

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\peterogdeandredk\db\kalender.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

Set rs = Conn.Execute("Select Dato, Format(Dato, 'dd. mm hh:nn') As CDato, Spillested, [By] Where (((DatePart(ww,[Dato],2,2)) = DatePart(ww,Date(),2,2)) And ((DatePart(yyyy,[Dato],2,2)) = Year(Date())))")

While Not rs.EOF
  Response.Write WeekDayName(WeekDay(rs("Dato"))) & ", " & rs("CDato") & "<br>" & rs("Spillested") & ", " & rs("By") & "<br><br>"
  rs.MoveNext
Wend

Set rs = Nothing
Conn.Close
set Conn = nothing

Jeg arbejder lige med ../koncert.asp i lyset af din hjælp. Vender tilbage så snart jeg kan. Indtil videre skal du have tak :-)

Ok...

Jeg kom vist aldrig videre, men du gjorde en indsats. Tak for det - måske du har lyst til at tjene "dine" point i det nye spm http://www.eksperten.dk/spm/511268
Du er også velkommen til at lægge et svar her og få resten af de indtil nu ubrugte point!

Det kan jeg godt ;)

Interessant hp du har! Ville såmænd ønske vi havde råd til bare at lade dig lave hele molevitten. Men så lærer jeg sgu' da aldrig noget, vel?