se non trovi record

[siki]

Su questo script come lo dico che se non ci sono rescords corrispondenti alla query mi deve scrivere un messaggio tipo "nessuna immagine" anzichè restituire una pagina bianca?

[maximum]

Prova così:

<%
'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10

'connessione al db
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "driver={Microsoft Access Driver (.mdb)};dbq=" & Server.MapPath("percorso/database.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT FROM messaggi ORDER BY id"
Rs.Open sql, Conn, 1, 3

if not rs.eof then 

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page 

'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then 
if Rs("id") < 10 then
Response.Write ("[0" & Rs("id") & "'> ")
else
Response.Write ("[" & Rs("id") & "'> ")
end if
Rs.MoveNext 
end if 
next

'scrivo i numeri delle pagine
Response.Write "

Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='questapagina.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='questapagina.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if
Next 

Response.Write "</P>" 

else
   response.write("Nessun record presente")
end if 

'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

[siki]

mi restituisce questo errore

Errore di compilazione di Microsoft VBScript error '800a03fc'

Previsto 'Next'

[siki]

il codice però l'ho un po'adattato ed ho spostato l'elenco delle pagene nella parte alte

<% 
 'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 1

'connessione al db
Set Conn = Server.CreateObject( "ADODB.Connection" )
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&SERVER.MAPPATH("/mdb-database/db.mdb")

Set rs = Server.CreateObject( "ADODB.Recordset" )
sql = "SELECT * FROM tabella WHERE zona= 'zona' ORDER BY riferimento"
rs.Open sql,Conn, 3, 1


'imposto la dimensione della pagina
rs.PageSize = perpage

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

' mi sposto all'ultima pagina
rs.AbsolutePage = page 

%>
							
  <table border="0" cellpadding="4" width="650" cellspacing="1" bgcolor="#000000" height="90">
   

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <% for i = 1 to perpage
	if rs.eof then exit for %>
	
      	<table width="672"  border="0" class="testopiccolo" cellspacing="1" id="main">
        <tr bgcolor="#000066">
          <td colspan="3" bgcolor="#F7DFA5" class="testopiccolo" width="672">
			<p align="left"><font color="#C67918">
			:: <%= rs("zona") %> :: RIF. <%= rs("riferimento") %>
			[img]images/printer.gif[/img]</font>
			S<font color="#C67918">tampa</font></td>
          </tr>
        <tr bgcolor="#000066">
          <td colspan="3" bgcolor="#F7DFA5" class="testopiccolo" width="672">
			<%
'scrivo i numeri delle pagine
Response.Write "

Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='centro_storico.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='centro_storico.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if
Next 

Response.Write "</P>"
else
   response.write("Nessun record presente")
end if 
%></td>
          </tr>
        <tr>
          <td width="71" align="center">[img]/files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></td>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 2)">[img]/files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'">			
          <td width="510" align="center" rowspan="5"><div id="dynloadarea" style="width:80px;height:225px"></div>
