sub di update non funzionante

**crotalo** · 19-04-2008, 14:12

ciao a tutti,
ho abbastanza problemi a far funzionare questa pagina ASP:

codice:

<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
  Dim Conn
  Dim rs
  Dim rs1
  Dim strconn
  Dim strsql
  Dim i
  Dim j
  Dim nome
  Dim a(10)
  Dim b(10,10)
  Dim num, mia
  Dim ch
sub scrivi(conn,ch,b,n)
 Dim strsql
 Dim j
strsql= "UPDATE mov SET "
for j = 2 to rs.Fields.Count-2
  if b(0,j) <> "*" then 
    strsql = strsql & rs.Fields(j).name & "= " & b(1,j) & ", "
  end if
next
strsql= strsql &  rs.Fields(count-1).name & "= " & b(1,count-1) & " WHERE mov.cont=" & ch 
response.write strsql
conn.execute(strsql)
end sub
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strconn=strconn+Server.MapPath("db1.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs1=Server.CreateObject("ADODB.Recordset")
conn.Open strconn
nome = ("mov")
rs.open nome, conn
rs1.open "pdc", conn
for i=0 to rs.Fields.Count-1
    a(i) = request.form(rs.Fields(i).Name) 
    select case rs.Fields(i).type
    case 3 
        if a(i) ="" then a(i)=" is not null " else a(i)= " = "  & a(i) end if
    case 7
        if a(i) ="" then a(i)=" is not null " else a(i)= " =  #"  & a(i) & "# " end if
    case else
        if a(i) ="" or a(i) ="----" then a(i)=" is not null " else a(i)= " =  '"  & a(i) & "' " end if
    end select
next
strsql ="SELECT * FROM " & nome & " WHERE "
for i = 0 to rs.Fields.Count-2
   strsql = strsql & rs.Fields(i).name & a(i) & " and "
next
i = rs.Fields.Count-1
strsql = strsql & rs.Fields(i).name & a(i) 
'response.write strsql
Set rs = conn.execute(strsql)
%>
<HTML>
<HEAD><TITLE>Visualizzazone dei record</TITLE>
<link rel="stylesheet" type="text/css" href="iframe.css"></HEAD>
<BODY>
<font color=black>VISUALIZZA TABELLA:</font> <% = nome %> 



<TABLE border=2 bordercolor=black valign=top border=1>
<TR>
<%    For i=1 to rs.Fields.Count-1%>
       <TD bgcolor=black><% =rs.Fields(i).Name %></TD>
   <% Next %>
</TR>
<%
   if rs.EOF then  %>
</TABLE>

 non esistono </p>
<% else
      rs.MoveFirst
      num=0
      Do While Not rs.EOF %>
         <TR>
         <form method="post" name="MODIFICA" action="scrivi.asp">
         <% For i=1 to rs.Fields.Count-1 
            if rs.Fields(i).Name="codice" then %>
		<TD VALIGN=TOP>
		 <SELECT NAME="codice"><%=num%>
		 <%
		 rs1.Movefirst
		 Do While Not rs1.EOF 
		 %>
		  <% if rs("codice")= rs1("codice") then %>
	 	   <OPTION Value="<%=rs1("codice")%>" selected><%=rs1("codice")%> - <%=rs1("denominazione")%></OPTION> 		
         <% else %>
		   <OPTION Value="<%=rs1("codice")%>"><%=rs1("codice")%> - <%=rs1("denominazione")%></OPTION>  
<%          end if
		 rs1.Movenext
		 Loop %>
		</SELECT>
		</td> 
         <% else %>
  		<TD VALIGN=TOP><input type="text" size="<%=rs.Fields(i).definedsize%>"
NAME="<%=rs.Fields(i).Name%><%=cstr(num) %>" value ="<% =rs.Fields(i).Value %>"></TD>
         <% end if
         mia = rs.Fields(i).name & cstr(num)
         if request.form(mia) <> rs.Fields(i).value then 
           b(1,i) = request.form(mia)
           b(0,i) = i
         else 
           b(0,i) = "*"
         end if
         'response.write mia
         response.write request.form(mia)
         Next  
         %>
         <% ch=rs.Fields(0).Value %>
      <td><input type="button" onclick="scrivi(conn,ch,b,num);" value="conferma<%=cstr(num)%>"></td>
      </TR>
      <% rs.MoveNext
      num=num+1
      Loop
      %>
  <input type="submit" name="fine" value="invia">
  </form>
<%
  End If
   rs.Close
   rs1.Close
   conn.close
   Set rs=nothing
   Set conn=nothing
%>
</TABLE>
</BODY>
</HTML>

in particolare non funziona la sub con la query di update (probabilmente per un errore di sintassi che io non trovo perché il response.write dà una stringa esatta) e la request.form(mia) che è sicuramente sbagliata...
quello che cerco di fare è prendere i valori della form senza andare in una pagina successiva per fare più modifiche di diversi record in una volta sola e la request.form non funziona...
qualcuno sa se sia possibile fare una cosa del genere?

grazie

**Santino83_02** · 19-04-2008, 16:27

che errore ti da la sub di preciso? prova a mettere nella firma sub scrivi(byref conn,ch,b,n) e assicurati di lanciarla dopo che rs è stato riempito.

**crotalo** · 19-04-2008, 18:14

esce un messaggio sulla barra di stato, quella in basso nel browser, che dice che c'è un errore nella visualizzazione della pagina...
purtroppo non posso provare adesso perché non ho il server ma grazie lo stesso

**Santino83_02** · 20-04-2008, 20:43

Originariamente inviato da crotalo
esce un messaggio sulla barra di stato, quella in basso nel browser, che dice che c'è un errore nella visualizzazione della pagina...
purtroppo non posso provare adesso perché non ho il server ma grazie lo stesso

quello è un errore javascript...

**crotalo** · 21-04-2008, 16:05

quello è un errore javascript...

cosa intendi per errore di javascript visto che non c'è neanche una riga di codice javascript ?
cmq dovrebbe essere il response.write dentro la sub che dà quell'errore....
il problema è che anche se i valori dell'update li metto io la pagina non esegue niente sul database e non so il perché...

**Santino83_02** · 21-04-2008, 17:54

ah ecco l'errore mi sa:

nel pulsante hai associato all'onclick (che guarda caso è javascript) la funzione scrivi(bla,bla,bla), ovvero la tua funzione asp. Beh così non funzionerà mai perchè l'asp viene processato dal server prima che ti appaia a schermo la pagina html. Quindi se vuoi fare una cosa del genere, devi fare un submit ad una pagina che processi i dati del form e faccia l'operazione che desideri. in soldoni, non puoi far interagire asp e l'azione dell'utente direttamente, ti serve uno step in mezzo

Discussione: sub di update non funzionante

Strumenti discussione

Ricerca discussione

Visualizza

sub di update non funzionante

Permessi di invio