<%
Option Explicit
Dim conn
Dim RSWeather
Dim ThePicture
set conn = server.createobject ("adodb.connection")
conn.open "Pogoda", "sa", "twoje_haslo"
set RSWeather = conn.Execute("select PathToCurrentWeather from
 WeatherCond" _
  & "where WheatherDate = " & Date & "'")
response.contenttype = "image/gif"
set ObjBin = server.createobject("bin.binary")
ThePicture = ObjBinReadFile(RSWeather("PathToCurrentWeather"))
response.binarywrite(ThePicture)
set ObjBin = Nothing
%>
