Foros del Web » Programando para Internet » ASP Clásico »

Duda SEGURO Q LA SACAN !!!!!

Estas en el tema de Duda SEGURO Q LA SACAN !!!!! en el foro de ASP Clásico en Foros del Web. Hola!! Les quiero comentar mi inquietud que tengo!! Hasta ahora pude resolver algo de lo q tenía dudas, pero hay una parte q todavía no ...
  #1 (permalink)  
Antiguo 05/03/2003, 19:27
 
Fecha de Ingreso: febrero-2003
Ubicación: Argentina
Mensajes: 40
Antigüedad: 21 años, 3 meses
Puntos: 0
Sonrisa Duda SEGURO Q LA SACAN !!!!!

Hola!!
Les quiero comentar mi inquietud que tengo!!
Hasta ahora pude resolver algo de lo q tenía dudas, pero hay una parte q todavía no logro solucionar.
Al final pude hacer q el menú funcione como quería, osea yo tengo este menú

Papas
Cebollas
Manzana
Ajo
Perejil

lo q quería hacer era q cada link me comunique a una página detalle( yo lo habia hecho ya a esto pero para otras cosas desde un form, no para un menú, por eso mi duda) de ese rubro. La página detalle para todos los rubros se llama rubro.asp , entonces lo q yo quería era esto:

rubro.asp?id=papas
rubro.asp?id=cebollas
rubro.asp?id=manzana
etctetetctet

Como trabajo con ultradev , soy novato en lo q es ASP, me guio mucho por Ultradev!!, a esto lo logré con el juego de registros de mi BD(Access), aplicando región repetida y llendo a pág detalle donde paso el id de c/rubro y conecta con rubro.asp donde quiero mostrar info de ese rubro(osea el elegido segun click en el menú).

Hasta ahí todo OK!!! esa BD la tengo así:

TABLA RUBROS
ID RUBRO
1 Papas
2 Cebollas
3 Manzana
4 Ajo
5 Perejil

en la página rubro.asp muestro arriba el nombre de rubro obviamente usando la mismo juego de registro consulta de la misma tabla de esa bd, me aparece por ejemplo para el 1er id Papas.

LO QUE YO QUIERO HACER Y NO SE COMO, es mostrar en esa página (rubro.asp) otros registros q se incluyen en c/u de los rubros pero a esos registros los tengo en otra tabla de la misma BD.
La otra table es así:

TABLA PROVEEDORES
ID NOMBRE DIRECCION TELEFONO RUBRO
1 juan paz 342 3394834 Papas
2 carlos torres 323 340394 Cebollas
3 ana pater 3432 454834 Papas
4 juan we 342 394534 Ajo
y asi con mas registros......

Quiero hacer una relación entre las tablas de manera q pueda sacar los registro de la tabla proveedores e incluirlos en la tabla RUBROS , porq quiero mostrar en la página rubro.asp la info del rubro elegido segun el 1er paso,COMO TENGO Q HACER SE PUEDE HACER ESTO???
porq teóricamente la página detalle puede mostrar un sólo registro......
debido a q en la tabla RUBROS no puedo poner datos como si fueran subregistros me parece q hay q hacer una consulta , pero ni idea como se hace eso!!

No se si me entiendeN????
me podrian ayudaR???

un ejemplo bien concreo está www.fiestasinolvidables.com

por ejem vayan a 15 años y despues eligan en el menú de la izq un rubro y le tira a una página detalle !!!

pero no me hago idea de como armar la BD así , TB de manera q me muestren unas características de un registro y otras a la misma vez de otro registro en la misma página!!

osea q para 1 registro me muestre la foto con los datos y para otro registro sólo los datos!!!

BUENO DESDE YA EL Q ME PUEDA AYUDAR !!! LE ESTOY AGRADECIENDO!!!
ESPERO HABER SIDO CLARO!!

SALUDOS!!!!
  #2 (permalink)  
Antiguo 05/03/2003, 21:01
Avatar de Manoloweb  
Fecha de Ingreso: enero-2002
Ubicación: Monterrey
Mensajes: 2.454
Antigüedad: 22 años, 4 meses
Puntos: 5
1.- Si se puede... de hecho es de lo mas basico en ASP
2.- Si quieres aprender ASP... deja el Ultradev solo para el diseño
3.- Felicidades, tu pregunta esta muy bien estructurada.

Me gustaría ayudarte, de hecho, si viera que has comenzado a pelearte con el codigo, me tomaría el tiempo necesario para ayudarte, pero va a ser muy dificil, ya que no entenderías mucho de lo que te diría...

