codice:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/miositoWeb.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form2") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_CarboniaWeb_STRING
MM_editCmd.CommandText = "INSERT INTO dbo.dbBuono (IdBuono, UnitaMisura, UnitaMisura2, UnitaMisura3, prezzoUnit, prezzoUnit2, prezzoUnit3, Totale) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("IdBuono"), Request.Form("IdBuono"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 10, Request.Form("UnitaMisura")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 10, Request.Form("UnitaMisura2")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 10, Request.Form("UnitaMisura3")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("prezzoUnit")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("prezzoUnit2")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("prezzoUnit3")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("Totale")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_CarboniaWeb_STRING
Recordset1_cmd.CommandText = "SELECT dbBuono.IdBuono, dbBuono.UnitaMisura, dbBuono.UnitaMisura2, dbBuono.UnitaMisura3, dbBuono.prezzoUnit, dbBuono.prezzoUnit2, dbBuono.prezzoUnit3, dbBuono.Totale FROM dbBuono INNER JOIN db_TipoBuono ON dbBuono.IdTipoBuono = db_TipoBuono.IdTipoBuono WHERE (dbBuono.IdTipoBuono = 1)"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<form method="post" action="<%=MM_editAction%>" name="form2">
<table width="733" align="center">
<tr valign="baseline">
<td nowrap align="right">IdBuono:</td>
<td><input type="text" name="IdBuono" value="" size="32"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">UnitaMisura:</td>
<td><input type="text" name="UnitaMisura" value="" size="32">
PrezzoUnit:
<input type="text" name="prezzoUnit" value="" size="32"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">UnitaMisura2:</td>
<td><input type="text" name="UnitaMisura2" value="" size="32">
PrezzoUnit2:
<input type="text" name="prezzoUnit2" value="" size="32"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">UnitaMisura3:</td>
<td><input type="text" name="UnitaMisura3" value="" size="32">
PrezzoUnit3:
<input type="text" name="prezzoUnit3" value="" size="32"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Totale:</td>
<td><input type="text" name="Totale" value="" size="32"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><input type="submit" value="Inserisci record"></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form2">
</form>
<p> </p>
qualcuno sa come posso fare? Grazie mille per l'aiuto