perchè non mi fa visualizzare nulla?codice:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Sans Titre</title> <meta http-equiv="content-type" content="text/html; charset=iso-8859-1" /> </head> <body bgcolor="#FFFFFF"> <table border="1"> <tr bgcolor="orange"> <td>Menù</td> </tr> <tr> <td>Inserisci nuovo</td> </tr> <tr> <td>Elimina</td> </tr> </table> <table border="1"> <tr bgcolor="orange"> <td>N.</td> <td>COD</td> <td>DATA</td> <td>TITOLO</td> <td>LUOGO</td> <td>ARGOMENTO</td> </tr> <% 'On Error Resume Next Dim cn Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/eventiwe.mdb") Dim sql sql = "SELECT * FROM EVE order by id desc" Set Rs=Cn.Execute(SQL) n = 1 do while not rs.eof response.Write("<tr>") response.Write "<TD>" & n & "</TD>" c = 0 do while not c = 5 if c = 4 then response.Write "<td align=""center""><a href=""cancella2.asp?Id=" & rs(0)">" response.write rs(c)& "</a></td>" else response.Write "<td align=""center"">" valore = rs(c) response.Write valore response.Write "</td>" end if c = c + 1 loop response.Write("</tr>") rs.movenext n = n + 1 loop rs.Close cn.Close Set rs = Nothing Set cn = Nothing %> </table> </body> </html>
l'errore sarà nel blocco if perchè prima dell'inserimento funzionava....
Rispondi quotando
