Problemas con consultas en formulario

[Lethe]

Código:

<%
'---declaración del objeto recordset
Set rs = Server.CreateObject("ADODB.Recordset")

'---Instanciamos y abrimos nuestro objeto conexion 
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open Application("CadenaConexion") 'conexion abierta

'---Creamos la sentencia SQL y la ejecutamos
SQL = "Select pdc.pc_proyecto_cod, pdc.pc_titulo, pdc.pc_audiencia, "
SQL = SQL & " pdc.pc_vehiculo, pdc.pc_proposito, pdc.pc_periodicidad, "
SQL = SQL & " pdc.pc_responsable, pdc.pc_eventos_posibles, pdc.pc_prox_evento_fecha, "
SQL = SQL & " pdc.pc_prox_evento_dias, pdc.pc_prox_evento_desc, "
SQL = SQL & " p.pe_email_int, p.pe_email_ext, proy.py_titulo as nom_proyecto, "
SQL = SQL & " proy.py_cliente_corto as nom_empresa "
SQL = SQL & " From Plan_de_Comunicacion as pdc, Personal as p, Proyectos as proy  "
SQL = SQL & " Where pdc.pc_proyecto_cod = '" & IdProyectoCod & "' "
SQL = SQL & " And pdc.pc_titulo = '" & IdTitulo & "' "
SQL = SQL & " And pdc.pc_proyecto_cod = proy.py_codigo "
SQL = SQL & " And pdc.pc_responsable = (p.pe_apellidos + ' ' + p.pe_nombres)"
set rs = Cnn.Execute(SQL)
%>

<div class="boxform">
<ul>
				<li><label>Proyecto:</label><%=rs("nom_proyecto")%> -- <%=rs("nom_empresa")%></li>
				<li><label>Título del Plan:</label><%=rs("pc_titulo")%></li>
				<li><label>Audiencia:</label><%=rs("pc_audiencia")%></li>
				<li><label>Vehículo o Medio:</label><%=rs("pc_vehiculo")%></li>	
				<li><label>Periodicidad:</label><%=rs("pc_periodicidad")%></li>			
				<li><label>Propósito / Detalles:</label><textarea name="pc_proposito" rows="10" cols="20" class="Gris" readonly><%=rs("pc_proposito")%></textarea></li>
			</ul>			
		</div>		
		
		<div class="boxformright">
			<fieldset>
				<legend></legend>
				<table width="" cellpadding="1" cellspacing="2" border="0" align="left" class="">
					<tr>
						<td><label>Responsable:</label></td>
						<td>
							<%=rs("pc_responsable")%>									</td>
					</tr>
					
					<tr><tr><tr>
					<tr>
						<td><label>Eventos Posibles:</label></td>
						<p><td>
							<textarea name="pc_eventos_posibles" rows="4" cols="40" class="Gris" readonly><%=rs("pc_eventos_posibles")%></textarea>
							</td>
						</p>
					</tr>
				
					<tr>
						<td><label>Fecha del Próximo Evento:</label></td>
						<td>
							<%=pc_prox_evento_fecha%>		
						</td>
					</tr>
				
					<tr><tr><tr>
					<tr>
						<td><label>Número de Días para avisar:</label></td>
						<td><%=rs("pc_prox_evento_dias")%></td>
					</tr>
					
					<tr><tr><tr>
					<tr>
						<td><label>Descripción del Próximo Evento:</label></td>
						<td><%=rs("pc_prox_evento_desc")%></td>
					</tr>				
				</table>				
			</fieldset>
		</div>