mostra foto

[Tegolino]

La pagina non da errori ma non mi mostra nessuna foto!
se faccio il response.write di "people_p" non viene stampato niente a video, come mai?

<%
Set Conn = server.createObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("./data_base2M/2m_data.mdb")
Set rs = server.createObject("ADODB.Recordset") 
	
sql = "SELECT * FROM PHOTOGRAPHY Order by Data desc"
rs.Open sql, Conn
	 %>
	<%if rs.recordcount>0 then%>
	<%do while not rs.eof%>
<table width="114" border="0" cellspacing="0" cellpadding="0">
  <tr>
   <td>
    [img]image/people/prew/<%rs=([/img].jpg" border="0" alt=" @ 2M">
	
	</td>
<% 
	rs.Close
	Set rs = nothing 
	Conn.Close 
	Set Conn = nothing 
%>
  </tr>
  <% 
    rs.movenext 
	loop
	end if
	%>

[kalosjo]

[img]image/people/prew/<%[B]rs=([/img].jpg" border="0" alt=" @ 2M">

!!!

<%=rs("people_p")%>

[Tegolino]

su questo ti do ragione... ma il risultato non cambia

[Tegolino]

non capisco proprio, la pagina non da errore ma non si vede niente a video!!!

[Tegolino]

Ragazzi mi sembra di essere all'inizio, le vacanze mi hanno arrugginito!
Riparto dall'inizio!
<%
Set Conn2 = server.createObject("ADODB.Connection")
Conn2.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("data_base2M/2m_data.mdb")
Set rs = server.createObject("ADODB.Recordset")

sql = "SELECT * FROM PHOTOGRAPHY order by data desc"
rs.Open sql, Conn2
If Not rs.Eof Then
image = rs("people_p")
id = rs("ID_P")
end if

%>
<%

Response.Write "<tr><td align=""center"" colspan=""2"">"
%>
[img]image/people/prew/<%=image%>.jpg[/img] @ MilanoPleasure">

</td>


<%
rs.Close
Set rs = nothing
Conn2.Close
Set Conn2 = nothing
%>
Ora mi mostra una foto, come gli aggiungo la possibilità di mostrarmi tutte le foto di ogni record?

[Roby_72]

Devi fare un ciclo

....
....
If Not rs.Eof Then 
do while not rs.EOF
image = rs("people_p") 
id = rs("ID_P") 

Response.Write "<tr><td align=""center"" colspan=""2"">" 
%> 
[img]image/people/prew/<%=image%>.jpg[/img] @ MilanoPleasure"> 

</td> 
<%rs.MoveNext
Loop 
end if
rs.Close 
Set rs = nothing 
....
....

Roby

[Tegolino]

non ci credo!!! grazie... riprendo a lavorare finalmente!!!

[Roby_72]