<%@ Language=VBScript %> <% '*****************************************' ' - WWW.ARCANUM-UTBILDNING.SE - ' '*****************************************' ' ' ' (c) Copyright 2002 ' ' All source code is protected by swedish ' ' and international Copyright laws. ' ' ' ' Martin Broberg (martin@broberg.nu) ' ' Andreas Hallgren (andreas@russin.nu) ' ' Göteborg 3/13/2002 ' ' ' '*****************************************' 'Skapa databaskoppling Set database = Server.CreateObject("ADODB.Connection") database.Open("DBQ=" & server.MapPath("books/arcanum.mdb") &";Driver={Microsoft Access Driver (*.mdb)};") 'Hämta rubriker för förstasidan Set rsStartpage = Server.CreateObject("ADODB.Recordset") SQLQuery = "SELECT * FROM Startpage ORDER BY ID" rsStartpage.Open SQLQuery, database, adOpenKeySet, adLockOptimistic If not (rsStartpage.EOF and rsStartpage.BOF) then Do While Not rsStartpage.EOF HTMLStart = HTMLStart & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ FormatStr(rsStartpage("Header")) & vbCrLf &_ "
" & vbCrLf &_ FormatStr(rsStartpage("Paragraph")) & vbCrLf &_ "" & vbCrLf &_ "" rsStartpage.MoveNext Loop Else HTMLStart = " " End If rsStartpage.Close database.Close %> <%=Producers%>

<%=HTMLMyOrder%>
	<%=HTMLStart%>