<% '1º) Comprobamos de que téncologia vamos a listar las cosas. id = Request.QueryString("id") tipo = Request.QueryString("tipo") ' --- NOS CONECTAMOS A LA BASE DE DATOS --- Set db = Server.CreateObject("ADODB.Connection") db.open "DSN=aulambra_aulambra_com;UID=aulambraco233713;PWD=luna7781;" ' --- FIN DE CONEXIÓN A LA BASE DE DATOS --- set sql = Server.CreateObject("ADODB.Command") sql.ActiveConnection = db sql.CommandText ="SELECT lineadecodigo FROM articulos WHERE idArticulo=" & id rs = Server.CreateObject("ADODB.Recordset") set rs = sql.execute ldc = rs("lineadecodigo") if ldc<>"" then Response.Redirect(ldc) else Response.Redirect("/ver2.asp?id="+id+"&tipo="+tipo) end if %>