<% Option Explicit Dim iCount Dim nCount Dim sRowColor Dim objDB Dim objRS Dim sDBName Dim berufName Dim platzhalter Dim platzhalter2 Dim platzhalter3 Dim platzhalter4 sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\\Inetpub\vhosts\planco.de\httpdocs\cgi-bin\suportnet.mdb" Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open sDBName Set objRS = objDB.Execute("SELECT workshoplinks.*, workshops.* FROM workshops LEFT JOIN workshoplinks ON workshops.Link_ID = workshoplinks.workshop_ID WHERE (((workshoplinks.workshop_ID)=[workshops].[Link_ID]))") Response.Write("") Response.Write("") Response.Write("SuPortNet Workshops") 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(" ") If objRS.EOF Then Response.Write(" ") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing Response.End End If Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("
No workshops foundWorkshops 
 
") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") If objRS.EOF Then Response.Write("No matching records found.") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing Response.End End If platzhalter4="blubbb" Do While Not objRS.EOF platzhalter3 = objRS("subjecte") If objRS("visible")=-1 Then If platzhalter4 <> platzhalter3 then Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Else Response.Write("") End If platzhalter4=platzhalter3 Response.Write("") Response.Write("") End If nCount = nCount + 1 objRS.MoveNext Loop Response.Write("
TopicPlaceFinancingTimeDownload
" & platzhalter3 & "

" & objRS("placee") & "" & objRS("financinge") & "" & objRS("timinge") & "
     ") platzhalter = objRS("DateinameE") platzhalter2 = platzhalter If platzhalter <>"" Then Response.Write("

" & platzhalter2 & "
") Else Response.Write("") End If Response.Write("
") Response.Write(" 		 ") Response.Write("
") Response.Write("Imprint
") Response.Write("") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %>