| Respuesta: Problemas con catálogo comercial
No, gracias por el interés, todavía no he conseguido arreglarlo. He enviado un correo a la empresa que suministra el dominio para preguntar si soporta ASP, porque no entiendo lo que ocurre y quizá sea éste el problema.
Os pongo un ejemplo por si así quizá se entiende mejor:
Abro el archivo list.asp con MacromediaMX y me sale lo que debería salir: una tabla perfectamente funcional para catalogar productos.
Sin embargo, lo abro desde el servidor, por URL, y me sale este código extraño, donde no es posible hacer nada:
<% Dim category__value1 category__value1 = "%" If (Request.QueryString("gpcid") <> "") Then category__value1 = Request.QueryString("gpcid") End If %> <% set category = Server.CreateObject("ADODB.Recordset") category.ActiveConnection = MM_catalogmanager_STRING category.Source = "SELECT tblGPC.GPCID, tblCatalogCategory.CategoryID, tblCatalogCategory.CategoryName, tblCatalogCategory.GPCIDkey, tblCatalogCategory.CategoryDesc, tblCatalogCategory.CategoryImageFile FROM ((tblGPC INNER JOIN tblCatalogCategory ON tblGPC.GPCID = tblCatalogCategory.GPCIDkey) INNER JOIN tblCatalogSubCategory ON tblCatalogCategory.CategoryID = tblCatalogSubCategory.CategoryIDkey) INNER JOIN tblCatalog ON tblCatalogSubCategory.SubCategoryID = tblCatalog.SubCategoryIDKey WHERE (((tblCatalogCategory.GPCIDkey) LIKE '" + Replace(category__value1, "'", "''") + "')) GROUP BY tblGPC.GPCID, tblCatalogCategory.CategoryID, tblCatalogCategory.CategoryName, tblCatalogCategory.GPCIDkey, tblCatalogCategory.CategoryDesc, tblCatalogCategory.CategoryImageFile" category.CursorType = 0 category.CursorLocation = 2 category.LockType = 3 category.Open() category_numRows = 0 %> <% set gpcmenu = Server.CreateObject("ADODB.Recordset") gpcmenu.ActiveConnection = MM_catalogmanager_STRING gpcmenu.Source = "SELECT tblGPC.GPCID, tblGPC.GPCName, tblGPC.GPCDesc, tblGPC.GPCImageFile FROM ((tblGPC INNER JOIN tblCatalogCategory ON tblGPC.GPCID = tblCatalogCategory.GPCIDkey) INNER JOIN tblCatalogSubCategory ON tblCatalogCategory.CategoryID = tblCatalogSubCategory.CategoryIDkey) INNER JOIN tblCatalog ON tblCatalogSubCategory.SubCategoryID = tblCatalog.SubCategoryIDKey GROUP BY tblGPC.GPCID, tblGPC.GPCName, tblGPC.GPCDesc, tblGPC.GPCImageFile" gpcmenu.CursorType = 0 gpcmenu.CursorLocation = 2 gpcmenu.LockType = 3 gpcmenu.Open() gpcmenu_numRows = 0 %> <% Dim subcategorymenu__value1 subcategorymenu__value1 = "2" If (request.querystring("cid") <> "") Then subcategorymenu__value1 = request.querystring("cid") End If %> <% set subcategorymenu = Server.CreateObject("ADODB.Recordset") subcategorymenu.ActiveConnection = MM_catalogmanager_STRING subcategorymenu.Source = "SELECT tblCatalogSubCategory.SubCategoryImageFile, tblCatalogSubCategory.SubCategoryID, tblCatalogSubCategory.SubCategoryName, tblCatalogSubCategory.SubCategoryDesc FROM (((tblGPC RIGHT JOIN tblCatalogCategory ON tblGPC.GPCID = tblCatalogCategory.GPCIDkey) RIGHT JOIN tblCatalogSubCategory ON tblCatalogCategory.CategoryID = tblCatalogSubCategory.CategoryIDkey) RIGHT JOIN tblCatalog ON tblCatalogSubCategory.SubCategoryID = tblCatalog.SubCategoryIDKey) LEFT JOIN tblCatalogDetails ON tblCatalog.ItemID = tblCatalogDetails.ItemIDKey WHERE (((tblCatalogSubCategory.CategoryIDkey) LIKE '" + Replace(subcategorymenu__value1, "'", "''") + "')) GROUP BY tblCatalogSubCategory.SubCategoryImageFile, tblCatalogSubCategory.SubCategoryID, tblCatalogSubCategory.SubCategoryName, tblCatalogSubCategory.SubCategoryDesc" subcategorymenu.CursorType = 0 subcategorymenu.CursorLocation = 2 subcategorymenu.LockType = 3 subcategorymenu.Open() subcategorymenu_numRows = 0 %> <% Dim item_list__value2 item_list__value2 = "%" If (Request.QueryString("cid") <> "") Then item_list__value2 = Request.QueryString("cid") End If %> <% Dim item_list__value4 item_list__value4 = "%" If (Request.QueryString("scid") <> "") Then item_list__value4 = Request.QueryString("scid") End If %> <% Dim item_list__value5 item_list__value5 = "%" If (Request.QueryString("gpcid") <> "") Then item_list__value5 = Request.QueryString("gpcid") End If %> <% Dim item_list__MMColParam1 item_list__MMColParam1 = "%" If (Request.Form("search") <> "") Then item_list__MMColParam1 = Request.Form("search") End If %> <% Dim item_list Dim item_list_numRows Set item_list = Server.CreateObject("ADODB.Recordset") item_list.ActiveConnection = MM_catalogmanager_STRING item_list.Source = "SELECT tblCatalog.*, tblCatalogSubCategory.*, tblCatalogCategory.*, tblGPC.*, tblCatalogDetails.*, tblManufacturers.* FROM ((((tblCatalogCategory RIGHT JOIN tblCatalogSubCategory ON tblCatalogCategory.CategoryID = tblCatalogSubCategory.CategoryIDkey) RIGHT JOIN tblCatalog ON tblCatalogSubCategory.SubCategoryID = tblCatalog.SubCategoryIDKey) LEFT JOIN tblGPC ON tblCatalogCategory.GPCIDkey = tblGPC.GPCID) LEFT JOIN tblCatalogDetails ON tblCatalog.ItemID = tblCatalogDetails.ItemIDKey) LEFT JOIN tblManufacturers ON tblCatalog.ManufacturerIDkey = tblManufacturers.ManufacturerID WHERE CategoryID LIKE '" + Replace(item_list__value2, "'", "''") + "' AND SubCategoryID LIKE '" + Replace(item_list__value4, "'", "''") + "' AND GPCID LIKE '" + Replace(item_list__value5, "'", "''") + "' AND (ItemDesc Like '%" + Replace(item_list__MMColParam1, "'", "''") + "%' OR ItemName Like '%" + Replace(item_list__MMColParam1, "'", "''") + "%' OR Manufacturer Like '%" + Replace(item_list__MMColParam1, "'", "''") + "%')" item_list.CursorType = 0 item_list.CursorLocation = 2 item_list.LockType = 1 item_list.Open() item_list_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 item_list_numRows = item_list_numRows + Repeat1__numRows %>
<% If Not gpcmenu.EOF Or Not gpcmenu.BOF Then %> Search by Department <% End If ' end Not gpcmenu.EOF Or NOT gpcmenu.BOF %> <% If Not category.EOF Or Not category.BOF Then %> Search by Category <% End If ' end Not category.EOF Or NOT category.BOF %> <% If Not subcategorymenu.EOF Or Not subcategorymenu.BOF Then %> Search by Subcategory <% End If ' end Not subcategorymenu.EOF Or NOT subcategorymenu.BOF %>
Search by Keyword
<% While ((Repeat1__numRows <> 0) AND (NOT item_list.EOF)) %> "> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 item_list.MoveNext() Wend %>
Department Category Sub Category Name Image
Insert New Item
<%Response.Write(RecordCounter) RecordCounter = RecordCounter%>. <%=(item_list.Fields.Item("GPCName").Value)%> <%=(item_list.Fields.Item("CategoryName").Value) %> <%=(item_list.Fields.Item("SubCategoryName").Value )%> <%=(item_list.Fields.Item("ItemName").Value)%> <% if item_list.Fields.Item("ImageFileThumb").Value <> "" then %> " width="50" border="0" onClick="openPictureWindow_Fever('../../applications/CatalogManager/images/<%=(item_list.Fields.Item("ImageFile").Value)%>',' 400','400','<%=(item_list.Fields.Item("ItemName"). Value)%>','','')"> <% end if ' image check %>
">Edit | ">Delete
<% If item_list.EOF And item_list.BOF Then %>
No Records Found...Please Try Again
<% End If ' end item_list.EOF And item_list.BOF %> <% gpcmenu.Close() %> <% subcategorymenu.Close() %> <% item_list.Close() Set item_list = Nothing %> <% category.Close() Set category = Nothing %>
Perdón por ponerlo todo así, pero es exactamente lo que se ve en el navegador, cuando debería salir la interfaz para poner comodamente los productos.
Por supuesto, muchas gracias por el interés que mostráis en ayudar, os estoy realmente agradecida. |