Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Aiuto aggiuntanuovo database

Autore Messaggio
zepmans

Principiante
Principiante
5 Discussioni



Profilo - zepmans
23 novembre 2006 alle 14:15:33 Profilo - zepmansInvia un messaggio privato Rispondi quotando
Volevo aggiungere una pagina per consultare i dati di un mio database ma mi da questo errore:

ErroreSQL
ErroreSQL
Errore di run-time di Microsoft VB Script error '800a01a8'

Necessario oggetto: '[undefined]'

/public/portal/includes/reperibilita-inc.asp, line 5

Il codice della pagina reperibilita-inc.asp presente nella cartella includes è questo:

<%
Dim oCn, oRs, rSQL, iLine
Set oCn = DBConnexion(DB_CENTROSMS)
rSQL = "SELECT * FROM reperibilitatelefono"
Set oRs = DBRecordSet(oCn, rSQL)

If Not oRs.EOF Then
CreateTopTable "Reperibilita" , "Ellenco periodi reperibilità"
Response.Write "<tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td >" & Server.HTMLEncode (oRs("periododa")) & "</td>" & vbCRLF
Response.Write "</tr>" & vbCRLF
CreateBottomTable "Chiusura Tabella"
End If

oRs.close
Set oRs = Nothing
oCn.close
Set oCn = Nothing
%>

Qualcuno mi può aiutare nel risolvere il problema?
Grazie mille Zepmans
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni



Profilo - djveleno
23 novembre 2006 alle 16:23:01 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
Prova ad inserire questo codice al posto del tuo:

Dim oCn, oRs, rSQL, iLine

Set oCn = DBConnexion(DB_NOME)

If IsAuthorizedBin(ROLE_ADMINISTRATOR) Then

CreateTopTable "Reperibilita" , "Elenco periodi reperibilità"

Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write "<tr class=""tablelinemain"">" & vbCRLF
Response.Write "<td width=""120"">" & GetTranslation("LANG_NOME_TABLE") & "</td>" & vbCRLF
Response.Write "</tr>" & vbCRLF

rSQL = "SELECT * FROM reperibilitatelefono"

Set oRs = DBRecordSet(oCn, rSQL)

iLine = 1
While Not oRs.EOF
Response.Write "<tr class=""tableline" & iLine & """>" & vbCRLF

Response.Write "<td >" & Server.HTMLEncode(oRs("periododa")) & "</td>" & vbCRLF
Response.Write "</tr>" & vbCRLF

iLine = ((iLine - 1) XOr 1) + 1
oRs.MoveNext
WEnd
Response.Write "</table>" & vbCRLF
CreateBottomTable ""
End If

oCn.Close
Set oCn = Nothing

Dj
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp

zepmans

Principiante
Principiante
5 Discussioni



Profilo - zepmans
23 novembre 2006 alle 16:42:24 Profilo - zepmansInvia un messaggio privato Rispondi quotando
Funziona perfettamente Grazie mille djveleno.
Saluti Zepmans.

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 135
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5684678 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi