| |
<%If layoutid = "1" Then%>
<%If special1 = "picture" Then%>
<%If cell1link <> "" Then%>
<%Else%>
<%End if%>
NEWS
<%
'Öppnar och kopplar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("data/data01.mdb")&";pwd=skovde"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From news Where public = '1' And layout <> '1' Order by date DESC"
RecSet.Open SQL, Connect, 3, 3
'Meddelande vid tom databas
If RecSet.EOF Then
Response.Write "No news at this moment!."
End If
'Listar nyheterna
antal = 0
Do until RecSet.EOF Or antal >= 3
antal = antal + 1
'Gör en sammanfattning/ingress
smalltext = Replace(RecSet("text"),"
"," ")
smalltext = Left(smalltext,150)
smalltext = smalltext &"..."
%>
&show=read"><%=RecSet("headline")%>
<%=RecSet("date")%>
<%=smalltext%>
<%
RecSet.Movenext
Loop
'Stänger databasen
RecSet.Close : Set RecSet = nothing
Connect.Close : Set Connect = nothing
%> |
|
<%Else%>
ARTICLES
<%
'Öppnar och kopplar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("data/data01.mdb")&";pwd=skovde"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From news Where public = '1' And layout = '1' Order by date DESC"
RecSet.Open SQL, Connect, 3, 3
'Meddelande vid tom databas
If RecSet.EOF Then
Response.Write "No articles at this moment!."
End If
'Listar nyheterna
antal = 0
Do until RecSet.EOF Or antal >= 3
antal = antal + 1
'Gör en sammanfattning/ingress
smalltext = Replace(RecSet("text"),"
"," ")
smalltext = Left(smalltext,150)
smalltext = smalltext &"..."
%>
&show=read"><%=RecSet("headline")%>
<%=RecSet("date")%>
<%=smalltext%>
<%
RecSet.Movenext
Loop
'Stänger databasen
RecSet.Close : Set RecSet = nothing
Connect.Close : Set Connect = nothing
%> |
|
<%End if%>
|
<%If cell2link <> "" Then%>
<%Else%>
<%End if%>
|
<%If cell3link <> "" Then%>
<%Else%>
<%End if%>
|
<%If cell4link <> "" Then%>
<%Else%>
<%End if%>
|
<%ElseIf layoutid = "2" Then%>
<%
'Öppnar och kopplar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("data/data01.mdb")&";pwd=skovde"
gameid = CInt(gameid)
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From games Where id = "&gameid
RecSet.Open SQL, Connect, 3, 3
%>
 ">
|
|
" alt="">
|
<%=RecSet("home")%> |
|
<%=RecSet("guests")%> |
<%
'Stänger databasen
RecSet.Close : Set RecSet = nothing
Connect.Close : Set Connect = nothing
%>
|
<%If cell2link <> "" Then%>
<%Else%>
<%End if%>
|
<%If cell3link <> "" Then%>
<%Else%>
<%End if%>
|
<%If cell4link <> "" Then%>
<%Else%>
<%End if%>
|
<%ElseIf layoutid = "3" Then%>
<%If special1 = "picture" Then%>
<%If cell1link <> "" Then%>
<%Else%>
<%End if%>
<%ElseIf special1 = "news" Then%>
NEWS
<%
'Öppnar och kopplar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("data/data01.mdb")&";pwd=skovde"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From news Where public = '1' And layout <> '1' Order by date DESC"
RecSet.Open SQL, Connect, 3, 3
'Meddelande vid tom databas
If RecSet.EOF Then
Response.Write "No news at this moment!."
End If
'Listar nyheterna
antal = 0
Do until RecSet.EOF Or antal >= 3
antal = antal + 1
'Gör en sammanfattning/ingress
smalltext = Replace(RecSet("text"),"
"," ")
smalltext = Left(smalltext,150)
smalltext = smalltext &"..."
%>
&show=read"><%=RecSet("headline")%>
<%=RecSet("date")%>
<%=smalltext%>
<%
RecSet.Movenext
Loop
'Stänger databasen
RecSet.Close : Set RecSet = nothing
Connect.Close : Set Connect = nothing
%> |
|
<%Else%>
ARTICLES
<%
'Öppnar och kopplar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("data/data01.mdb")&";pwd=skovde"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From news Where public = '1' And layout = '1' Order by date DESC"
RecSet.Open SQL, Connect, 3, 3
'Meddelande vid tom databas
If RecSet.EOF Then
Response.Write "No articles at this moment!."
End If
'Listar nyheterna
antal = 0
Do until RecSet.EOF Or antal >= 3
antal = antal + 1
'Gör en sammanfattning/ingress
smalltext = Replace(RecSet("text"),"
"," ")
smalltext = Left(smalltext,150)
smalltext = smalltext &"..."
%>
&show=read"><%=RecSet("headline")%>
<%=RecSet("date")%>
<%=smalltext%>
<%
RecSet.Movenext
Loop
'Stänger databasen
RecSet.Close : Set RecSet = nothing
Connect.Close : Set Connect = nothing
%> |
|
<%End if%>
|
<%If special2 = "picture" Then%>
<%If cell2link <> "" Then%>
<%Else%>
<%End if%>
<%ElseIf special2 = "news" Then%>
NEWS
<%
'Öppnar och kopplar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("data/data01.mdb")&";pwd=skovde"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From news Where public = '1' And layout <> '1' Order by date DESC"
RecSet.Open SQL, Connect, 3, 3
'Meddelande vid tom databas
If RecSet.EOF Then
Response.Write "No news at this moment!."
End If
'Listar nyheterna
antal = 0
Do until RecSet.EOF Or antal >= 3
antal = antal + 1
'Gör en sammanfattning/ingress
smalltext = Replace(RecSet("text"),"
"," ")
smalltext = Left(smalltext,150)
smalltext = smalltext &"..."
%>
&show=read"><%=RecSet("headline")%>
<%=RecSet("date")%>
<%=smalltext%>
<%
RecSet.Movenext
Loop
'Stänger databasen
RecSet.Close : Set RecSet = nothing
Connect.Close : Set Connect = nothing
%> |
|
<%Else%>
ARTICLES
<%
'Öppnar och kopplar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("data/data01.mdb")&";pwd=skovde"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From news Where public = '1' And layout = '1' Order by date DESC"
RecSet.Open SQL, Connect, 3, 3
'Meddelande vid tom databas
If RecSet.EOF Then
Response.Write "No articles at this moment!."
End If
'Listar nyheterna
antal = 0
Do until RecSet.EOF Or antal >= 3
antal = antal + 1
'Gör en sammanfattning/ingress
smalltext = Replace(RecSet("text"),"
"," ")
smalltext = Left(smalltext,150)
smalltext = smalltext &"..."
%>
&show=read"><%=RecSet("headline")%>
<%=RecSet("date")%>
<%=smalltext%>
<%
RecSet.Movenext
Loop
'Stänger databasen
RecSet.Close : Set RecSet = nothing
Connect.Close : Set Connect = nothing
%> |
|
<%End if%>
|
<%If cell3link <> "" Then%>
<%Else%>
<%End if%>
|
<%ElseIf layoutid = "4" Then%>
<%If cell1link <> "" Then%>
<%Else%>
<%End if%>
<%If cell1link <> "" Then%>
<%Else%>
<%End if%>
|
<%If cell2link <> "" Then%>
<%Else%>
<%End if%>
|
<%If cell3link <> "" Then%>
<%Else%>
<%End if%>
|
<%Else%>
Error. Code: A100404.
<%End if%>
|
|
|
|
