Hejsan
Här kommer hela scriptet, eftersom jag har laddat hem det från Ballou så har jag inte gjort något själv... Tack tack på förhand..
<!--#include file="function.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<title>Välkommen till ASP-Galleriet</title>
<script LANGUAGE="JavaScript">
<!-- hide contents from old browsers
var version;
var width,height
var image,ext,descrip
var cond1,cond2
function transferview(image,title,width,height,descrip)
{
if (width==0)
{
cond1=" ";
}else{
cond1="width="+(width+60)+" ";
}if (height==0){
cond2="scroll='yes'";
}else{
cond2="height="+(height + 60 + descrip.length)+" scroll='no'";
}
var s1 ="\<head\>\<TITLE\>"+title+"\</TITLE\>\<style\>body{font-family:verdana; font-size:10px; color:#333333}.but{font-size:10px}\</style\>\</head\>"
var s15="\<BODY BGCOLOR=#FFFFFF topmargin=5\>"
var s2 ="\<CENTER\>\<IMG SRC='"+image+"' width="+width+" height="+height+" BORDER=0\>\<br\>"+descrip+"\<br\>"
var s3 ="\<FORM\>\<INPUT TYPE='BUTTON' VALUE='Stäng fönstret'"+" onClick='self.close()' class=but\>"
var s4 ="\</FORM\>\</CENTER\>\</BODY\>"
ImageWindow=window.open("", "newwin"+width,"toolbar=no,scrollbars="+scroll+",menubar=no,"+cond1+","+cond2);
ImageWindow.document.write(s1+s15+s2+s3+s4)
ImageWindow.document.close()
}
-->
</script>
<style>
body {font-family:verdana; font-size:10px; color:#666666}
td {font-family:verdana; font-size:10px; color:#666666}
a {font-family:verdana; font-size:10px; color:#990000; text-decoration:none}
a:hover {text-decoration:underline}
hr {border:dashed #990000 1px;background-color:#ffffff;height:0px;}
</style>
</head>
<body>
<table cellpadding=0 cellspacing=0 width=630 align=center>
<tr>
<%
LocalGroup = Request.ServerVariables("PATH_TRANSLATED")
Source = Server.MapPath("../../db/ASP-gallery.mdb")
ImgData = Source
Select Case Request.QueryString("showoff")
Case "Title"
%><td colspan="<%=CellWidth%>" height=20>Du befinner dig i albumet <b><% =Request.QueryString("Category") %></b><hr></td></tr><tr><%
ShowSQL = "SELECT * FROM Images ORDER BY Title ASC"
Case "Added"
%><td colspan="<%=CellWidth%>" height=20>Här visas de 10 senaste bilderna<hr></td></tr><tr><%
ShowSQL = "SELECT * FROM Images ORDER BY Added DESC"
Case Else
%><td><b>Välj Album:</b><hr><ul><%
Trigger = 10
ShowSQL = "SELECT DISTINCT(Category) FROM Images ORDER BY Category ASC"
Call Rebuild("gallery.asp")
End Select
If Len(Request.QueryString("Category")) > 1 Then
ShowSQL = Replace(ShowSQL,"FROM Images ORDER","FROM Images WHERE Category = '" & Request.QueryString("Category") & "' ORDER")
End If
If Request.QueryString("New") = "yes" Then
End If
If Request.QueryString("top") > 0 Then
ShowSQL = Replace(ShowSQL,"SELECT ","SELECT TOP " & Request.QueryString("top") & " ")
End If
ShowSQL = Replace(ShowSQL,"FROM Images WHERE","FROM Images WHERE")
ShowSQL = Replace(ShowSQL,"FROM Images ORDER","FROM Images WHERE NOT (ThumbNail LIKE '%-t-t.jp%') ORDER")
Set ObjConn = Server.CreateObject("ADODB.Connection")
DataSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ImgData
ObjConn.Open DataSource
Set RS = ObjConn.Execute(ShowSQL)
If Not(RS.EOF) Then
j = 0
ShowOff = Request.QueryString("showoff")
Do While Not (RS.EOF)
If Request.QueryString("top") > 0 Then
If CInt(Request.QueryString("top")) <= k Then
ShowOff = "Alldone"
End If
End If
Select Case ShowOff
Case "Alldone"
RS.MoveNext
j = j + 1
k = k + 1
Case "Title"
j = j + 1
k = k + 1
%\>
\<td valign=bottom align=center\>\<A HREF="javascript:transferview('\<% =RS("FileName") %\>','\<% If Not IsNull(RS("Title")) Then %\>\<% =Replace(RS("Title"),Chr(39),"\\'") %\>\<% End If %\>',\<% =HaveVal("Fwidth",RS("ID"),RS("Fwidth")) %\>,\<% =HaveVal("Fheight",RS("ID"),RS("Fheight")) %\>,'\<% If Not IsNull(RS("Descrip")) Then %\>\<% =Replace(RS("Descrip"),Chr(39),"\\'") %\>\<% End If %\>')"\>
\<img src="\<% =HaveVal("Thumbnail",RS("ID"),RS("Thumbnail")) %\>" width=\<% =HaveVal("twidth",RS("ID"),RS("twidth")) %\> height=\<% =HaveVal("theight",RS("ID"),RS("theight")) %\> border=0\>\<br\>\<% =RS("Title") %\>\</a\>\</td\>
\<%
RS.MoveNext
Case "Added"
j = j + 1
k = k + 1
%\>
\<td valign=bottom align=center\>\<A HREF="javascript:transferview('\<% =RS("FileName") %\>','\<% If Not IsNull(RS("Title")) Then %\>\<% =Replace(RS("Title"),Chr(39),"\\'") %\>\<% End If %\>',\<% =HaveVal("Fwidth",RS("ID"),RS("Fwidth")) %\>,\<% =HaveVal("Fheight",RS("ID"),RS("Fheight")) %\>,'\<% If Not IsNull(RS("Descrip")) Then %\>\<% =Replace(RS("Descrip"),Chr(39),"\\'") %\>\<% End If %\>')"\>
\<img src="\<% =HaveVal("Thumbnail",RS("ID"),RS("Thumbnail")) %\>" width=\<% =HaveVal("twidth",RS("ID"),RS("twidth")) %\> height=\<% =HaveVal("theight",RS("ID"),RS("theight")) %\> border=0\>\<br\>\<b\>\<% =RS("Title") %\>\</a\>\</b\>\<br\>\<i\>tillagd \<%=Month(RS("Added"))%\>/\<%=Day(RS("Added"))%\>/\<%=Year(RS("Added"))%\>\</i\>\</td\>
\<%
RS.MoveNext
Case Else
%\>
\<li\>\<a href="gallery.asp?showoff=Title&Category=\<% If Not IsNull(RS("Category")) Then %\>\<% =Server.URLEncode(RS("Category")) %\>"\>\<% =RS("Category") %\>\<% Else %\>"\>Ny\<% End If %\>\</a\>
\<%
RS.MoveNext
End Select
If j =\> CellWidth Then
%\>\</tr\>\<tr\>\<%
j = 0
End If
Loop
End If
RS.Close
Set RS=Nothing
ObjConn.Close
Set ObjConn=Nothing
If Trigger = 10 Then
%>
</ul></td>
<% End If %>
</tr>
</table>
<table cellpadding=0 cellspacing=0 width=630 align=center>
<tr>
<td><hr></td></tr><tr><td align=center><a href="gallery.asp"><-- Tillbaka till Album-listan</a><br><a href="gallery.asp?showoff=Added&top=10&New=yes">Visa de 10 senaste bilderna</a><br></td></tr>
</table>
</body>
</html>
MVh / Phinx
PS det finns inga mellanslag i filnamnen inte på databasen heller som är Acess om jag fattade det hela rätt.
