<%@ 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 %> ROPE WEBDESIGN
START | WEB | DESIGN | KUNDER | KONTAKT NYHETER
<%IF PageText = "kontakt" THEN%> <%ELSEIF PageText = "kunder" THEN%> <% response.write "
Det finns plats för fler kunder!
" ELSE ingress1 = replace(PageText,vbCrLf,"
") ingresstext = replace(ingress1,chr(146),chr(39)) response.write ingresstext & "

 

" END IF%>
<%do until rs.eof%> <% rs.movenext loop rs.close set rs = nothing %>
<%response.write rs("NewsText")%><%IF rs("NewsURL") <> EMPTY THEN %><%response.write "
Gå dit>>"%><%END IF%>
INFO@ROPE.NU | © ROPE WEBDESIGN 1998-<%response.write year(now)%> | 070-755 01 02
<% db.close set db = nothing %>