</td>

          
          </tr>
        <tr>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 3)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></td>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 4)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></tr>
        <tr>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 5)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></td>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 6)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></tr>
        <tr>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 7)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></td>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 8)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></tr>
        <tr>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 9)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></td>
          <td width="71" align="center"><a href="#" onMouseover="modifyimage('dynloadarea', 10)">[img]files/<%=rs([/img]" border="1" height="75" onerror="this.src='interimm.jpg'"></tr>
        <tr>
          <td width="652" align="center" colspan="3"><%= rs("descrizione") %></td>

          
          </tr>
          <tr>
          
</td>
        </tr>
        <tr>
          <td colspan="3" width="672">
			<hr width="450" style="border: 1px ridge #E7C384"></td>
        </tr>
      </table></td>
      </tr>
    <% 
rs.movenext
next
%>
  </table>  
    </td>
</tr>
</table>
</div>
</td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="791" cellspacing="0" cellpadding="0" id="basso" class="testopiccolo">
		<tr>
			<td bgcolor="#FFE3AD">
			<p align="center">
			 
<%

'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

[maximum]

Ti ha funzionato?

[siki]

Originariamente inviato da maximum
Ti ha funzionato?

No, non funziona, ma ho dovuto interrompere...adesso mi ci rimetto provo ancora...

[siki]

Ho capito che l'errore avviene a causa dello script cioè:

<script type="text/javascript">


<%
			Set Conn = Server.CreateObject( "ADODB.Connection" )
			Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&SERVER.MAPPATH("/mdb-database/db.mdb")

			Set Rs = Server.CreateObject( "ADODB.Recordset" )
			sql = "SELECT * FROM tabella WHERE zona= 'cersuta' ORDER BY riferimento"
			Rs.Open sql,Conn, 3, 1
			
			iPageSize = 1 'NUMERO RECORD PER PAGINA

			If Request.QueryString("page") = "" Then
				iPageCurrent = 1
			Else
				iPageCurrent = CInt(Request.QueryString("page"))
			End If
					
			RS.PageSize = iPageSize
			RS.CacheSize = iPageSize
			

			reccount = RS.recordcount
			iPageCount = RS.PageCount

			If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
			If iPageCurrent < 1 Then iPageCurrent = 1

			If iPageCount = 0 Then
				Response.Write "

<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati giocatori.</td></table></p>"
			Else
				RS.AbsolutePage = iPageCurrent
				iRecordsShown = 0
%>

 <%
								'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
								'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
								cont=1
								Do While iRecordsShown < iPageSize And Not RS.EOF%>
			

//Specify image paths and optional link (set link to "" for no link):
var dynimages=new Array()
dynimages[1]=["/files/<%=rs("fotoa")%> ", "interimm.jpg"]
dynimages[2]=["/files/<%=rs("fotob")%> ", ""]
dynimages[3]=["/files/<%=rs("fotoc")%> ", ""]
dynimages[4]=["/files/<%=rs("fotod")%> ", ""]
dynimages[5]=["/files/<%=rs("fotoe")%> ", ""]
dynimages[6]=["/files/<%=rs("fotof")%> ", ""]
dynimages[7]=["/files/<%=rs("fotog")%> ", ""]
dynimages[8]=["/files/<%=rs("fotoh")%> ", ""]
dynimages[9]=["/files/<%=rs("fotoi")%> ", ""]
dynimages[10]=["/files/<%=rs("fotol")%>", ""]

//Preload images ("yes" or "no"):
var preloadimg="no"

//Set optional link target to be added to all images with a link:
var optlinktarget=""

//Set image border width
var imgborderwidth=1

//Optionally, change 1.0 and 0.7 below to affect Wipe gradient size and duration in seconds in IE5.5+:
var filterstring="progid:DXImageTransform.Microsoft.GradientWipe(GradientSize=10.0 Duration=1)"

///////No need to edit beyond here/////

if (preloadimg=="yes"){
for (x=0; x<dynimages.length; x++){
var myimage=new Image()
myimage.src=dynimages[x][0]
}
}

function returnimgcode(theimg){
var imghtml=""
if (theimg[1]!="")
imghtml='<a href="'+theimg[1]+'" target="'+optlinktarget+'">'
imghtml+='[img]'+theimg[0]+'[/img]'
if (theimg[1]!="")
imghtml+='</a>'
return imghtml
}

function modifyimage(loadarea, imgindex){
if (document.getElementById){
var imgobj=document.getElementById(loadarea)
if (imgobj.filters && window.createPopup){
imgobj.style.filter=filterstring
imgobj.filters[0].Apply()
}
imgobj.innerHTML=returnimgcode(dynimages[imgindex])
if (imgobj.filters && window.createPopup)
imgobj.filters[0].Play()
return false
}
}

</script>

Lasciandolo così se ci sono record tutto funziona, ma se non ci sono record mi restituisce una pagina bianca; ho fatto diversi tentativi, ma quello con il quale mi sono avvicinata di più è quando ho inserito una nova connessione al database fuori dallo javascript..però in questo caso al cambiamento di pagina con lo script di Roby, le immagini richiamate dallo script rimangono le stesse...capisco il xchè (forse), ma non come risolvere il problema...