images v base dannyh

marmotte · 28.03.2002, 16:03

Privet, u menia takaya konstruczija:

<img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif" BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150">

pri etom u menia vse imagi v odin stolbik vustraivautsia, odin pod drugim. Kak ih v 2 stolbika raskidat'?

pomogite

Crazy · [+1 23.05.11]

Одна картинка не может выстроиться в два столбика.

marmotte · 28.03.2002, 16:09

s chego ty vzial, chto ona tam odna?
Ih tam 10 shtuk

Crazy · [+1 23.05.11]

В показанном исходнике -- одна.

Когда будет исходник про 10 штук -- обсудим и его.

marmotte · 28.03.2002, 16:21

ty eto vidish'?
img_<%=rsediteurs("Editeur")%>.gif

konez imeni risunka beretsia iz BD. Ne putai ludei, esli sam crazy

)

marmotte · 28.03.2002, 16:23

zabyla eto, no eto bylo i tak jasno

<%rsediteurs.MoveNext
loop
%>

Crazy · [+1 23.05.11]

Я все еще не вижу работоспособного исходника.

marmotte · 28.03.2002, 16:53

ves' kod vstavliu :

<%@ Language=VBScript %>
<HTML>
<HEAD>
<LINK rel="stylesheet" type="text/css" href="../_Themes/sumipntg/color0.css">
<LINK rel="stylesheet" type="text/css" href="../_Themes/sumipntg/stylpc.css">
</HEAD>
<BODY bgColor=White text="#333366" link="#333366" vlink="#336699" background="#FFFFFF">

<OBJECT classid="clsid

27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
ID=Titre Editeur WIDTH=250 HEIGHT=25>
<PARAM NAME=movie VALUE="../Titre/Editeurs.swf">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE=#FFFFFF>
<EMBED src="../Titre/Editeur.swf" quality=high bgcolor=#FFFFFF WIDTH=250 HEIGHT=25 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
<BR>
<BR>
<BR>

<%
Public DBP2000
Public rsediteurs
' Ouvre une connection avec Base projet2000
Set DBP2000 = server.CreateObject("ADODB.Connection")
DBP2000.CommandTimeout=Application("Projet_CommandTimeout")
DBP2000.ConnectionTimeout=Application("Projet_ConnectionTimeout")
DBP2000.Open "Projet","",""
Set rsediteurs =server.CreateObject("ADODB.recordset")

DIM inssql
inssql = "Select * from Editeurs"
'Si qqc de saisie de champ

'inssql = inssql & " (Nouveautes.[Type])='Actu'"
'inssql = inssql &" and (((Nouveautes.Date)< Date()-40))"
'inssql = inssql &" order by (Nouveautes.[Date]) DESC"

rsediteurs.Open inssql,DBP2000

%>
<table width=420>
<TR>
<TD>
<P>Editeur de solution CRM, cette rubrique vous est rйservйe.<BR>
Vous pouvez nous faire parvenir des informations vous concernant
а l'adresse suivante : <a href="mailto:sroquet@crm.fr">contact@crm.fr</a>
</P>
</TD>
</TR>
</table>

<BR>
<BR>
<BR>
<Table width="480">
<%
do while not rsediteurs.EOF
%>
<TR>
<TD>

</TD>

<TD>

<a href="../Pages_HTM/desc_soc_<%=rsediteurs("Editeur")%>.htm">

<img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif" BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150"></A>



<TD>

</TR>

<%rsediteurs.MoveNext
loop
%>

</Table>
</BODY>
</HTML>

Baltika · 28.03.2002, 17:05

Crazy · [+1 23.05.11]

А теперь откинем лишнее. Собственно, нас интересует вот этот код:

Код:

do while not rsediteurs.EOF 
%> 
<TR>
<TD> 
<a href="../Pages_HTM/desc_soc_<%=rsediteurs("Editeur")%>.htm">
  <img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif" 
BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150"></A> 
</TD> 
</TR> 
<%rsediteurs.MoveNext 
loop

Здесь картинки формируются в виде одной колонки. Чтобы вывести их в две колонки:

Код:

<TABLE>
<%
col = 1
do while not rsediteurs.EOF 
  if col=1 then
    %> <TR> <%
  end if
  %> <TD> 
<a href="../Pages_HTM/desc_soc_<%=rsediteurs("Editeur")%>.htm"> 
<img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif" 
BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150"></A> 
  </TD> <%
  if col=1 then
    col = 2
  else
    col = 1
    %> </TR> <%
  end if
  rsediteurs.MoveNext 
loop 
if col=2 then
  %> <TD>&nbsp;</TD></TR> <%
end if
%>
</TABLE>