Ciao a tutti. Volevo chiedere un aiuto: io dovrei visualizzare delle immagini divise per album in base ai vari avvenimenti.
Per fare questo utilizzo un database con diverse tabelle ognuna contenente le foto dei vari album: una tabella corrisponde ad un album.
Il mio problema è come fare a leggere proprio la tabella che mi serve.
Ecco un pezzo dello script:

codice:
<%@ language = "VBSCRIPT" %>
<%
'Image Gallery Script with Access database
'By Steinthor Kristinsson
'You may change this code as mutch as
'you want all I ask is that you leave this
'comment whith the script and dont take
'credit for it.
'If any Comments or suggestions please
'e-mail me @
'vip21@binet.is
%>
 

<%
Dim iPageSize       'How big our pages are
Dim iPageCount      'The number of pages we get back
Dim iPageCurrent    'The page we want to show
Dim strOrderBy      'A fake parameter used to illustrate passing them
Dim SQL             'SQL command to execute
Dim iRecordsShown   'Loop controller for displaying just iPageSize records
Dim I               'Standard looping var
%>

<html>
<head>
<title>Image Gallery with Access DB</title>
<meta http-equiv="Content-Type" content="text/html; chaObjRecet=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<% smallF = "<Font face=""arial"" size=""1"" color=""#000000"">"
  BlackF = "<Font face=""arial"" size=""4"" color=""#000000"">[b]"
  NormalF = "<Font face=""arial"" size=""2"" >"
  iPageSize =8 'number of images shown on each page



    ' Retrieve page to show or default to 1
      If Request.QueryString("page") = "" Then
	iPageCurrent = 1
         Else
	iPageCurrent = CInt(Request.QueryString("page"))
         
         End If

           If Request.QueryString("order") = "" Then
	      strOrderBy = "id"
            Else
	      strOrderBy = Request.QueryString("order")

End If
  
  Response.write  ""& BlackF &"<p align=center>Image Gallery 

"
  
  
  
  
        SQL = "SELECT * FROM gallery ORDER BY " & strOrderBy & " DESC ;" 	
	Set objCon = Server.CreateObject ("ADODB.Connection")
	objcon.Open dbcon
	Set objRec = Server.CreateObject ("ADODB.Recordset")
	
	
	
        Objrec.PageSize = iPageSize
        objrec.CacheSize = iPageSize
     
objRec.Open SQL, objcon, adOpenStatic, adLockReadOnly, adCmdText
     
         iPageCount = objrec.PageCount
         iPageCount = objrec.PageCount
       
       If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
       If iPageCurrent < 1 Then iPageCurrent = 1

       ' Check page count to prevent bombing when zero results are returned!
         If iPageCount = 0 Then
	  Response.Write "No records found!"
	 
	Else
	' Move to the selected page
	objrec.AbsolutePage = iPageCurrent
	
		Response.Write "" & normalF & "There are " & objRec.RecordCount & " pictures in the gallery"
	
	
	end if
	%>
 
<table width="50%" border="0" bordercolor="#000000" cellspacing="0" cellpadding="0" height="40" align=center>
  
	<tr>
  <%
     iRecordsShown = 0
          Do While iRecordsShown < iPageSize And Not objrec.EOF
	
	
If NOT ObjRec.BOF Then 
	Response.write ""&showimage&""  
        imagenr = imagenr + 1
        iRecordsShown = iRecordsShown + 1
      
       		objRec.MoveNext
        
   
        end if
       
            loop  
            
      	    ObjRec.close
	set Objrec = Nothing
	
function showimage()
	dim HTML
	html = ""
  	if imagenr = 4 then 'change this if you want more than 4 images in a row
    	html = "<tr></tr>"
    	imagenr = 0
  end if

  
    html = html & "<td valign=""top"" height=""67"" width=""25%"" border=1>"& SmallF & "
"
    html = html & "<p align=center><a href=dispimage.asp?id=" & ObjRec("ID") & ">[img] & ObjRec([/img]</a>
"
    html = html &  " View in 800x600  
"
    html = html &  "  View in 1024x768
"
    html = html & " View Orginal
</td>" 
	
	showimage = html
	
	end function
	%>
	
	
 </tr>
</table>
 
  <% 
  Response.write "
"& SmallF& ""

  If iPageCurrent > 1 Then
	%>
	[&lt;&lt; Prev]
	<%
End If

'Showing PageNumbers
For I = 1 To iPageCount
	If I = iPageCurrent Then
		%>
		<%= I %>
		<%
	Else
		%>
		<%= I %>
		<%
	End If
Next 'I

If iPageCurrent < iPageCount Then
	%>
	[Next &gt;&gt;]
	<%
End If
 
 Response.write "


"& SmallF& " "& infcop &""
    %> 
 
</body>
</html>