<%Option Explicit Response.Expires=0 Response.Cookies("LangID") = "1" Dim Connect, RecSet, strConnection, strSql '*** Swedish date function *** public function swedishDate(Datum) Dim d, m d = day(Datum) if len (d) < 2 then d = "0" & d m = month(Datum) if len (m) < 2 then m = "0" & m swedishDate = Year(Datum) & "-" & m & "-" & d end function strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Replace(Server.MapPath("nyttlist.asp"),"nyttlist.asp","databas\nyheter.mdb") %> <% if request.QueryString("LangID") = "1" or request.QueryString("LangID") = "2" then response.Cookies("LangID") = request.QueryString("LangID") strOnload = "onload=""reload()"";" end if %>

<% select case (request.Cookies("LangID")) case "1" %> Hem   |   Vilka vi är   |   Vad vi har gjort   |   Hur vi gör   |   Nytt om oss   |   Kontakta oss <% case "2" %> Home   |   Who we are   |   What we have done   |   How we do it   |   Contact us <% end select %> <% select case (request.Cookies("LangID")) case "1" %> <% case "2" %> <% end select %> <% select case (request.Cookies("LangID")) case "1" %> Nytt om oss <%Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open strConnection Set RecSet = Server.CreateObject("ADODB.Recordset") strSql = "SELECT * FROM nyheter WHERE Datum<= #" & SwedishDate(Now()) & "# ORDER BY Datum desc" RecSet.Open strSql, Connect, adOpenStatic, adLockOptimistic if RecSet.EOF=true then%> Det finns inga nyheter för tillfället <%else Do until RecSet.EOF%> <%=RecSet("Datum")%> <%=RecSet("Rubrik")%> <%if Len(RecSet("Text"))>150 then %> <%=Replace(Left(RecSet("Text"),150),vbCRLF," ")%>... <%else%> <%=Replace(RecSet("Text"),vbCRLF," ")%>   <%end if %> ">Läs mer > <%RecSet.MoveNext Loop RecSet.Close Connect.Close end if%> <% case "2" %> <% end select %> © Spotlight PR   |   info@spotlightpr.se