Server error

[Valentin]

I have been using the following query for some time to download the data from the website "Nationale loterij" (Belgium). Most of the time the query works fine but sometimes I get the message "server error Section = ResponseHeader Detail = CR must by followed with LF". I've already changed the code with "cookies ignore". This has worked for quite some time but for example today it failed once and worked later in the day.

let

Source = Csv.Document(Web.Contents("https://www.nationale-loterij.be/api/drawresults/Elot/drawresultinfo/exportcsv?startDate=2020-12-01T00:00:00.0000000&endDate=2020-12-31T23:59:59.0000000", [Headers=[cookies="ignore"]]),[Delimiter=";", Columns=8, Encoding=1252, QuoteStyle=QuoteStyle.None]),

#"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}, {"Column6", type text}, {"Column7", type text}, {"Column8", type text}}),

#"Removed Top Rows" = Table.Skip(#"Changed Type",1),

#"Promoted Headers" = Table.PromoteHeaders(#"Removed Top Rows", [PromoteAllScalars=true]),

#"Changed Type1" = Table.TransformColumnTypes(#"Promoted Headers",{{"Datum", type date}, {"Nummer 1", Int64.Type}, {"Nummer 2", Int64.Type}, {"Nummer 3", Int64.Type}, {"Nummer 4", Int64.Type}, {"Nummer 5", Int64.Type}, {"Ster 1", Int64.Type}, {"Ster 2", Int64.Type}}),

#"Kept First Rows" = Table.FirstN(#"Changed Type1",1)

in

#"Kept First Rows"

 

[sandy666]

it works for me

let
    Source = Csv.Document(Web.Contents("https://www.nationale-loterij.be/api/drawresults/Elot/drawresultinfo/exportcsv?startDate=2020-12-01T00:00:00.0000000&endDate=2020-12-31T23:59:59.0000000"),[Delimiter=";", Columns=8, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    Skip = Table.Skip(Source,1),
    Promote = Table.PromoteHeaders(Skip, [PromoteAllScalars=true]),
    Type = Table.TransformColumnTypes(Promote,{{"Datum", type date}, {"Nummer 1", Int64.Type}, {"Nummer 2", Int64.Type}, {"Nummer 3", Int64.Type}, {"Nummer 4", Int64.Type}, {"Nummer 5", Int64.Type}, {"Ster 1", Int64.Type}, {"Ster 2", Int64.Type}}),
    FirstN = Table.FirstN(Type,1)

in
    FirstN

 

[Valentin]

Someone an idea why it sometimes doesn't work?
and what can I do to prevent that, for example with an "On error"

 

[Valentin]

have found other solution, without power query. This has already worked dozens of times without server error

ShLottoData.QueryTables.Add("URL;https://www.nationale-loterij.be/api/drawresults/Lotto6/drawresultinfo/exportcsv?startDate=2020-12-23T00:00:00.0000000&endDate=2020-12-23T23:59:59.0000000", Destination:=Range("A1")).Refresh True