Problemas con catálogo comercial

[LaraTinet]

Buenos días, os escribo agradenciéndoos de antemano la ayuda que me podáis prestar. He buscado en el foro y he leído todos los tutoriales a mi alcance, pero no logro dar con la solución a mi problema.

Necesitaba crear un catálogo de productos para una empresa que había adquirido el programa CatalogManager (de DmxReady.com). Nunca había utilizado el código Asp y este programa parecía ideal para gestionar el catálogo sin necesidad de un conocimiento demasiado profundo.

La lógica del programa es la siguiente: subes al servidor los archivos que te dan, en el orden que te dicen, y a partir de ahí, entrando en la URL, puedes gestionar el catálogo a tu gusto.

El problema es que no funciona. Salen muchos errores o a veces directamente no sale nada. Por poner un ejemplo, cuando escribes algo así en el navegador:

http://www.yourdomainname.com/admin/...ager/admin.asp

Deberías acceder a una consola para editar con toda comodidad, pero a mí me sale este mensaje:

<%
Response.Redirect("list.asp")
%>

Y si por otro lado, voy directamente a http://www.yourdomainname.com/admin/...nager/list.asp

Me sale un caos en una tabla llena de errores y que no da opción a nada inteligible (sin embargo, si abro este mismo archivo en DreamweaverMX, sí que sale bien y comprensible, no tiene nada que ver).

Me gustaría saber si tenéis alguna idea de qué puede estar ocurriendo o si me podéis orientar de alguna manera, estoy bastante desesperada porque en ninguna parte encuentro qué es lo que ocurre.

Muchas gracias,

Lara

[posman]

Iniciado por LaraTinet

El problema es que no funciona. Salen muchos errores o a veces directamente no sale nada. Por poner un ejemplo, cuando escribes algo así en el navegador:

http://www.yourdomainname.com/admin/...ager/admin.asp

Deberías acceder a una consola para editar con toda comodidad, pero a mí me sale este mensaje:

<%
Response.Redirect("list.asp")
%>

Seguro que esta corriendo el servidor web? Supongo que estaras utilizando el IIS

[LaraTinet]

Sí que funciona el servidor web, lo estoy haciendo directamente en el dominio que la empresa registró, subiendo los archivos mediante FTP

[JuanRAPerez]

tu server tiene soporte para asp?

[Myakire]

Supongo ya esta arreglado ¿no?

[LaraTinet]

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.

[Valery-Net]

Al parecer tu sitio no tiene soporte de asp

[Myakire]

Ese problema ya se ha tocado antes, aunque hacía mucho tiempo que no, si mal no recuerdo el problema era que unos navegadores toman por default un tipo de documento y otros otro si no reciben el MIME correcto, entonces como primer prueba trata de colocar esta linea:

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

Y nos dices ...

[LaraTinet]

Hola Myakire, gracias por responder.

He añadido la primera línea que me dices, pero lo único que ocurre es que aparece igualmente como código cuando abro el archivo con el navegador.

[Adler]

Hola

Algo que no me queda claro, ¿no se interprete esa página en particular o ninguna?.

Prueba algo sencillo

<%
response.write "hola mundo"
%>

Suerte

[LaraTinet]

Hola Adler,

El ASP no se interpreta en ninguna de las páginas.

He probado lo que me dices, con el único resultado de que sale el código mismo, pero no el resultado que debería dar.

Creo que lo que ocurre es que el servidor no admite ASP.

[Adler]

Hola

Todo apunta hacia que ese es problema

Suerte

[LaraTinet]

Efectivamente, ése era el problema, ya confirmado por el servidor.

Sólo me queda daros las gracias por el interés en ayudarme.

Por supuesto, si alguien conoce algún tipo de alternativa para elaborar el catálogo comercial sin usar asp, le agradeceré muchísimo que me lo diga.

Un abrazo a todos!

[Myakire]

Esa pregunta debes hacérsela a tu host , si no te da soporte para ningún lenguaje de servidor necesitas cambiarte de host; si no es ese el caso, debes hacerlo en lo que soporte tu servidor.