ciao a tutti, ho un problema con le seguenti 3 pagine..allora nella prima compilo un semplice form che manda i dati alla seconda pagina che li invia al database..a questo punto tramite un redirect alla terza pagina...e qui nascino i problemi...a questa terza pagina gli passo dei valori tramite query ( ho provato a faglieli stamapare con un response.write e me li stampa correttamente).
PAGINA 1
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Sta Solution - Inserimento</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<table width="755" border="0" align="center">
<tr align="center">
<td colspan="2">[img]logo.jpg[/img]</td>
</tr>
<tr align="center" valign="top">
<td colspan="2">
<table border="0">
<tr>
<td height="15" colspan="3" bgcolor="E4E4E4" width="755">
<table border="0" align="right">
<tr>
<td align="right">
<a href="trunkstock_attuati.asp">
<font color="#006633" size="+1">
.:indietro:.
</font>
</a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" align="center"><font color="#006633">Inserimento</font></td>
</tr>
<tr>
<td align="center" width="100%">
<form action="inserimento_attuati.asp" method="post" name="inserimento">
<table border="0" width="100%">
<tr>
<td colspan="2">
<input type="text" name="SR">SR/Delivery No.
</td>
</tr>
<tr>
<td colspan="2">
<select name="cod_parte" onChange="MM_jumpMenu('parent',this,0)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
%>
<%
SQL = "Select * FROM T_PARTI_ATTUATI ORDER BY cod_parte "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, Conn
Do While Not objRS.Eof
Response.write "<option value = " & objRS("cod_parte") & ">" & objRS("cod_parte") & "</option>"
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
Conn.Close
Set Conn = Nothing
%>
</select>Codice parte
</td>
</tr>
<tr>
<td colspan="2">
<input type="text" name="quantita">Quantità
</td>
</tr>
<tr>
<td width="100">
<input type="radio" name="scelta" value="1">Carico
</td>
<td>
<input type="radio" name="scelta" value="0">Scarico
</td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="invia" value="Inserisci"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr valign="bottom" align="center">
<td colspan="2">
<hr size="1" noshade width="100%" align="center">
</td>
</tr>
<tr valign="bottom" align="center">
<td colspan="2">
<font face="Arial, Helvetica, sans-serif" size="2" color="#003333">
Viale Europa, 35 - 20047 BRUGHERIO (MI) - Tel/Fax +39.039.87.05.25</font>
<font face="Arial, Helvetica, sans-serif" size="2" color="#003333">
per ogni richiesta/informazione:
info@stasolution.it</font></td>
</tr>
<tr valign="bottom" align="center">
<td colspan="2">
<hr size="1" noshade width="100%" align="center">
</td>
</tr>
</table>
</p>
</body>
</html>
Ora con questi valori che gli passo (valore, quantità e cod_parte) vorrei che se la variabile "valore" assume valore=1 il numero contenuto nella variabile "quantita" venga sommato al valore contenuto nella cella "quantita" presente nel database o se il valore contenuto nella variabile "valore" assume valore=0 il valore contenuto nella variabile "quantita" venga sottratto
PAGINA 2
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
valore= Request.Form("scelta")
quantita=Request.Form("quantita")
cod_parte=Request.Form("cod_parte")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
set rs =server.CreateObject("adodb.recordset")
rs.open "T_RICERCA", conn,3,3
rs.addnew
rs("SR")=request.form("SR")
rs("part_number")=request.form("cod_parte")
rs("quantita") =request.Form("quantita")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect("modifica_parte.asp?valore="&val ore & "&quantita="&quantita & "&cod_parte="&cod_parte)
%>
</body>
</html>
al valore contenuto nella cella "quantita" presente nel database
ho provato a far così, nn mi da erorri xò nn mi cambia il valore...ho provato a fagli stampare con response.write la variabile quantita1 ma nn mi scrive nulla...
PAGINA 3
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>pippo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
valore=request.querystring("valore")
quantita=request.QueryString("quantita")
cod_parte=Request.QueryString("cod_parte")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
sql="SELECT quantita FROM T_PARTI WHERE cod_parte="& cod_parte &""
set rs =server.CreateObject("adodb.recordset")
rs.open sql, conn,3,3
Response.Write(valore)
Response.Write(quantita)
Response.Write(cod_parte)
do while not rs.eof
IF valore=1 then
quantita1=rs("quantita")+quantita
rs("quantita")=quantita1
rs.update
else
quantita1=rs("quantita")-quantita
rs("quantita")=quantita1
rs.update
end if
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write(quantita1)
'Response.redirect("trunkstock.asp")
%>
</body>
</html>
qualcuno può aiutarmi?
ciao
D.
Rispondi quotando
