PK

<!--#include file="includes/openconn.asp" -->

<!--#include file="includes/checkadmin.asp" -->

<%rs1.open "SELECT * FROM Clientes WHERE idcliente = " & request("idcliente"),conn,3,1
rs1.movefirst

rs.open "SELECT * FROM Pedidos WHERE idpedido = 0",conn,2,2
rs.addnew

rs("ped_now") = now()
rs("ped_IP") = request.ServerVariables("REMOTE_ADDR")

if rs1("cli_nombre") <> "" then 
	rs("ped_nombre")=rs1("cli_nombre")
else
	rs("ped_nombre")=null
end if

if rs1("cli_email") <> "" then 
	rs("ped_email")=rs1("cli_email")
else
	rs("ped_email")=null
end if

if rs1("cli_telefono") <> "" then 
	rs("ped_telefono")=request("cli_telefono")
else
	rs("ped_telefono")=null
end if

rs("ped_comentario")=null

if rs1("cli_provincia") <> "" then 
	rs("ped_provincia")=rs1("cli_provincia")
else
	rs("ped_provincia")=null
end if

if rs1("cli_localidad") <> "" then 
	rs("ped_localidad")=rs1("cli_localidad")
else
	rs("ped_localidad")=null
end if

if request("ped_domicilio") <> "" then 
	rs("ped_domicilio")=request("ped_domicilio")
else
	rs("ped_domicilio")=null
end if

if rs1("cli_CP") <> "" then 
	rs("ped_CP")=rs1("cli_CP")
else
	rs("ped_CP")=null
end if

if rs1("cli_transporte") <> "" then 
	rs("ped_transporte")=rs1("cli_transporte")
else
	rs("ped_transporte")=null
end if

rs("ped_monto") = 0

rs.update
rs.close

rs1.close

'------------------------------------------ TOMA CODIGO

dim xIDPEDIDO

rs.open "SELECT TOP 1 idpedido FROM Pedidos ORDER BY idpedido DESC",conn,3,1
rs.movefirst

session("idpedido") = rs("idpedido")
xIDPEDIDO = rs("idpedido")

rs.close


Response.Redirect("Pedido_edit.asp?idpedido=" & xIDPEDIDO)%>

PK 99