Problema al insertar registros provenientes de un formulario en la BBDD
Código:
Esta en frances pero no es muy dificil de entender. Por favor ayuda <%@ language = 'vbscript' %>
<script language="javascript">
function cerrarventana()
{
window.close()
}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>AJOUT DU PRODUIT</title>
</head>
<body>
<%
ref_pc21=request.form("ref_pc21")
ref_constr=request.form("ref_constr")
disp_prod=request.form("disp_prod")
img_prod=request.form("img_prod")
titre_prod=request.form("titre_prod")
affichage=request.form("affichage")
promo=request.form("promo")
promo_gen=request.form("promo_gen")
ht_prod_e=request.form("ht_prod_e")
ht_prod_f = round(ht_prod_e * 6.55957 * 100) / 100
ttc_prod_e = round(valor * 1.196 * 100) / 100
ttc_prod_f = round(valor * 6.55957 * 1.196 * 100) / 100
descrip_prod = titre_prod
id_mark = 200
if (promo="on") then
promo=true
else
promo=false
end if
if (promo_gen="on") then
promo_gen=true
else
promo_gen=false
end if
if (affichage="on") then
affichage=true
else
affichage=false
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "planetcommerce21"
Set RS = Server.CreateObject("ADODB.RecordSet")
rs.CursorType = adOpenDynamic
sSQL="INSERT INTO produit (id_mark, ref_pc21, ref_constr, titre_prod, ht_prod_f, ht_prod_e, ttc_prod_f, ttc_prod_e, descrip_prod, img_prod, disp_prod, affichage, promo, promo_gen) VALUES ('" & id_mark & "','" & ref_pc21 & "','" & ref_constr & "','" & titre_prod & "','" & ht_prod_f & "','" & ht_prod_e & "','" & ttc_prod_f & "','" & ttc_prod_e & "','" & descrip_prod & "','" & img_prod & "','" & disp_prod & "'," & affichage & "," & promo & "," & promo_gen & ")"
RS = Conn.Execute(sSQL)
Conn.Close
%>
<script language="javascript">
cerrarventana()
</script>
</body>
