salve, ho due campi di testo dove inserisco dei dati che vengono correttamente salvati sul database, ora ho provato ad aggiungere un terzo campo di testo ma al momento del salvataggio mi da errore ..non capisco perchè...da stamattino che lo guardo! Se tolgo il campo di testo "immagine" mi salva i due campi, se li lascio tutti e 3 non funziona!
Secondo voi cos'è che non va?
codice:<% dim saved dim cat dim msg cat = request.Form("name") des= request.Form("descrizione") immg = request.Form("immagine") if request.Form("submit")<>"" then call SaveRecord() End if if request.QueryString("id")<>"" then call GetRecord() End if Sub SaveRecord() dim rs dim cn set cn = server.CreateObject("Adodb.Connection") set rs = server.CreateObject("Adodb.Recordset") cn.Open conn if request.Form("id")="" then rs.open "Select * From rec",cn,2,3 rs.addnew rs.fields("Name") = cat rs.fields("descrizione") = des rs.fields("imm") = immg rs.update msg = "Inserimento avvenuto con successo" saved = true else rs.open "Select * From rec Where ID=" & request.Form("id"),cn,2,3 rs.fields("Name") = cat rs.fields("descrizione") = des rs.fields("imm") = immg rs.update msg = "Link aggiornato" saved = true End if rs.close cn.close set rs = nothing set cn = nothing End Sub Sub GetRecord() dim rs dim cn set cn = server.CreateObject("Adodb.Connection") set rs = server.CreateObject("Adodb.Recordset") cn.Open conn rs.open "Select * From rec Where ID=" & request.QueryString("id"),cn if not rs.eof then cat = rs.fields("Name") des = rs.fields("descrizione") immg = rs.fields("imm") End If rs.close cn.close set rs = nothing set cn = nothing saved = false End Sub %> <html> <head> <title>Aggiungi link seminario live</title> </head> <body> [img]logo.jpg[/img]</p> <% Dim ip ip = Request.ServerVariables("REMOTE_ADDR") %> <%if not saved then%> </p> <form action="" method="post" name="form1" onSubmit="return controlla2(document.getElementById('name').value)"> <table width="100%" height="76" border="0" cellpadding="10" cellspacing="1" bgcolor="#000000"> <tr> <td width="19%" bgcolor="#EFEFEF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Link seminario live:</font></td> <td width="40%" height="11" bgcolor="#FFFFFF"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input name="name" type="text" id="name" size="35" ><font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></p></td> <td width="41%" bgcolor="#FFFFFF"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"></p> </td> </tr> <tr> <td bgcolor="#EFEFEF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Descrizione evento:</font></td> <td width="40%" height="11" bgcolor="#FFFFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <textarea name="descrizione" cols="50" rows="8" id="descrizione"><%=des%></textarea> </font></td> <td width="41%" height="11" bgcolor="#FFFFFF"><input type="text" name="immagine"> </td> </tr> <tr> <td width="19%" bgcolor="#EFEFEF"></td> <td height="26" colspan="2" bgcolor="#FFFFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input type="submit" name="Submit" value="Trasmetti" disabled> <input type="reset" name="canc" value="Cancella"> </font></td> </tr> </table> <input name="id" type="hidden" id="id" value="<%=request.querystring("id")%>"> </form> <% end if response.Write(msg) %> </p>
Rispondi quotando
