Pasar datos a variable carrito

[Esly]

HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01C2)
Número de argumentos erróneo o asignación de propiedad no válida: 'result'

Este es mi codigo asp de mi carrito!!!!
quiero cambiar lo que esta en verde por lo de en rojo, donde tengo mi variable id=0123 quiero almacenar lo que consulto en mi Base de Datos, algo asi
id=<%result("ID")%>

algo asi como lo que esta en rojo pero no me sale me marca error!!!
<%
Set con = Server.CreateObject("ADODB.Connection")
'conexion sin utilizar ODBC para conectarse a una base de datos SQL Server
con.Open "Driver={SQL Server}; Server=BRYAN; Uid=sa; Pwd=; Database=Productos"
'Ejecuta la sentencia sql
'Var_matric = "&(request.form(Matricula))&"
sql = "Select * From Productos "

Set result = con.Execute(sql)

Do while Not result.EOF
%>

<% Response.Write("<tr>" & vbCrLf)%>
<%Response.Write("<td>" & result("ID") & "</td>" & vbCrLf)%>
<%Response.Write("<td>" & result("Nombre") & "</td>" & vbCrLf)%>
<%Response.Write("<td>" & result("Precio") & "</td>" & vbCrLf)%>
////////////////////////////////////////////////////////////////////////////////
<a href="introduce_producto.asp?id=0123&nombre=dvd&pr ecio=400">Comprar</a>
/////////////////////////////////////////////////////////////////////////////////
<td><a href="introduce_producto.asp?id=<%result("ID")%>&n ombre=<%result("Nombre")%>&precio=<%result("Precio ")%>">Comprar</a></td>

<%Response.Write("</tr>" & vbCrlf)%>

<%
result.MoveNext
Loop
con.Close
Set con = Nothing
%>

GRACIAS u_goldman SALU2, BESOS Y CUIDATE