galleria di immagini

[gant85]

salve. ho ideato questo script per visualizzare della immagini da un database ma mi presenta degli errori e non riesco a capire xkè. tipo la prima immagine nn mi da il link e altro... cmq lo script lo metto qui sotto e il link per poter vedere il risultato è questo http://www.gemmedigrazia.com/immagini.asp

questo è li script

<%  
	dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter
	dim count
	count=0
	dim Conn
	Set Conn = Server.CreateObject("ADODB.Connection")
	  sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
	  "Data Source=" & Server.MapPath("mdb-database/immagini.mdb") & ";" & _
	  "Persist Security Info=True"
	Conn.Open(sConnection)
	recordsonpage = 9
	allrecords = 0
	set rs = conn.Execute("SELECT * FROM immagini")
	do until rs.EOF
	  allrecords = allrecords + 1
	  rs.movenext
	loop
	
	offset = request.querystring("offset")
	if offset = 0 OR offset = "" then
	  requestrecords = 0
	else
	  requestrecords = requestrecords + offset
	end if
	
	set rs = conn.Execute("SELECT * FROM immagini ORDER BY id DESC")
	
	hiddenrecords = requestrecords
	do until hiddenrecords = 0 OR rs.EOF
	  hiddenrecords = hiddenrecords - 1
	  rs.movenext
	  if rs.EOF then
	    lastrecord = 1
	  end if
	loop
	
	showrecords = recordsonpage
	recordcounter = requestrecords
	do until showrecords = 0 OR rs.EOF
		recordcounter = recordcounter + 1
	
		nomefile = rs("nomefile")
		
		if nomefile = "" then
			response.write "Non ci sono immagini nel database"
		else
			if count=0 then
				response.write "<table style='WIDTH:100%' cellSpacing='0' cellPadding='1' align='center><tr>"
			end if
			if count=3 then
				count=1
				response.write "</tr>"
				response.write "<tr><td><a rel='lightbox' href='immagini/normali" & nomefile
				response.write "'><img src='immagini/piccole/" & nomefile
				response.write "' width='290' height='200' style='border:0px'/></a></td>"
			else
				count=count+1
				response.write "<td><a rel='lightbox' href='immagini/normali/" & nomefile
				response.write "'><img src='immagini/piccole/" & nomefile
				response.write "' width='290' height='200' style='border:0px'/></a></td>"
			end if
		end if
	
		showrecords = showrecords - 1
		rs.movenext
		if rs.EOF then
			lastrecord = 1
		end if
	loop

	response.write "</table>"
	response.write "<table cellspacing='2' cellpadding='2' width='400' align='center' style='border-width:0'><tr><td>" 
	if requestrecords <> 0 then
		response.write"<a href='immagini.asp?offset="
%>
		<% = requestrecords - recordsonpage %>
<%
		response.write "'>Indietro</a>"
	else
		response.write "Indietro"
	end if
	response.write "</td><td>"
	if lastrecord <> 1 then
		response.write "<a href='immagini.asp?offset="
%>
		<% = requestrecords + recordsonpage %>
<% 
		response.write "'>Avanti</a>"
	else
		response.write "Avanti"
	end if 
	response.write "</td></tr><tr><td colspan='2'>Pagine: "
	pagelist = 0
	pagelistcounter = 0
	do until pagelist > allrecords  
	  pagelistcounter = pagelistcounter + 1
	response.write "<a href='immagini.asp?offset="
%>
	<% = pagelist %>
	<% response.write "'>" %>
	<% = pagelistcounter %>
<% 	response.write "</a> - "

	pagelist = pagelist + recordsonpage
	loop
	response.write "</td></tr></table>"
%>

[gant85]

nessuno può aiutarmi?

[yro]

non si capisce molto... che errori da?

se non viene stampato a video una parte di quello che ti serve, non è un errore, ma una omissione...