Gracias por contestar MC_Quake estoy echo un lio, haber que lo tengo que poner así:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%
path=Server.MapPath("./")
set Conexion = server.Createobject("ADODB.Connection")
Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\bd.mdb;"
Set resultado=Server.CreateObject("ADODB.Recordset")
resultado.Open "select * from configuracion" , Conexion, 2, 2
pie=resultado("pie_pagina")
set Con = server.Createobject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\gestion.mdb;"
Set rs=Server.CreateObject("ADODB.Recordset")
%>
<title>Añadir Pedido - CONFECCIONES AMPARO</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="stylesheet" type="text/css" href="style.css" media="screen" />
<link rel="alternate" type="application/rss+xml" title="RSS 2.0" href="rss-articles/" />
<style type="text/css">
<!--
.style9 {font-size: 9px}
.style10 {font-size: 9px; font-weight: bold; }
.style11 {
font-size: 16px;
font-weight: bold;
}
.style13 {font-size: 16px; font-weight: bold; color: #FF00FF; }
.style14 {
color: #F3F
}
.Estilo1 {color: #FF0000}
-->
</style>
</head>
<body>
<div id="wrap">
<div id="top"> </div>
<div id="header">
<h1> </h1>
</div>
<div id="menu">
<ul>
<%
resultado.close
resultado.Open "select * from menu order by posicion"
do until resultado.eof
%>
<li><a href="<%=resultado("url")%>"><%=resultado("idmenu" )%></a></li>
<%
resultado.movenext
loop
resultado.close
%>
</ul>
</div>
<div id="content">
<div class="right">
<%
if session("usuario")<>"" then
path=Server.MapPath("./")
set ConexPedidos = server.Createobject("ADODB.Connection")
ConexPedidos.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\pedidos.mdb;"
Set ro=Server.CreateObject("ADODB.Recordset")
ro.Open "select * from pedidos where usuario='" & session("usuario") & "' and estado<>'CERRADO'" , Conexpedidos, 2, 2
if ro.eof then
ro.close
ro.Open "INSERT INTO PEDIDOS (USUARIO, TOTAL, ESTADO) VALUES ('" & SESSION("USUARIO") & "',0,'ABIERTO')" , Conexpedidos, 2, 2
ro.Open "select * from pedidos where usuario='" & session("usuario") & "' and estado<>'CERRADO'" , Conexpedidos, 2, 2
cod_pedido=ro("codigo")
ro.close
else
cod_pedido=ro("codigo")
ro.close
end if
set Con = server.Createobject("ADODB.Connection")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path & "\gestion.mdb;"
Set rs=Server.CreateObject("ADODB.Recordset")
ope=request.QueryString("ope")
code=request.QueryString("code")
if ope="quitar" then
ro.Open "DELETE FROM detalles_pedidos WHERE cod_pedido=" & cod_pedido & " and cod_articulo=" & code , Conexpedidos, 2, 2
end if
if ope="calcular" and isnumeric(request.Form("tcantidad")) then
ro.Open "UPDATE detalles_pedidos SET Cantidad=" & request.Form("tcantidad") & " WHERE cod_pedido=" & cod_pedido & " and cod_articulo=" & code , Conexpedidos, 2, 2
ro.Open "UPDATE detalles_pedidos SET total=detalles_pedidos.cantidad*detalles_pedidos.p recio WHERE cod_pedido=" & cod_pedido & " and cod_articulo=" & code , Conexpedidos, 2, 2
end if
', total=detalles_pedido.cantidad*detalles_pedido.pre cio
codigo_articulo=request.QueryString("cod")
if codigo_articulo<>0 then
rs.open "select * from articulos where codigo=" & request.QueryString("cod") , Con, 2, 2
VARIABLE=TALLA: " & request.form("talla") & CHR(13) & "COLOR: " & request.form("color") & CHR(13) & "COPA: " & request.form("copa") & "") INSERT INTO DETALLES_PEDIDOS (COD_PEDIDO, DESCRIPCION, CANTIDAD, PRECIO, TOTAL, COD_ARTICULO, FAMILIA) VALUES (" & cod_pedido & ",'" & rs("descripcion") & "',1," & rs("pvp1") & "," & rs("pvp1") & "," & rs("codigo") & ",'"&variable&"')TALLA: " & request.form("talla") & CHR(13) & "COLOR: " & request.form("color") & CHR(13) & "COPA: " & request.form("copa") & ""), Conexpedidos, 2, 2
rs.close
end if
%>
<table width="513" border="1" align="center">
<tr bgcolor="#FF99CC">
<td colspan="6"><div align="center" class="style11">
Quisiera que me echaras un cable por favor, GRACIAS.