I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
celeronter
celeronter
l'11 febbraio 2003 alle 13:44
12 messaggi dal 26 aprile 2001
Avrei bissogno di impaginare il recordset su 3 colonne e non un recod sotto l'altro mi spiego.
Vorrei impaginarlo in questo modo:
record1 record2 record3
nome nome nome
foto foto foto
pezzo prezzo prezzo

e non
record1
nome foto prezzo

record 2
nome foto prezzo
ecc

credo che qualcuno abbia già avuto il mio stesso problema come posso risolvere?

RispondiQuoting
Root5
Root5
l'11 febbraio 2003 alle 14:46
37 messaggi dal 31 gennaio 2002
www.atomica.it
Spero possa esserti di aiuto :) ciaoo

<%
Dim cnnDBF
Dim rstDBF
Set cnnDBF = Server.CreateObject("ADODB.Connection")
cnnDBF.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=D:\pippo\DITTE\pippo_EUR;" & _
"Exclusive=No"
Set rstDBF = cnnDBF.Execute("SELECT * FROM MAGART")
cellnum = 1
%>

<html>
<head>
<title></title>
</head>

<body leftmargin="0" topmargin="3">

<table cellspacing="0" cellpadding="0" border="0">
<%
Do While Not rstDBF.EOF
If cellnum = 1 Then%>
<tr>
<%End If%>
<td align="center" valign="middle" height="140" width="340">
<font face="Arial" size=3 color=black><b>
<%= rstDBF.Fields("CODICE").Value %><br>
<%= rstDBF.Fields("DESCRIZION").Value %>
</b></font>
</td>
<%If cellnum = 2 Then%>
</tr>
<%End If

If cellnum = 1 Then
cellnum = 2
Else
cellnum =1
End If

rstDBF.MoveNext
Loop

If cellnum = 2 Then
response.write "</tr>"
End If
%>
</table>

<%
rstDBF.Close
Set rstDBF = Nothing
cnnDBF.Close
Set cnnDBF = Nothing
%>

</body>
</html>
Frank Levis
RispondiQuoting
celeronter
celeronter
il 12 febbraio 2003 alle 10:56
12 messaggi dal 26 aprile 2001
Seppur con qualche modifica il codice che mi hai postato mi è stato di grande aiuto.
Sei un genio
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.