Jag försöker göra ett bildgalleri och vill presentera 4 bilder sidan om varandra i kolumner. Jag vill att informationen hämtas från en databas där man kan välja tex senaste 20 inlagda eller kanske visst motiv. Vad jag förstår måste en bild ha en rad i databasen för att detta ska vara möjligt.Bildvisning med info från databas MS Access
Hur ska jag göra, har letat men hittar inte något. Hoppas någon har tid att hjälpa mig. MVH Bo
Jag har klistrat in skriptet jag skrivit, nu är där med lite extra eftersom jag börjat skriva om från en annan funktion.
<%
SQL_query = "SELECT * FROM HemsidorSkane WHERE Visning=1 ORDER BY Hemsidor_ID DESC"
Set MyConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("xxx.mdb") & ";"
RS.Open SQL_query, MyConn, 3
IF RS.EOF OR RS.BOF THEN
%>
<BR>
<BR>
<FONT SIZE=2 FACE=verdana>
<I>Tyvärr, sidan du söker finns inte i databasen.</I></font>
<BR>
<BR>
</FONT>
<%
ELSE
RS.PageSize = 10
TotalPages = RS.PageCount
RS.AbsolutePage = RSPage
i=0
WHILE NOT RS.EOF AND NOT i > CInt(10)-1
i=i+1
Namn = RS("Namn")
PostAdress = RS("PostAdress")
URL = TRIM(RS("URL"))
Beskrivning = RS("Beskrivning")
Datum = RS("Datum")
Email = RS("Email")
Hemsidor_ID = RS("Hemsidor_ID")
IMAGE1 = RS("IMAGE")
Bild1_ID = RS("Bild1_ID")
Bild1 = RS("Bild1")
Bild2_ID = RS("Bild2_ID")
Bild2 = RS("Bild2")
Bild3_ID = RS("Bild3_ID")
Bild3 = RS("Bild3")
Bild4_ID = RS("Bild4_ID")
Bild4 = RS("Bild4")
Tid = RS("Tid")
Bransch = RS("Bransch")
Visning = RS("Visning")
%>
<%
'Count total hits
TotalHits = RS.RecordCount
%>
</DIV>
<br>
<TABLE border=0 cellpadding=0 width=600 cellspacing=0 maxwidth=600>
<TR>
<td><input type=hidden name="visa" value=1></td>
<td>  <input type=hidden name="visa" value=1></td>
</td>
<td>
</td><td align=right ><%IF NOT URL ="tom" THEN %>
Hemsida
<%END IF %><%IF NOT Email ="tom" THEN %>
Email
<%END IF %>Inlagd: <%=Datum%> <%=Tid%></td>
</TR>
<tr>
<TD WIDTH=30> <%IF RSPAge = 1 THEN%>
<%=i%>
<%ELSE%>
<%=CInt(max*(RSPage-1)+i)%>
<%END IF%>.
</td><td WIDTH="100" ALIGN=LEFT><font COLOR="#555555">Namn:</FONT></td><td WIDTH="500"><font COLOR="#990000"><%=Namn%></font>
</TD>
</TR>
<input type=hidden name="visa" value=1>
<TR>
<TD> </td><td><br>
<font COLOR="#555555">Stad/by:</td><td><br><%=PostAdress%></FONT>
</TD>
</TR>
<TR><td> </td>
<TD valign=top><font COLOR="#555555"><br>Meddelande:</td><td>
<br><%
minText = rs("beskrivning")
minText = replace(minText,"[:)]","<img src=""picture_smile/smile_1.gif"" width=15 height=15 alt=""Smiley"" />")
minText = replace(minText,"[;)]","<img src=""picture_smile/hand_1.gif"" width=25 height=15 alt=""Smiley2"" />")
minText = replace(minText,"[-:]","<img src=""picture_smile/smile_2.gif"" width=15 height=15 alt=""Smiley3"" />")
minText = replace(minText,"[-;]","<img src=""picture_smile/skratt_1.gif"" width=15 height=15 alt=""Smiley4"" />")
response.write minText
%>
</TD>
</TR>
</TABLE>
<BR><br><HR><br>
<%
RS.MoveNext
WEND
%>
<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 CELLPADDING=0>
<TR>
<TD width=220 ALIGN=LEFT>
<%IF NOT RSPage = 1 THEN%>
<FONT FACE="Arial,Helvetica" SIZE=2>
[ << Första ]
[ < Föregående ]
</FONT>
<%END IF%>
</TD>
<TD Width=120 Align=Center><B><FONT FACE="<Verdana,Arial,Helvetica" SIZE=2>
<%IF RSPAge = 1 THEN%>
[ 1 - <%=i%> av <%=TotalHits%> ]
<%ELSE%>
[ <%=CInt(max*(RSPage-1)+1)%> - <%=CInt(max*(RSPage-1)+i)%> av <%=TotalHits%> ]
<%END IF%></B></FONT>
</TD>
<TD width=180 ALIGN=RIGHT>
<%IF NOT CInt(TotalPages) = CInt(RSPage) THEN%>
<FONT FACE="Verdana,Arial,Helvetica" SIZE=2>
[ Nästa ></FONT> ]
[ Sista >></FONT> ]
</FONT>
<%END IF%>
</FONT>
</TD>
</TR>
</TABLE>
<%
END IF
MyConn.Close
%>