Ciao a tutti..
Non riesco a visualizzare questa pagina in asp.. Qualcuno sa dirmi se c'è un errore nel codice?
Grazie.codice:<% dim intCodice intCodice = request("Id") if intCodice <> "" then %> <HTML> <HEAD> <TITLE> Modifica Un Libro Immesso</TITLE> </HEAD> <BODY> <% dim strCode strCode="innovatel" dim intVolta intVolta="0" Set Conn=Server.CreateObject("ADODB.Connection") strConn="driver={Microsoft Access Driver (*.mdb)}; " strConn=strConn & " DBQ=" & Server.MapPath("libreria.mdb") strConn=strConn & ";pwd=" & strCode Conn.Open strConn sql = "SELECT * FROM libri WHERE Id="&intCodice Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 %> <FORM METHOD=POST ACTION="modifica3.asp?Id=<%=rs(0)%>"> <TABLE> <TR> <TD>Titolo</TD> <TD><INPUT TYPE="text" NAME="titolo" value="<%=rs(1)%>"></TD> </TR> <TR> <TD>Autore</TD> <TD><INPUT TYPE="text" NAME="autore" value="<%=rs(2)%>"></TD> </TR> <TR> <TD>Genere</TD> <TD><INPUT TYPE="text" NAME="genere" value="<%=rs(3)%>"></TD> </TR> <TR> <TD><INPUT TYPE="submit" value="Modifica"></TD> <TD></TD> </TR> </TABLE> </FORM> <% rs.Close set rs = Nothing conn.Close set conn = Nothing %> </BODY> </HTML> <% else response.redirect "modifica1.asp" end if %>
.Fakkio.
Rispondi quotando
