%@ LANGUAGE=VBSCRIPT %>
<%
'Set default values
database = "/_dbrope03/rope03db.mdb"
'database connection
myDSN="Provider=Microsoft.Jet.OLEDB.4.0"
myDSN = myDSN & ";Data Source=" & Server.Mappath(database)
myDSN = myDSN & ";User ID=Admin; Password="
myDSN = myDSN & ";"
Set db = Server.CreateObject("ADODB.Connection")
db.Open myDSN
'//pulls the top 5 news
SET rs=Server.CreateObject("ADODB.RecordSet")
SQLn = "SELECT TOP 5 NewsText, NewsURL FROM News"
SQLn = SQLn & " ORDER BY NID Desc;"
rs.Open SQLn,db,3,3
'//pulls the content
IF request.querystring("show") <> Empty THEN
IF request.querystring("show") = "kontakt" THEN
PageText = "kontakt"
ELSEIF request.querystring("show") = "kunder" THEN
SET rsC=Server.CreateObject("ADODB.RecordSet")
mySQL = "Select * FROM Customer"
rsC.Open mySQL, db
PageText = "kunder"
ELSE
SET rsC=Server.CreateObject("ADODB.RecordSet")
mySQL = "Select PageText FROM Content"
mySQL = mySQL & " WHERE Page =" & """" & request.querystring("show") & """"
rsC.Open mySQL, db
PageText = rsC("PageText")
rsC.close
set rsC = nothing
END IF
ELSE
SET rsC=Server.CreateObject("ADODB.RecordSet")
mySQL = "Select PageText FROM Content"
mySQL = mySQL & " WHERE Page = 'start'"
rsC.Open mySQL, db
PageText = rsC("PageText")
rsC.close
set rsC = nothing
END IF
%>