Modificar búsqueda asp td select
Tengo una hoja asp que me muestra los apuntes de la base de datos filtrandolos por años, necesito cambiar el filtro para poder poner dos td uno con un ted selct y otro dt texto libre, para que me muestre los apuntes que reúnen los requisitos mostrados
los td serian mas o menos así:
<td>Campo: <select name="critbus" onChange="PonerCursor(f1);" class="campo"><option value="">Seleccione, por favor.</option><option value="nombre">Nombre y apellidos</option><option value="tramita">Curso</option><!-- <option value="actividad">Acoplamiento</option> --><option value="nivel">Nivel</option><option value="pronuncia">pronunciación</option><option value="edadal">edad</option><option value="grupo">grupo</option><option value="capacidad">Capacidad</option></select> </td><td>Contenido: <input type="text" name="usu" size="15" maxlength="40" class="campo"> <input type ="submit" value="Buscar" class="campo"></td> que en teoría tendría que sustituir a la parte del código que dice mas o menos así:
<td align="right"><%'response.write("segmento:" & request("segmento"))'intYearN = Year(Now)intYearN = "2013"'strYear = ""strYear = "2013"For intYear = 2012 To intYearNstrYear = strYear & "<option value='" & intYear & "'"If Int(periodo) = Int(intYear) ThenstrYear = strYear & " selected "End IfstrYear = strYear & ">Alumnos durante el año " & intYear & "</option>"strYear = strYear & ">Alumnos durante el año " & intYear & "</option>"Next%><select name="periodo" onchange='Cargar();'><%= strYear %></select></td>
Pero no se como hacerlo, adjunto código completo
<%@ LANGUAGE = VBScript %><%segmento=request("segmento")usuario = request.cookies("usuario")canal=request.cookies("canal")'periodo = request("periodo")periodo = request("periodo")'urlgmo="http://10.14.18.245/gmo/campanastmk/reclama.asp?matricula=" & usuario & "&canal=" & canal &"&segmento=" & segmentoBotonCampaTMK = "<input type='button' value='Consultas Campañas TMK' style='cursor:hand;width:30%;background-color:#000090;color: white;' onClick='campaTMK(" & chr(34) & urlgmo & chr(34) &");' title='Cliente afectado por una campaña.' style='font-size:9pt;'>"if segmento="0" thensegmento="PR"campa="CAMPAÑAS DE NEGOCIOS Y PROFESIONALES"promo="PROMOCIONES DE NEGOCIOS Y PROFESIONALES"elsesegmento="GP"campa="LISTADO DE ALUMNOS"promo="LISTADO DE ALUMNOS"end ifaccessdb="alumnos.mdb"DSN="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(accessdb)set cn = server.createobject("ADODB.connection")cn.open DSNIf periodo = "" Thenperiodo = Year(Now)End IfsSQL = "SELECT * FROM campa WHERE segmento='" & segmento & "'" & _" AND (Year(finicio) = " & periodo & " OR Year(DateAdd('d',1,finicio)) = " & periodo & ") " & _" ORDER BY tipo,estado,nombre;"'response.write sSQLset rs = cn.execute(sSQL)%><html><head><title>Indice de campañas</title><style type="text/css"><!--BODY{font-weight:normal;font-family:Arial;font-size:8pt}th{font-weight:bold;font-family:Arial;font-size:10pt;color:white}td{font-weight:normal;font-family:Arial;font-size:8pt;color:#000088}.titulo{font-weight:bold;font-family:Arial;font-size:14pt;color:#000088}//--></style><SCRIPT LANGUAGE="JavaScript"><!--var nueva=""function VerCampa(id){if( nueva != "" ) window.nueva.close();var url= "ctexto.asp?id=" + id;var ancho = 550;var alto = 450;var arriba = ((screen.height-75) - alto) / 2 ;var izquierda = ((screen.width-10) - ancho) / 2 ;var propiedades="scrollbars=yes,width=" + ancho + ",height=" + alto + ",top=" + arriba + ",left=" + izquierda;nueva = window.open(url,"",propiedades);}function CierraVer(){if( nueva != "" ) window.nueva.close();}function campaTMK(urlgmo){parent.contenido_intermedio.location.href=urlgmo}function Cargar(){var intYear = document.f1.periodo.value;document.location.href = 'default.asp?segmento=<%=request("segmento")%>&periodo=' + intYear;}//--></script></head><body BACKGROUND="/imagenes/ff.gif" onFocus="CierraVer();" onContextMenu="alert('Página de MayteprofeTudela'); return false"><form name="f1"><table width="750" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td align="right"><img align="absmiddle" src="/imagenes/logoMayteprofeTudela.jpg"> </td><table width="100%"><tr><td class="titulo"><%= Campa %></td><td align="right"><%'response.write("segmento:" & request("segmento"))'intYearN = Year(Now)intYearN = "2013"'strYear = ""strYear = "2013"For intYear = 2012 To intYearNstrYear = strYear & "<option value='" & intYear & "'"If Int(periodo) = Int(intYear) ThenstrYear = strYear & " selected "End IfstrYear = strYear & ">Alumnos durante el año " & intYear & "</option>"strYear = strYear & ">Alumnos durante el año " & intYear & "</option>"Next%><select name="periodo" onchange='Cargar();'><%= strYear %></select></td></tr></table><!--- <% If usuario="TONI007" then%><table width="600"><tr><td bgcolor="#ffffcc"><b><font face="Arial" pointsize="12">Consulta si un cliente (está o ha sido) afectado por una...
