combo y base de datos

[zink]

Hola, necesito qe me ayuden con este código:

<%
Valorcombo= Trim(Request ("ValorCombo"))
If Valorcombo <> "" Then
RsSQL="SELECT dependencia, secretaria FROM tramites WHERE ID= '"&Valorcombo&"' "
Rs.Open RsSQL ,DB
End IF

ValorTramite= Request ("var")
SQL="SELECT id, nombre_tramite FROM tramites WHERE ID= '"&ValorTramite&"' "
TBL.Open SQL ,DB
%>

<p align="center"><b><font face="Tahoma" size="2"><font color="#006FA4">Seleccione
el Trámite </font></b>
<select size="1" name="combo" onChange="ValorCombo()">
<%
do while not TBL.EOF
%>
<option value="tramites.asp?ValorCombo=<%=TBL("ID")%>"><%= TBL("nombre_tramite")%></option>
<%
TBL.MoveNext
Loop
TBL.Close
Set TBL = Nothing
%>

</select></p>

...
...
...
<% Response.Write TBL("dependencia")%>
<% Response.Write TBL("secretaria")%>

Lo que quiero hacer es que al seleccionar la opcion del combo, me despliegue la informacion de ese registro, pero me marca error en la linea
<% Response.Write TBL("dependencia")%> me dice Type Mismatch
y cuando selecciono otra opcion del combo me dice que en la linea que esta en rojo falta una "

Alguien que me eche una mano????

Gracias

[Gurrutello]

hola prueba
RsSQL="SELECT dependencia, secretaria FROM tramites WHERE ID="&Valorcombo&""
quitando los apostrofes ' no las comillas
si no es asi
Rs.Open RsSQL ,DB,3,3

saludos

[Gurrutello]

Mensaje Original por Gurrutello
hola prueba
RsSQL="SELECT dependencia, secretaria FROM tramites WHERE ID="&Valorcombo&""
quitando los apostrofes ' no las comillas
si no es asi
Rs.Open RsSQL ,DB,3,3

saludos

Código PHP:

  Rs.Open RsSQL ,DB,3,3 
   

[zink]

Gurrutello Gracias por responder.

Fijate que me sigue marcando error en las mismas líneas. Error de tipos y que falta una "

[zink]

Gurrutello una pregunta:
En la segunsa respuesta que das, hay algun cambio? o por que la haces, lo pregunto por que no veo alguna diferencia.

Gracias

[zink]

Alguien que me de una mano??????