Fotoalbum
Klicka på respektive album och sen på bilderna för en större variant
med bläddring.
|
| |
<% If album => 1 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM album01 WHERE bild='0'"
Set RecSet = Connect.Execute(Sql)
rubrik = RecSet ("rubrik")
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
Response.Write ""
Response.Write "
"
Response.Write (rubrik)
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 2 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album02] WHERE bild='0'"
Set RecSet = Connect.Execute(sql)
rubrik = RecSet("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 3 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album03] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
|
<% If album => 4 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album04] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 5 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album05] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 6 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album06] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
|
<% If album => 7 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album07] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 8 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album08] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 9 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album09] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
|
<% If album => 10 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album10] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 11 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album11] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
<% If album => 12 Then %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT rubrik FROM [album12] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
rubrik = RecSet ("rubrik")
If IsNull(rubrik) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf,"
")
rubrik = Trim(rubrik)
Response.Write ""
Response.Write "
"
Response.Write rubrik
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing
End If %>
|
|
<% DataRes.Close
Set DataRes = Nothing
Connect.Close
Set Connect = Nothing %>
[an error occurred while processing this directive]
