<%
'SQL forespørgelse
strSQL = "Select * from Content Where Id = 1"
' udfør forespørgelse (rs indeholder nu resultatet)
Set rshome = Conn.Execute(strSQL)
' Gennemløb RecordSet (rs) med en løkke
Do
' Det undersøges om sprog er valgt til dansk eller engelsk, og inholdet udskrives i forhold til dette valg
If Session("language") = "danish" then
Response.Write ""
Response.Write "
"
Response.Write rshome("ContentDanish")
Response.Write "
"
Else
Response.Write ""
Response.Write "
"
Response.Write rshome("ContentEnglish")
Response.Write "
"
End if
' gå til næste Record i rs
rshome.MoveNext
' Fortsæt indtil rs er gennemløbet EOF (End Of File)
Loop While Not rshome.EOF
%>
<%
' her laves et lille nyhedsmodul, som viser den nyeste skrevne nyhed på forsiden.
If Session("language") = "danish" then
Response.Write "
Sidste nyt
"
Else
Response.Write "
Latest news
"
End if
%>