<% 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.

 

 

 

Zurück zur Übersicht

<% Dim strDB, strCon Dim objCon, objRS Dim strSQL IIID = Request.QueryString("IID") 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 * From Orte where Stadt like '" & IIID & "'" objRS.open strSQL, objCon Response.Write "

"& objRS("Stadt") &"

" Do While Not objRS.EOF Response.Write "

"& objRS("Inst") &"

" Response.Write "

"& objRS("Bemerkung") &"

" Response.Write "

 

" objRS.movenext Loop Response.Write "" objRS.Close Set objRS = Nothing objCon.Close Set objCon = Nothing 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 * From Termine where Ort like '" & IIID & "' order by DStart, TStart " objRS.open strSQL, objCon Do While Not objRS.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" objRS.movenext Loop objRS.Close Set objRS = Nothing objCon.Close Set objCon = Nothing Response.Write "
"&WeekdayName(Weekday(objRS("DStart")), True)&", "& Day(objRS("DStart")) & "." & Month(objRS("DStart")) & "." If IsNull(objRS("DEnde")) = False Then Response.Write " bis " & WeekdayName(Weekday(objRS("DEnde")), True) &", "&Day(objRS("DEnde")) & "." & Month(objRS("DEnde")) & "." If IsNull(objRS("TStart")) = False Then Response.Write " um " If IsNull(objRS("TStart")) = False Then Response.Write FormatDateTime(objRS("TStart"), 4) & " Uhr" If IsNull(objRS("TEnde")) = False Then Response.Write " - " & FormatDateTime(objRS("TEnde"), 4) & " Uhr" Response.Write "
"& objRS("Bemerkung") &"
 
" %>

Zurück zur Übersicht

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