|
Internationales Jahr der Astronomie 2009
|
Weitere Aktionen für das Internationale Jahr der Astronomie in der
Europäischen Metropolregion Nürnberg
| Zum
Kalender |
<%
Dim strDB2, strCon2
Dim objCon2, objRS2
Dim strSQL2
Dim strDB, strCon
Dim objCon, objRS
Dim strSQL, i
Dim b, Rest, ausrichtung, c1, c2, c3, c4, c5, c
b = 1
Rest = b Mod 2
If Rest > 0 Then
ausrichtung = "left"
Else
ausrichtung = "right"
End if
i = 1
strDB = "Data Source=" & Server.MapPath("../database/ain.mdb")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "Select * From iya_projekte"
objRS2.open strSQL2, objCon
Response.Write ""
Do While Not objRS2.EOF
Response.Write "- "&objRS2("Name")&"
"
objRS2.movenext
Loop
Response.Write " | "
Response.Write " "
strSQL = "Select * From iya_projekte"
objRS.open strSQL, objCon
Do While Not objRS.EOF
Rest = b Mod 2
If Rest > 0 Then
ausrichtung = "left"
Else
ausrichtung = "right"
End if
Response.Write " "
Response.Write "| | "
Response.Write ""&objRS("Name")&"
"&objRS("inst")&" | "&objRS("Datum")&"
"&objRS("Zeit")&" | "
Response.Write ""
If objRS("Bild") = "keines" then
Response.Write ""
Else
Response.Write "!["&objRS("Bild")&"](http://www.naa.net/monatsbilder/iya_images/"&objRS("Bild")&") "
End If
Response.Write objRS("Beschreibung")&" | "
Response.Write "| Zurück... | "
Response.Write " "
i = i + 1
b = b + 1
objRS.movenext
Loop
objRS.Close
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>
|
| Webseiten
betreut durch |
 |
|
