ecco i codice...chiedo urgente aiuto.....grazie mille:
in pratica nella pagina fat_0.asp c'è la select per selezionare un cliente, alla selezione verranno aggiornati tutti i campi relativi al cliente(indirizzo,città..ecc)
-->IMPORTANTE-->mi da errore:
Microsoft JET Database Engine (0x80040E14)
Divisione per zero
/amministra/richiamata1.asp, line 9
line9-->cioè rm.open strsq, cnn_new
pagina fat_0.asp-->pagina per inserire dati nella fattura
<html>
<head>
<title>:: Inserimento fattura ::</title>
function CompletaForm(){
var varKey = "";
varKey = document.all.menutendina.value;
eseguiRichiesta('richiamata1.asp?K=' + varKey , "SostituiscoConAjax", '');
//window.open('richiamata1.asp?K=' + varKey , "SostituiscoConAjax");
}
</script>
<!-- #include virtual="/connections/cnnnew.asp" -->
</head>
<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
<form name="Frm_Fattura" action="stampa_fat.asp" method="post">
<p> </p>
<%
dim rm, strsq, strmenu
strsq = "SELECT * From T_fattura"
set rm=Server.CreateObject("ADODB.Recordset")
rm.Open strsq, cnn_new
strmenu="<option value""0"">Seleziona cliente!!</option>"
While NOT rm.EOF
strmenu = strmenu & "<option value=""" & rm("n_registro") & """>" & rm("delegato") & " (" & rm("n_registro") & ")</option>"
rm.MoveNext
Wend
rm.Close()
set rm=Nothing
cnn_new.Close()
set cnn_new = Nothing
%>
<select name="menutendina" onchange="CompletaForm();" id="menutendita"> <%=strmenu%> </select></p>
</td>
</tr>
<tr>
<td width="372" height="32" colspan="2">
<p> </p>
</td>
</tr>
<tr>
<td width="372" height="164" rowspan="4" colspan="2" id="SostituiscoConAjax">
<table border="1">
<tr>
<td width="362" height="181">
<p>fatturare a: <input type=text name=fatturare></p>
<p><input type=text name=delegato>
<input type=text name=indirizzo>
<input type=text name=cap>
<input type=text name=comune>
<input type=text name=provincia>
<input type=text name=partita_iva></p>
</td>
</tr>
</table>
<input type=submit name=invia value=Salva>
<input type=submit name=reset value=Cancella>
</body>
</form>
</html>
pagina richiamata1.asp-->richiamata da asp
<% dim rm, strsq, strmenu
strsq = "SELECT * From T_fattura where id_fattura=" & Request.QueryString("K")
set rm=Server.CreateObject("ADODB.Recordset")
--------->rm.Open strsq, cnn_new
rm.Close()
set rm=Nothing
cnn_new.Close()
set cnn_new = Nothing
%>
<table border="1">
<tr>
<td width="362" height="181">
<p>fatturare a: <input type=text name=fatturare value=1></p>
<p><input type=text name=delegato value=2>
<input type=text name=indirizzo value="<%=rm("indirizzo")%>" />
<input type=text name=cap value=4>
<input type=text name=comune value=5>
<input type=text name=provincia value=6>
<input type=text name=partita_iva value=7></p>
</td>
</tr>
</table>
Modificato da gusic89 il 18 luglio 2008 10.38 -
Modificato da gusic89 il 18 luglio 2008 11.14 -
10annidi.ASPItalia.com: iscriviti alla competizione e vinci fantastici premi ogni mese!