<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=e:\users\ww2.claravallis.com\database\wxv2001.mdb;Driver={Microsoft Access Driver (*.mdb)};" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "SELECT TOP 1 * FROM WxData ORDER BY Time DESC;", Conn RS.Movefirst WDAv = RS("WDAv") If WDAv >= 0 and WDAv <= 22 Then VindriktningNamn = "Nordlig" If WDAv >= 23 and WDAv <= 67 Then VindriktningNamn = "NordÖstlig" If WDAv >= 68 and WDAv <= 112 Then VindriktningNamn = "Östlig" If WDAv >= 113 and WDAv <= 155 Then VindriktningNamn = "SydÖstlig" If WDAv >= 156 and WDAv <= 202 Then VindriktningNamn = "Sydlig" If WDAv >= 203 and WDAv <= 247 Then VindriktningNamn = "SydVästlig" If WDAv >= 248 and WDAv <= 292 Then VindriktningNamn = "Västlig" If WDAv >= 293 and WDAv <= 337 Then VindriktningNamn = "NordVästlig" If WDAv >= 338 and WDAv <= 360 Then VindriktningNamn = "Nordlig" %>

Väderdata från Clara Vallis väderstation

<%=RS("Time")%>

Utomhustemp <%=formatnumber(RS("OTempAv"),1)%>° C Luftfuktighet <%=formatnumber(RS("OHumAv"),1)%>% Daggpunkt <%=formatnumber(RS("ODewAv"),1)%>° C     Vindriktning <%=VindriktningNamn%> Hastighet <%=formatnumber(RS("WSAv"),1)%> m/s Kyleffekt <%=formatnumber(RS("WCAv"),1)%>° C     <% RS.Close RS.Open "SELECT TOP 1 * FROM TodaySummary", Conn RS.Movefirst%> Utomhustemp   Max: <%=formatnumber(RS("OTempH"),1)%>°C Min: <%=formatnumber(RS("OTempL"),1)%>°C Lufttryck   Max: <%=formatnumber(RS("BaroH"),1)%> hPA/mb Min: <%=formatnumber(RS("BaroL"),1)%> hPA/mb     Nederbörd <%=formatnumber(RS("Raintoday"),1)%> mm

» Länk till svt.se - lokalt väder »  Se graf över ICV Väder «

<% Set RS = Nothing Set Conn = Nothing%>