<% Option Explicit Dim iCount Dim kCount Dim mCount Dim nCount Dim sRowColor Dim objDB Dim objRS Dim sDBName Dim euD (40) Dim noneuD (40) Dim euE (40) Dim noneuE (40) Dim platzhalter Dim lage iCount=0 kCount=0 nCount=1 sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\\Inetpub\vhosts\planco.de\httpdocs\cgi-bin\partner.mdb" Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open sDBName Set objRS = objDB.Execute("select * from EUnationen") Do While Not objRS.EOF iCount = iCount + 1 euD(iCount) = objRS("NationD") euE(iCount) = objRS("NationE") objRS.MoveNext Loop objRS.Close Set objRS = Nothing Set objRS = objDB.Execute("select * from NONEUnationen") Do While Not objRS.EOF kCount = kCount + 1 noneuD(kCount) = objRS("NationD") noneuE(kCount) = objRS("NationE") objRS.MoveNext Loop objRS.Close Set objRS = Nothing Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write("") For mCount = 1 to iCount Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write("") Set objRS = objDB.Execute("select * from partner where NationE = '" & euE(mCount) & "'") Do While Not objRS.EOF If objRS("visible")=-1 Then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Else Response.Write("" & objRS("PartnernameE") & "") End If Response.Write("") 'platzhalter = objRS("DateinameE") 'If platzhalter <>"" Then 'Response.Write("

download

") 'Else ' Response.Write("") 'End If 'Response.Write("") Response.Write("") Response.Write("") nCount = nCount + 1 End If objRS.MoveNext Loop objRS.Close Set objRS = Nothing Next Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write("") For mCount = 1 to kCount Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write("") Set objRS = objDB.Execute("select * from partner where NationD = '" & noneuE(mCount) & "'") Do While Not objRS.EOF lage = objRS("LageD") If objRS("visible")=-1 Then Response.Write("") Response.Write("") Response.Write("") Response.Write("") End If If lage<>"" Then Response.Write("" & objRS("PartnernameE") & "") Else Response.Write("" & objRS("PartnernameD") & "") End If Response.Write("") 'Response.Write("") Response.Write("") Response.Write("") nCount = nCount + 1 End If objRS.MoveNext Loop objRS.Close Set objRS = Nothing Next Response.Write("

	Partners from EU Countries and individual partner projects ") Response.Write(" Most partners participate with specific own 'partner projects' which will then form an important element of the experience exchange.") Response.Write(" Other partners, particularly from Nordic countries, focus on the experience exchange with no specific own projects.") Response.Write("
	") Response.Write("You will find below the partner project descriptions. To be viewed in the Internet, due to the file size, the files do not contain pictures and maps.") Response.Write(" The complete files including all maps and pictures are available for download. ") Response.Write("
	1. Partners from EU Countries and individual partner projects
	" & euE(mCount) & "
	" & nCount & ".	") If objRS("LageD")<>"" Then Response.Write("" & objRS("PartnernameE") & "	" & objRS("KurztextE") & "	") Response.Write("") Response.Write("
	2. Partner from Non-EU-Countries
	" & noneuE(mCount) & "
	" & nCount & ".	") If lage="oslo" Then Response.Write("" & objRS("PartnernameE") & "	" & objRS("KurztextE") & "	") 'platzhalter = objRS("DateinameD") 'If platzhalter <>"" Then 'platzhalter = "..\downloads\" + platzhalter ' Response.Write(" download ") 'Else ' Response.Write("") 'End If 'Response.Write("	") Response.Write("") Response.Write("

") Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("

") Response.Write(" Imprint

") Response.Write("") Response.Write("") objDB.Close Set objDB = Nothing %>