<link href="estilo.css" rel="stylesheet" type="text/css">
<body bgcolor="#EBEBEB" leftmargin="0" topmargin="0">
<!--#include file="Connections/Cn.asp" -->
<%
Valor=Request.form("Archivo")
%>
<%
Dim rd_cot
Dim rd_cot_numRows
Path=Server.MapPath("../fotos/"&Valor&"")
Set rd_cot = Server.CreateObject("ADODB.Recordset")
rd_cot.ActiveConnection = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
rd_cot.Source = "Select * From Productos"
rd_cot.CursorType = 0
rd_cot.CursorLocation = 2
rd_cot.LockType = 1
rd_cot.Open()
rd_cot_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rd_cot_numRows = rd_cot_numRows + Repeat1__numRows
%>
<Center class="red_bold_14px"><br>HOJA DE CALCULO - ONE SOURCE<br></Center>
<br>
<table class="Tabla_marco" align="center">
<%
Response.Write "<th height='25' bgcolor='#FF0000'><center><font color='#FFFFFF'>" & rd_cot.Fields.Item(0).Name & "</center></font></th>" & vbCrLf
Response.Write "<th bgcolor='#FF0000'><center><font color='#FFFFFF'>" & rd_cot.Fields.Item(1).Name & "</center></font></th>" & vbCrLf
Response.Write "<th bgcolor='#FF0000'><left><font color='#FFFFFF'>" & rd_cot.Fields.Item(2).Name & "</left></font></th>" & vbCrLf
Response.Write "<th bgcolor='#FF0000'><center><font color='#FFFFFF'>" & rd_cot.Fields.Item(3).Name & "</center></font></th>" & vbCrLf
Response.Write "<th bgcolor='#FF0000'><Left><font color='#FFFFFF'>" & rd_cot.Fields.Item(4).Name & "</left></font></th>" & vbCrLf
Response.Write "<th bgcolor='#FF0000'><Left><font color='#FFFFFF'>" & rd_cot.Fields.Item(5).Name & "</left></font></th>" & vbCrLf
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rd_cot.EOF))
Response.Write "<tr >" & vbCrLf
Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(0) &"</font></center></td>"
Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(1) &"</center></font></td>"
Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(2) &"</center></font></td>"
Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(3) &"</center></font></td>"
Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(4) &"</center></font></td>"
Response.write "<td><center><font class='parrafo'>"& rd_cot.Fields.Item(5) &"</center></font></td>"
Response.Write "</tr>" & vbCrLf
Set rd_t = Server.CreateObject("ADODB.Recordset")
rd_t.ActiveConnection = MM_Cn_STRING
rd_t.Source="Select count(CODE) As Existe from Productos where code='" &rd_cot.Fields.Item(0)& "'"
rd_t.CursorType = 0
rd_t.CursorLocation = 2
rd_t.LockType = 1
rd_t.Open()
rd_t_numRows = 0
if (rd_t.Fields.Item("existe").Value)="1" then
sql="UPDATE Productos SET DESCRIPTION='"&rd_cot.Fields.Item(1)&"' ,RETAIL ='"&rd_cot.Fields.Item(2)&"' ,WHOLESALE ='"&rd_cot.Fields.Item(3)&"' , MANUFACTURER ='"&rd_cot.Fields.Item(4)&"' ,KEYWORDS ='"&rd_cot.Fields.Item(5)&"' where CODE= '"&rd_cot.Fields.Item(0)&"' "
Set insCmd = Server.CreateObject("ADODB.Command")
insCmd.ActiveConnection = MM_cn_STRING
insCmd.CommandText = sql
insCmd.Execute
insCmd.ActiveConnection.Close
else
Estado="Y"
sql="Insert into Productos(CODE,DESCRIPTION,RETAIL,WHOLESALE,MANUFA CTURER,KEYWORDS,ESTADO) values ('"&rd_cot.Fields.Item(0)&"','"&rd_cot.Fields.Item (1)&"','"&rd_cot.Fields.Item(2)&"','"&rd_cot.Field s.Item(3)&"','"&rd_cot.Fields.Item(4)&"','"&rd_cot .Fields.Item(5)&"','"&Estado&"')"
Set insCmd = Server.CreateObject("ADODB.Command")
insCmd.ActiveConnection = MM_cn_STRING
insCmd.CommandText = sql
insCmd.Execute
insCmd.ActiveConnection.Close
end if
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rd_cot.MoveNext()
Wend
Response.Write "</table>"
%>
<%
rd_cot.Close()
Set rd_cot = Nothing
%>
Saludos...!