<% public function GetImageSize(ByVal strImagePath) dim ImageType, arrImageDimensions(2), fso, file, s, ns, n ImageType = lcase(Right(strImagePath, len(strImagePath) - instrrev(strImagePath, ".", -1))) Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile(strImagePath,1) Select Case ImageType Case "jpg", "jpeg" file.Skip(2) ns = file.Read(2) Do While Not (ns = "˙À" Or ns = "˙Â") ns = file.Read(2) n = HexToDec(HexAt(ns,1) & HexAt(ns,2)) n = n - 2 file.Skip(n) ns = file.Read(2) Loop file.Skip(3) s = file.Read(4) arrImageDimensions(0) = HexToDec(HexAt(s,3) & HexAt(s,4)) arrImageDimensions(1) = HexToDec(HexAt(s,1) & HexAt(s,2)) Case "gif" s = Right(file.Read(10),4) arrImageDimensions(0) = HexToDec(HexAt(s,2) & HexAt(s,1)) arrImageDimensions(1) = HexToDec(HexAt(s,4) & HexAt(s,3)) case "bmp" s = Right(file.Read(24), 8) arrImageDimensions(0) = HexToDec(HexAt(s,4) & HexAt(s,3)) arrImageDimensions(1) = HexToDec(HexAt(s,8) & HexAt(s,7)) case "wmf" s = Right(file.Read(14), 4) arrImageDimensions(0) = HexToDec(HexAt(s,1) & HexAt(s,1)) arrImageDimensions(1) = HexToDec(HexAt(s,4) & HexAt(s,3)) case "png" s = Right(file.Read(24), 8) arrImageDimensions(0) = HexToDec(HexAt(s,3) & HexAt(s,4)) arrImageDimensions(1) = HexToDec(HexAt(s,7) & HexAt(s,8)) End Select file.Close Set file = Nothing GetImageSize = arrImageDimensions end function private function HexAt(s, n) HexAt = Hex(Asc(Mid(s, n, 1))) if len(HexAt) = 1 then HexAt = "0" & HexAt end if end function private function HexToDec(cadhex) Dim n, i, ch, decimal decimal = 0 n = Len(cadhex) For i=1 To n decimal = decimal * 16 ch = Mid(cadhex, i, 1) decimal = decimal + inStr("0123456789ABCDEFabcdef", ch) -1 Next HexToDec = decimal end function %>

 

 

Internationales Jahr der Astronomie 2009

Webseiten für die Metropolregion Nürnberg

Kalendarium für das Internationale Jahr der Astronomie in der
Europäischen Metropolregion Nürnberg

Änderungen durch die Veranstalter vorbehalten, ohne Gewähr.

 

 

 

Veranstaltungen am:

Format: tt.mm.yyyy

 

 

Alle Termine in:

<% Dim strDB, strCon Dim objCon, objRS Dim strSQL strDB = "Data Source=" & Server.MapPath("../database/iyaterm.mdb") strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "Select Stadt From Orte group by Stadt " objRS.open strSQL, objCon Do While Not objRS.EOF For i = 0 To 1 If Not objRS.EOF Then Response.Write "" If Not objRS.EOF Then objRS.movenext Else Response.Write "" End If Next Response.Write "" Loop objRS.Close Set objRS = Nothing objCon.Close Set objCon = Nothing %>
"& objRS("Stadt") &"

 

Webseiten betreut durch Logo Nürnberger Astronomische Gesellschaft
Impressum Astrojahr 2009