Jag vill presentera information från databas. Ska fylla på 4 kollumner på samma rad sedan automatiskt radbyte. Varje detalj har egen rad i databasen. Var väldigt längesen jag programmerade i asp så minns inte syntaxen men kan förklara tillvägagångssättet. Översatt till ASP blir det något åt detta hållet: Hej jag försökte sätta ín i mitt skript, men jag lyckades inte. //Bo om du istället gick ifrån tabell till floatade divvar i detta fallet hade du inte behövt göra så mycket besvär. Hej, tack för tipset, men vad innebär floatade divvar. Kan man hitta något exempel någonstans i .asp-format. du loopar helt enkelt denna markup (exempel-markup) HJÄLP!!! Hej Jag har försökt och jag har provat, läst, men jag kan inte få ihop att jag ska visa 4 bilder på varje rad sedan automatiskt radbyte. Jag har klistrat in scriptet jag använder för att visa 1 bild per rad. Jag måste använda pageing, och jag har inte lärt mig ASP.net.Radbyte efter 4 kollumner
Asp script + ms accessdatabas
Är det någon som kan hjälpa mig, har letat, försökt att lösa detta under lång tid, men inte lyckats.
Tack på förhand BoSv: Radbyte efter 4 kollumner
Medan du loopar genom databasen har du någon typ av counter, typ:
<code>
dim i = 1
while(!rs.EOF)
if(i%4 == 0) //Ifall resten av 'i' delat på 4 är 0 betyder det att detta är en rad delbar med 4
Response.Write("<br>");
end if
i++;
end loop
</code>Sv:Radbyte efter 4 kollumner
i = 1
while not rs.EOF
Response.Write "blablabla"
if i mod 4 = 0 then //Ifall resten av 'i' delat på 4 är 0 betyder det att detta är en rad delbar med 4
Response.Write "<br>"
end if
i=i+1
wend
/JohanSv: Radbyte efter 4 kollumner
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
%>Sv: Radbyte efter 4 kollumner
Ville bara ge dig en tankeställare.Sv:Radbyte efter 4 kollumner
Tack på förhand
BoSv: Radbyte efter 4 kollumner
<code><%Do until RS.Eof
<div class="floatbox">
<h3><%=RS("produktnamn")%></h3>
<p><%=RS("produktbeskrivning")%></p>
<p class="ept">Länk till "><%=RS("produktnamn")%></p>
</div><%
Rs.movenext
loop
%>
</code>
så outputen blir något som så här:
<code>
<div class="floatbox">
<h3>Produkt 1</h3>
<p>Lorem ipsum...</p>
<p class="ept">Länk till produkt 1</p>
</div>
<div class="floatbox">
<h3>Produkt 2</h3>
<p>Lorem ipsum...</p>
<p class="ept">Länk till produkt 1</p>
</div>
<div class="floatbox">
<h3>Produkt 3</h3>
<p>Lorem ipsum...</p>
<p class="ept">Länk till produkt 1</p>
</div>
<div class="floatbox">
<h3>Produkt 4</h3>
<p>Lorem ipsum...</p>
<p class="ept">Länk till produkt 1</p>
</div>
<div class="floatbox">
<h3>Produkt 5</h3>
<p>Lorem ipsum...</p>
<p class="ept">Länk till produkt 1</p>
</div>
<!--till sist skall du infoga en brytning -->
<div class="clear"></div>
</code>
Med CSS styr du hur boxarna skall se ut; vilken bredd, vilket mellanrum mellan boxarna osv.
<code>
.floatbox {
width: 200px;
padding: 10px;
margin: 0 10px 10px 0;
border: 2px solid #ddd;
}
.clear {clear:both; float:none;visibility:hidden;height: 1pt; line-height:1pt;}
</code>Sv: Radbyte efter 4 kollumner
Tack på förhand
Vänliga hälsningar
Bo
<%
'RS Pageing
RSPage = TRIM(Request.QueryString("page"))
IF Len(RSPage)=0 THEN
RSPage = 1
'Samla in från
Search = TRIM(Request.Form("search"))
PAdress = TRIM(Request.Form("PAdress"))
Br = TRIM(Request.Form("Br"))
Max = TRIM(Request.Form("max"))
ELSE
Search = TRIM(Request.QueryString("search"))
PAdress = TRIM(Request.QueryString("PAdress"))
Br = TRIM(Request.QueryString("Br"))
Max = TRIM(Request.QueryString("max"))
END IF
%>
<%
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("databas1/hemsidor.mdb") & ";"
RS.Open SQL_query, MyConn, 3
IF RS.EOF OR RS.BOF THEN
%>
<BR>
<BR>
<FONT SIZE=2 FACE=verdana>
<I>Tyvärr, bilden 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")
Datum = RS("Datum")
Bild1 = RS("Bild1")
Tid = RS("Tid")
%>
<%
'Count total hits
TotalHits = RS.RecordCount
%>
</DIV>
<br>
<TABLE border=2 cellpadding=0 width=600 cellspacing=0 maxwidth=600>
<TR>
<td><IMG border=0 SRC="bilder_SkaneC/<%=Bild1%>"></a></td>
</TR>
<td><%IF RSPAge = 1 THEN%>
<%=i%>
<%ELSE%>
<%=CInt(max*(RSPage-1)+i)%>
<%END IF%>. <%=Namn%> Inlagd: <%=Datum%> <%=Tid%></td>
<BR><HR><br>
<%
RS.MoveNext
WEND
%>
</TR>
</TABLE>
<TABLE BORDER=1 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
%>