Links
Internationale Seiten des IYA 2009
Zentrale Webseiten für internationale Koordination und Ereignisse.
Seiten
des deutschen Knotens zum IYA 2009
Zentrale Webseiten für innerdeutsche Koordination und Ereignisse.
<%
Dim strDB, strCon
Dim objCon, objRS
Dim strSQL
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")
strSQL = "Select * From iya_links WHERE show = true order by dstamp, tstamp"
objRS.open strSQL, objCon
Do While Not objRS.EOF
Response.Write ""&objRS("link")&"
"&objRS("bemerkung")&" "
objRS.movenext
Loop
objRS.Close
Set objRS = Nothing
objCon.Close
Set objCon = Nothing
%>
|