Te recomiendo entrar a las FAQ de ASP, seguramente puedes encontrar información muy valiosa para comenzar, y una vez que tengas idea... con todo gusto te ayudo hasta que te funcione como tu lo quieres...

Saludos, y no lo tomes a mal.

__________________
Manoloweb
  #3 (permalink)  
Antiguo 05/03/2003, 21:08
 
Fecha de Ingreso: febrero-2003
Ubicación: Argentina
Mensajes: 40
Antigüedad: 21 años, 3 meses
Puntos: 0
ayudame please

si no hay dramas , ya se q en ultradev no voy a aprender mucho pero entiendo algo de códigos.
de hecho el código q tengo lo entiendo
pero no soy experto en bd
please ayudame!!!!
orientame mas o menos como por favor q necesito eso nada mas!!!please!!!!!
  #4 (permalink)  
Antiguo 05/03/2003, 21:15
Avatar de Manoloweb  
Fecha de Ingreso: enero-2002
Ubicación: Monterrey
Mensajes: 2.454
Antigüedad: 22 años, 4 meses
Puntos: 5
OK, va...

rubro.asp

seleccion=Request.Querystring("id")
qst="select a.NOMBRE, a.DIRECCION, a.TELEFONO from PROVEEDORES as a,RUBROS where a.RUBRO=RUBROS.RUBRO and RUBROS.ID="&seleccion


***Te conectas a tu BD y corres el query***

Despliegas la info hasta encontrar el EOF



De esa manera tienes los resultados solo para el Rubro seleccionado...

__________________
Manoloweb
  #5 (permalink)  
Antiguo 05/03/2003, 21:26
 
Fecha de Ingreso: febrero-2003
Ubicación: Argentina
Mensajes: 40
Antigüedad: 21 años, 3 meses
Puntos: 0
bueno voy a probar eso ,.....

lo voy a probar mañana a ver si me dá , pero por si querés mirarlo te paso los códigos q el ultradev me hace y si querés acotar algo con lo q me dijiste todo bien!!

para la página donde tengo el menú y q se comunica con rubro.asp tengo esto:


<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/proveedores.asp" -->
<%
set Rubros = Server.CreateObject("ADODB.Recordset")
Rubros.ActiveConnection = MM_proveedores_STRING
Rubros.Source = "SELECT * FROM RUBROS"
Rubros.CursorType = 0
Rubros.CursorLocation = 2
Rubros.LockType = 3
Rubros.Open()
Rubros_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Rubros_numRows = Rubros_numRows + Repeat1__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_kee pNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
EN EL BODYYYYY

<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
While ((Repeat1__numRows <> 0) AND (NOT Rubros.EOF))
%>
<tr>
<td width="17" height="18"></td>
<td width="90" valign="top">
<div align="left"><a href="rubro.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Rubros.Fields.Item("RUBRO").Value %>" class="botones"><font face="Times New Roman, Times, serif"><b><%=(Rubros.Fields.Item("RUBRO").Value)%> </b></font></a></div>
</td>
<td width="21"></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Rubros.MoveNext()
Wend
%>

Ahora la pág rubro.asp donde quiero poner los registro y la consulta q te dije a la bd haciendo relacion es esta:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/proveedores.asp" -->
<%
Dim Clientes__MMColParam
Clientes__MMColParam = "1"
if (Request.QueryString("id") <> "") then Clientes__MMColParam = Request.QueryString("id")
%>
<%
set Clientes = Server.CreateObject("ADODB.Recordset")
Clientes.ActiveConnection = MM_proveedores_STRING
Clientes.Source = "SELECT * FROM RUBROS WHERE RUBRO = '" + Replace(Clientes__MMColParam, "'", "''") + "'"
Clientes.CursorType = 0
Clientes.CursorLocation = 2
Clientes.LockType = 3
Clientes.Open()
Clientes_numRows = 1
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 5
Dim Repeat1__index
Repeat1__index = 0
Rubros_numRows = Rubros_numRows + Repeat1__numRows
%>


bodyyyy
<div align="center"><font color="#FFFF00" face="Arial, Helvetica, sans-serif" size="3"><b><font color="#FFFF00" face="Arial, Helvetica, sans-serif" size="3"><b><font color="#000000"><b><font size="4">
| <%=(Clientes.Fields.Item("RUBRO").Value)%></font>




<%
Clientes.Close()
%>

si queres agregar algo te agradezco!!!!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:26.