sovicell
About Sovicell
Products
Contract Services
Science & Technology
News & Events
Career
News
Events
Trusted ADMET
products & services

News

News & Events

Events

<% ' Event details can stored in the database in the T1 and T10 tables. ' Get the module details for all Events (pageId=674) and list them in order of LevelNum. SQL = "SELECT id, templateId FROM Modules WHERE pageID = 674 Order By LevelNum" Set RS = ODBConnect.Execute(SQL) While Not RS.EOF Select Case RS("templateId") Case 1 SQLT1 = "Select content From T1 where moduleID = " & RS("id") & "" Set RST1 = ODBConnect.Execute(SQLT1) Content = RST1("content") ' SQLLink gets the moduleID from the Link table, and loops around the recordset ' replacing all occurrences of "LinkText" in the content text of this moduleID SQLLink = "Select * From link where ModuleID = " & RS("id") & "" Set GETLink = ODBConnect.Execute(SQLLink) While NOT GETLink.EOF LinkText = GETLink("LinkText") LinkCode = GETLink("LinkCode") LinkID = GETLink("ID") Content = Replace(Content, LinkText, LinkCode) GETLink.MoveNext Wend Content = Replace(Content, VbCrLf, "
") Response.Write Content & "
" Case 10 SQLT10 = "Select title, content, startDate, endDate From T10 where moduleID = " & RS("id") & " Order By endDate Desc, startDate Desc" Set RST10 = ODBConnect.Execute(SQLT10) While Not RST10.EOF Content = RST10("content") Response.Write "" If RST10("startDate")<>RST10("endDate") Then Response.Write FormatDateTime(RST10("startDate"),1) & " - " & FormatDateTime(RST10("endDate"),1) Else Response.Write FormatDateTime(RST10("startDate"),1) End If Response.Write "
" Response.Write RST10("title") & "
" Content = Replace(Content, VbCrLf, "
") Response.Write "" & Content & "

" RST10.MoveNext Wend End Select RS.MoveNext Wend %>
website by
College Hill - Life Sciences
Sovicell GMBH, Deutscher Platz 5a, 04103 Leipzig, Germany    t: +49 341 520 44 0   f: +49 341 520 44 12
Imprint   Terms & Conditions