Visualizzazione dei risultati da 1 a 2 su 2
  1. #1

    Impaginazione con oracle

    Secondo voi qual è il problema?

    Ho questo codice di impaginazione:

    codice:
    <%
    Dim objConn, objRS, strSQL
    
    Set objConn =Server.CreateObject("ADODB.Connection")
    objConn.ConnectionSTring="DSN=DB;uid=UT; pwd=PW" 
    objConn.Open strConn
    
    SQL= "Select Count(*) as MyPorcata From web_prod where Upper(web_prod.product_Publisher) like Upper('%" & PR & "%') and Upper(web_prod.Product_name) LIKE Upper('%" & PN & "%') ORDER BY web_prod.Product_NAME"
    set RSSQL = objConn.execute(SQL)
    			
    TRecord = RSSQL("MyPorcata")
    			
    strSQL = "SELECT web_prod.product_ID, web_prod.product_name, web_prod.product_Version, web_prod.product_Publisher, web_prod.product_Language, web_prod.product_Media, web_prod.product_OS, web_prod.product_PPrice from web_prod where Upper(web_prod.product_Publisher) like Upper('%" & PR & "%') and Upper(web_prod.Product_name) LIKE Upper('%" & PN & "%') ORDER BY web_prod.Product_NAME"
    
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open strsql, objConn, 1
    strrecord_totali = TRecord
    
    ' imposta il numero di colonne da visualizzare
      strnumero_colonne = 5
    
    ' il resto
    strresto = (strrecord_totali mod strnumero_colonne)
    
    ' i record totali meno il resto divisi per le colonne
    strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne )
    
    Response.Write "<table border='1' align='center'>"
    
    for n = 1 to strrecord_parziali
      Response.Write "<tr>"
    
      ' stampa i record nelle colonne
      for m =1 to strnumero_colonne
        Response.Write "<td>"&objRS("product_Publisher")&"</td>" 
        objRS.MoveNext
      next
    
      Response.Write "</tr>"
    next
    
    Response.Write "</table>"
    
    ' controlla se esiste il resto
    if strresto <> "0" then
      Response.Write "<table border='1' align='center'><tr>"
    
      for f = 1 to strresto
        Response.Write "<td>"&objRS("product_Publisher")&"</td>"
        objRS.MoveNext
      next
    
      Response.Write "</tr></table>"
    end if
    
    ' pulizia
    objRS.Close
    Set objRS = Nothing
    
    objConn.Close
      Set objConn = Nothing
    
    %>
    L'errore che mi visualizza è:

    codice:
    error '80020009' 
    /include/inc_pdetprodxprod_new.asp, line 56
    le linea è quella in grassetto..

    Qualcuno mi può dare una dritta?

    Oppure qualcuno può girarmi esempio o un link per impaginare i dati da oracle?

    grazie ciao
    :metallica
    Che cosa vuoi che ti dica???
    Senti che bel rumore...

  2. #2
    Utente di HTML.it L'avatar di orcim
    Registrato dal
    May 2003
    Messaggi
    1,692
    "Ubi Maior, Minor Cessat"
    Domandare è lecito, rispondere è cortesia...
    A tutti è dovuta una risposta, comunque...

    “Dio gradisce molto di più le bestemmie dell’uomo disperato che non le lodi del benpensante la domenica mattina durante il culto“ Martin Lutero

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.