| Autore |
Messaggio |
zuffino
Principiante
20 Discussioni
 |
 17 febbraio 2010 alle 13:14:01   
creo installo e visualzzo un blocco aggiuntivo correttamente;
vorrei all'interno selezionare gli ultimi 5 annunci del mercatino inseriti;
premesso che il tool funziona e lo metto a disposizione di chi vuole, il problema è che quando lo visualizzo come blocco da errore...
c'è sicuramente un errore nel codice ma... non so quale...
<%
Sub DisplayLastMerc()
CreateTopTable "Mercatino - Ultimi annunci", "Ultimi Annunci"
%>
'----INIZIO TOOL
<table border="0">
<%
strCodedb2=""
Dim Conn2
Set Conn2 = Server.CreateObject("ADODB.Connection")
strConn2="driver={Microsoft Access Driver (*.mdb)}; "
strConn2=strConn2 & " DBQ=" & Server.MapPath ("../../database/mercatino.mdb")
strConn2=strConn2 & ";pwd=" & strCodedb2
Conn2.Open strConn2
set Rs = server.createobject("adodb.recordset")
Rs.cursortype=adopenkeyset
Rs.locktype=3
strM = "select * from me_annuncio order by datainserimento DESC"
Rs.open strM,conn2
if not Rs.eof then
Rs.movefirst
for i=1 to 5
response.write "<tr><td><font size=2>"
response.write "(" &Rs("login")& ")-"
response.write "<a href='http://10.33.16.33/mercatino.asp?do=item&id="&Rs("id")&"'>"
response.write Lcase(left(Rs("testo"),60) &"...")
response.write "</a></font></td></tr>"
Rs.movenext
next
end if
rs.close
Conn2.Close
Set Conn2 = Nothing
%>
</table>
'-----FINE TOOL
<%
CreateBottomTable ""
End Sub
%>
---------------
 zuffino.it
|
aldo
Avanzato
193 Discussioni
|
18 febbraio 2010 alle 15:23:19
che errore ti da??
---------------
Tutto è relativo ... ![[zzz]](/smileys/dodo.gif)
|
zuffino
Principiante
20 Discussioni
|
18 febbraio 2010 alle 16:24:48
Praticamente mi sfalsa l'impaginazione dei bocchi. I riferimenti di aspnuke e il tempo di caricamento della pagina invece che essere in basso ed in centro mi compaiono nel blocco (che è l'ultimo a dx).
remmando riga per riga ho trovato che questa è quella che mi da l'errore:
Dim Conn2
Set Conn2 = Server.CreateObject("ADODB.Connection")
strConn2="driver={Microsoft Access Driver (*.mdb)}; "
strConn2=strConn2 & " DBQ=" & Server.MapPath ("../../database/mercatino.mdb")
strConn2=strConn2 & ";pwd=" & strCodedb2
Conn2.Open strConn2
sbaglio qualcosa nella connessione del db? eppure fuori da aspnuke funziona...
Grazie per l'aiuto
---------------
zuffino.it
|
aldo
Avanzato
193 Discussioni
|
18 febbraio 2010 alle 17:47:17
Modificato il 19 febbraio 2010 alle 10:35:52
su ke server sei 2003???
fuori da aspnuke ma sullo stesso server??
ma perchè nn usi la sintassi di aspnuke per connetterti al db??
penso che si incavoli per quella doppia barra con i puntini per scendere di cartella...
---------------
Tutto è relativo ...
|
digitalgfx
Avanzato
118 Discussioni
|
18 febbraio 2010 alle 18:01:53
sul 2003 server non si può usare il ../
|
aldo
Avanzato
193 Discussioni
|
18 febbraio 2010 alle 18:09:14
appunto.. :-)
---------------
Tutto è relativo ...
|
zuffino
Principiante
20 Discussioni
|
18 febbraio 2010 alle 23:36:41
in effetti si inc22ava anche per quello; risolto mettendo a mano il percorso assoluto.
comunque il server è un win2000srv.
qual'è la stringa di connessione standard per aspnuke?
grazie dell'impegno che ci mettete
---------------
zuffino.it
|
aldo
Avanzato
193 Discussioni
|
19 febbraio 2010 alle 10:40:14
Set oCn = DBConnexion(DB_xxxx),
dove DB_xxxx è la stinga relativa al tuo DB, da dichiarare nel file configuration-inc.asp sotto forma di costante :
Const DB_xxxx = "tuo_db.mdb"
ciao
---------------
Tutto è relativo ...
|
zuffino
Principiante
20 Discussioni
|
19 febbraio 2010 alle 23:23:33
Modificato il 19 febbraio 2010 alle 23:27:48
grazie dei consigli. solo una cosa ancora, utilizzando asp da non molto ho imparato un solo sistema per interrogare i db che è quello che ho citato prima...
creo la connessione
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath ("../../database/mercatino.mdb")
strConn=strConn & ";pwd=" & strCodedb2
Conn.Open strConn
creo il recordset
set Rs = server.createobject("adodb.recordset")
Rs.cursortype=adopenkeyset
Rs.locktype=3
effettuo una select
strM = "select * from me_annuncio order by datainserimento DESC"
Rs.open strM,conn
e so che se scrivo response.write Rs("xxx") avrò come risultato il contenuto del campo xxx della tabella che ho interrogato del DB a cui mi sono conesso.
domanda:
come funziona "per esempi" l'interogatione con il codice di aspnuke?
---------------
zuffino.it
|
zuffino
Principiante
20 Discussioni
|
22 febbraio 2010 alle 09:14:43
Modificato il 22 febbraio 2010 alle 14:22:59
RISOLTO:
a chi interessa ecco il codice: (estrae gli ultimi 5 annunci inseriti dando la possibilità di cliccarci sopra ed andare direttamente alla pagina dell'annuncio)
<table border="0">
<%
Dim oCn, oRs, rSQL, oRs1, rSQL1, oRs2, rSQL2, iLine, i
Set oCn = DBConnexion(DB_MERCATINO)
rSQL = "SELECT * from me_annuncio order by datainserimento DESC"
Set oRs = DBRecordSet(oCn, rSQL)
If not oRs.EOF then
oRs.movefirst
for i=1 to 5
response.write "<tr><td><font size=1>"& vbCRLF
response.write "(" &oRs("login")& ") "& vbCRLF
response.write "<a href=""http://10.33.16.33/mercatino.asp?do=item&id="&oRs("id")&""">"& vbCRLF
response.write Lcase(left(oRs("testo"),60) &"...")& vbCRLF
response.write "</a></font></td></tr>"& vbCRLF
oRs.movenext
next
end if
oCn.Close
Set oCn = Nothing
Set oRs = Nothing
%>
</table>
---------------
zuffino.it
|
|
1
2
>>
|
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,2304688 secondi.
MODULI AGGIUNTIVI
blocco aggiuntivo: errore di codice?