![](../../_grafik/x.gif)
[an error occurred while processing this directive]
|
![](../../_grafik/x.gif)
[an error occurred while processing this directive]
<% Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% Sql = "SELECT rubrik, antal FROM [album04] WHERE bild='0' "
Set RecSet = Connect.Execute(sql)
Dim rubrik, sista
sista = Trim(RecSet("antal"))
If IsNull(text) OR (rubrik)= "" Then
Response.Write ""
Else
rubrik = RecSet ("rubrik")
rubrik = Trim(rubrik)
rubrik = Server.HTMLEncode(rubrik)
rubrik = Replace(rubrik,vbCrLf," ")
Response.Write ""
Response.Write (rubrik)
Response.Write ""
End If
RecSet.Close
Set RecSet = Nothing %>
|
<% Sql = "SELECT text, bild FROM album04 WHERE bild='" & Trim(Request.QueryString("bild")) & "' "
Set RecSet = Connect.Execute(sql)
If request.querystring("bild") = "" & Trim(Request.QueryString("bild")) & "" Then %>
.jpg" border="0">
<% If request.querystring("bild") = "1" Then %>
« förra
<% Else %>
" onFocus="this.blur();" title="förra bilden">« förra
<% End If %>
| tillbaka |
<% If request.querystring("bild") = "" & Trim(sista) & "" Then %>
nästa »
<% Else %>
" onFocus="this.blur();" title="nästa bild">nästa »
<% End If %>
<% text = RecSet ("text")
If IsNull(text) OR (text)= "" Then
Response.Write ""
Else
text = Trim(text)
text = Server.HTMLEncode(text)
text = Replace(text,vbCrLf," ")
Response.Write ""
Response.Write (text)
Response.Write ""
End If %>
<% End If
RecSet.Close
Set RecSet = Nothing %>
|
<% Connect.Close
Set Connect = Nothing %>
|