Hola todavia no me puedo dar cuenta como hacerlo, lo q tengo hecho hasta ahora me dá pero para un solo id osea para el primero , yo quiero q cada link me vincule con los demas id .
Osea un link es un rubro pero el tema es q en la bd tengo mas o menos asi armada las columnas , por ejm:
idproveedor nombre rubro
1 juan catering
2 carlos catering
3 pepe fotos
4 oscar filmación
osea por ahi tengo en un mismo rubros varios id
yo lo q quiero es hacer un link q me vincule a rubros.asp de acuerdo al rubro q elegí del menú por ejm catering
COMO trabajo en ultradev
yo hago el juego de registro de consultas y despues a cada link del menu le quiero poner ir a pág detalle , no se si es así pero por lo poco q sé es la única manera q me sale por lo menos con un id , pero no es lo q quiero, NO SE SI ME ENTIEDENNN
le paso el código q tengo a ver si lo pueden mirar
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/proveedores.asp" -->
<%
Dim Rubros__MMColParam
Rubros__MMColParam = "1"
if (Request.QueryString("id") <> "") then Rubros__MMColParam = Request.QueryString("id")
%>
<%
set Rubros = Server.CreateObject("ADODB.Recordset")
Rubros.ActiveConnection = MM_proveedores_STRING
Rubros.Source = "SELECT * FROM PROVEEDORES WHERE PROVEEDORES = " + Replace(Rubros__MMColParam, "'", "''") + " ORDER BY RUBRO ASC"
Rubros.CursorType = 0
Rubros.CursorLocation = 2
Rubros.LockType = 3
Rubros.Open()
Rubros_numRows = 0
%>
<%
' *** 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
%>
ESTE ES EL MENU obviamente acortado
<A HREF="rubro.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Rubros.Fields.Item("RUBRO").Value %>">Catering</A>
<A HREF="rubro.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & Rubros.Fields.Item("RUBRO").Value %>">Cotillón</A>
<% RUBROS.close() %>