"fyra små bilder"

4 svar · 216 visningar · startad av magnusfeldth 27 maj 2003

magnusfeldthMedlem sedan jan. 20034 480 inlägg

Frågan27 maj 2003 21:01#1

ohoj seglarvänner!
Ack, ytterligare en fråga från frågvise frågeställaren: Jag skall hämta fyra poster ur en tabell i databas. De skall hamna på fyra olika platser i en htmltabell, den färskaste posten överst till vänster, nästa överst till höger, trean där nere till vänster och fyran nere till höger...

Hur skriver jag en kod för att den skall göra så?

ni kan kolla in på
https://www.vitatubsockor.nu/index2.asp
om ni har förundringar hur det skall se ut. Det aktuella området är det i mitten med fyra bilder. Dessa skall alltså hämtas ur en databas...

(är funktionen "move" aktuell?)

StevePMedlem sedan mars 2003772 inlägg

27 maj 2003 21:08#2

Nåt sånthär kanske?

<% 
intCounter = 0
do until rs.eof 
     intCounter = intCounter + 1
     %> 
     <td><%= varibel %></td> 
     <% 
     if intCounter MOD 2 = 0 Then Response.Write "</tr><tr>"
     rs.movenext 
loop 
%>

voigtann1Medlem sedan juni 20019 519 inlägg

27 maj 2003 21:11#3

och SQL typ:

SQL = "Select top4(*) from table"

magnusfeldthMedlem sedan jan. 20034 480 inlägg

28 maj 2003 07:20#4

koden funkar bra när jag skriver av den direkt. Dock vill jag lägga till lite grejer och då strular det sig.

felmess:

Microsoft VBScript compilation error '800a040e' 

'loop' without 'do' 

/testar.asp, line 30 

loop
^

kod:

  <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="237" id="AutoNumber17" cellpadding="0">

 <% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("addemalmbergadmin/tubsockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQLsatsfyra = "SELECT Top 4 * FROM sockrates WHERE StartpageYes = 1 ORDER by ID DESC "
	RecSet.Open SQLsatsfyra, Connect, adOpenStatic, adLockOptimistic
%>

<% 
intCounter = 0
do until recset.eof 
     intCounter = intCounter + 1
     %> 
     <td><% = RecSet("rubrik") %></td> 
     <% 
     if intCounter MOD 2 = 0 Then %> </tr><tr>
    <% recset.movenext 
loop 
end if
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%> 
</table>

magnusfeldthMedlem sedan jan. 20034 480 inlägg

28 maj 2003 08:02#5

lyckades lösa det själv:

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="237" id="AutoNumber17" cellpadding="0">

 <% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("addemalmbergadmin/tubsockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQLsatsfyra = "SELECT Top 4 * FROM sockrates WHERE StartpageYes = 1 ORDER by ID DESC "
	RecSet.Open SQLsatsfyra, Connect, adOpenStatic, adLockOptimistic
%>

<% 
intCounter = 0
do until recset.eof 
     intCounter = intCounter + 1
     %> 
     <td width="1" height="98" valign="top">
     <img border="0" src="images/1x1transparant.gif"></td>
     <td><img border="0" src="images/extra.gif" alt="<% = RecSet("rubrik") %>"></td>
 
     <% 
     if intCounter MOD 2 = 0 Then Response.Write "</tr><tr><td width='118' height='1' valign='top'><img border='0' src='images/1x1transparant.gif'></td> <td width='1' height='1' valign='top'><img border='0' src='images/1x1transparant.gif'></td><tr>"
     recset.movenext 
loop 
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%> 
</table>