Consulta con combo

Hola a la lista, y gracias por sus respuestas.

Tengo un combo que lo lleno con un tabla(BD), al seleccionar una opcion me
debe visualizar(en un tabla) los tipos de computadoras seleccinada.

<SELECT id="combo" Name="combo" onChange = "verpcs(combo.value)">
<OPTION value=' '>Seleccione una opción </OPTION>
<%
while not rs2.EOF
%>
<OPTION value='<%=rs2("codpc")%>'> <%=rs2("despc")%> </OPTION>
<%
rs2.MoveNext
wend
rs2.Close
%>
</SELECT>

***********************
El problema es que no me visualiza nada. En que estoy equivocandome?
En el procedimento verpcs pongo el siguiente codigo:
***********************

<%
sub vernota(zcodpc)
Dim Conn3, rs3, ConnStr3
sSQL = "select * from pcs where codpc ='" & xcodpc & "'"
Set Conn3 = Server.CreateObject ("ADODB.Connection")
ConnStr3="Driver=Microsoft Visual Foxpro
Driver;"+"UID=;SourceTypeÛF;SourceDB=C:\"
Conn3.Open ConnStr3
set rs3 = Conn3.Execute(sSQL)%>

Response.Write("<TABLE BORDER=" & "'1'" & ">" & vbCrlf)
Response.Write("<TR>" & vbCrlf)
Response.Write("<TD><B>Id</B></TD>" & vbCrlf)
Response.Write("<TD><B>Nombre</B></TD>" & vbCrlf)

<% While not rs3.EOF %>
Response.Write("<TR>" & vbCrlf)
Response.Write("<TD>" & <%=rs3("codpc")%> & "</TD>")
Response.Write("<TD>" & <%=rs3("despc")%> & "</TD>")
Response.Write("</TR>" & vbCrlf)
<%rs3.MoveNext
Wend %>
Response.Write("</TABLE>")
<%
end sub
%>


Saludos
John.