Visual Basic - validar campos que esten null

Buenas tardes tengo el siguien problema para validar unos datos, son unos campos que deberian de mostrar en la pagina web. estoy usando microsoft visual interdev. y los sp, este es el codigo la parte donde se ejecuta el sp y del error fueron marcada entre ________________________ para señalar donde creo que estoy errando, creo que el error se da por que se esta intentando cargar datos null
quisiera validar para que acepte datos null y not null, soy nuevo en esto espero me ayuden!

en esta seccion se ejecuta el sp

'if (not IsEmpty(concursoporprocesar)) or (not IsNull(concursoporprocesar)) then
Dim sqlProcedure,RecordProcedure
sqlProcedure="exec user_planeamiento.sp_plan_esco_pb_PbAsignado_sid '"&concursoPorProcesar&"'"
_________________________________________________________________________________________________
'Se crea la cadena sql que consulta al procedure por el cual se consultarán los siguientes datos pertenecientes a la tabla
'codigodematerial, solped, posicion, descripcion, clase, unidad, cantidad, preciosolp
Set RecordProcedure = CreateObject("ADODB.RecordSet")
RecordProcedure.Open sqlProcedure,Conexion
'else
'Response.Write("el problema es aqui")
'end if

''''''''''''''''''''''''''''''''''''''''''''
else
Response.Write("<br/>fallo de conexión")
end if
'end if
%>


<%
if request("a") = "calcularPrecios" then

calculo_y_actualizacion request("p"),request("m"),request("concurso"),request("t")
end if
%>

<%
if request("a") = "cambiarEstado" then
Conexion.Execute("update TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_DETALLE_SID set ESTADO = 'PENDIENTE POR REVISION' where codigoproceso='"&request("concurso")&"'")
Response.Write("concurso enviado a revisión")
end if
%>

<%
if request("a") = "asignarObJ" then
Conexion.Execute("update TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_DETALLE_SID set OBSERVACIONESJEFE = '"&request("obJ")&"' where codigoproceso='"&request("concurso")&"'")
Response.Write("Observaciones del jefe actualizadas")
end if

%>

<%
if request("a") = "asignarObA" then
Conexion.Execute("update TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_DETALLE_SID set OBSERVACIONESANALISTA = '"&request("obA")&"' where codigoproceso='"&request("concurso")&"'")
Response.Write("Observaciones del Analista actualizadas")
end if

'"asignarObA"
%>

<%
function calculo_y_actualizacion(p,m,c,t) '(precio,material,concurso)
'Response.write("<br/> al fin recibió precio: " &p&" material:" &m& " y conc: " &c)
'La idea es actualizar la columna tipodeprecioseleccionado

'Si el precio es proyectado (es decir tipo 1)
if t=1 then
conexion.execute("update TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_MATERIALES_SID set tipoprecio='proyectado'where codigoproceso='"&c&"' and codigomaterial='"&m&"'")
end if

'Si el precio es mercado (es decir tipo 2)
if t=2 then
conexion.execute("update TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_MATERIALES_SID set tipoprecio='mercado'where codigoproceso='"&c&"' and codigomaterial='"&m&"'")
end if

'Una vez verificada su actualizacion proceder a realizar los calculos para las 3 columnas restantes
'precioSinIva 'precioConIva 'montoBsF

conexion.execute("exec sp_plan_esco_pb_calculoDePreciosEnPB_sid '"&c&"','"&m&"','"&p&"'")

end function
%>

<script>
var currentValue = 0;
function handleClick(myRadio,material,concurso,tipo) {
currentValue = myRadio.value;
//alert("recibido el precio: " +currentValue + "\n para material: " + material + "\nconcurso: " + concurso + "\ntipo: " + tipo);

formprecios.m.value = material;
formprecios.p.value = currentValue;
formprecios.t.value = tipo;
formprecios.a.value = "calcularPrecios";
formprecios.submit();
}
</script>

<script>
function actualizarEstado(concurso){
//alert("debería actualizar = " + concurso)
formprecios.a.value = "cambiarEstado";
formprecios.submit();
}
</script>

<script>
function recibirObsJefe(value,conc){
/*
if(value==""){
alert("Este campo no puede permanecer vacío");
}
*/

//si se tiene un valor distinto de vacío actualiza en base de datos
if(value!=""){
//alert("se recibió valor:" + value + " y el concurso " +concurso)

formprecios.obJ.value = value;
formprecios.a.value = "asignarObJ";
formprecios.submit();
}

}
</script>

<script>
function recibirObsAnalista(value,conc){
/*
if(value==""){
alert("Este campo no puede permanecer vacío");
}
*/

//si se tiene un valor distinto de vacío actualiza en base de datos
if(value!=""){
//alert("se recibió valor:" + value + " y el concurso " +concurso)

formprecios.obA.value = value;
formprecios.a.value = "asignarObA";
formprecios.submit();
}

}
</script>

<BODY>

<FORM METHOD="POST" ACTION="PbEnProceso_Analista.asp" id=formprecios name=formprecios>
<INPUT TYPE=hidden VALUE="<%=request("concurso")%>" id=concurso name=concurso> <!--concurso-->
<INPUT TYPE=hidden VALUE="" id=m name=m> <!--material-->
<INPUT TYPE=hidden VALUE="" id=p name=p> <!--precio-->
<INPUT TYPE=hidden VALUE="" id=t name=t> <!--tipo-->
<INPUT TYPE=hidden VALUE="" id=a name=a> <!--accion-->

<INPUT TYPE=hidden VALUE="" id=obJ name=obJ> <!--observaciones del jefe esco-->
<INPUT TYPE=hidden VALUE="" id=obA name=obA> <!--observaciones del analista-->
</FORM>

<p>&nbsp;</p>
<table style="font-size:10px; margin: 0 auto;" BORDER="1" CELLSPACING="0" CELLPADDING="0">
<tr bgcolor="#DCDCDC">
<td align="center"><b>ID</b></td>
<td align="center"><b>Código de Material</b></td>
<td align="center"><b>SOLPED</b></td>
<td align="center"><b>Posición</b></td>
<td align="center"><b>Descripción</b></td>
<td align="center"><b>Clase</b></td>
<td align="center"><b>Unidad</b></td>
<td align="center"><b>Cantidad</b></td>

<td align="center">
<input type="button" value="Precio Proyectado" onclick='location.href="PbEnProceso_PrecioProyectado(calculos).asp?concurso=<%=concursoPorProcesar%>"'/>
</td>

<!--<td align="center"><b>Calculos del precio proyectado</b></td> -->
<td align="center"><b>Precio del Mercado</b></td>
<!--<td align="center"><b>Calculos del precio de mercado</b></td> -->
<td align="center"><b>Tipo de precio seleccionado</b></td>
<!-- <td align="center"><b>Justificación</b></td> -->
<td align="center"><b>Precio SOLP</b></td>
<td align="center"><b>Precio PB sin IVA</b></td>
<td align="center"><b>Precio PB con IVA</b></td>
<td align="center"><b>Monto BsF PB sin IVA</b></td>
<td align="center"><b>Actualizar</b></td>
</tr>

<tr>
<%
'Cantidad de materiales
dim id
id=1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Codigos de material
'Traer campo codigomaterial de la consulta al procedimiento
'Ademas se necesita almacenar en un arreglo los materiales debido a que se necesitan para las actualizaciones

dim arrayCodigosMaterial, posicionArrayCodigosMaterial

posicionArrayCodigosMaterial= 32768 'OJO Esto debería ser del tamaño de la cantidad de registros de la consulta al procedimiento,pero da error, debería ser: posicionArrayCodigosMaterial=(cInt(RecordProcedure.RecordCount))
'Response.Write("<br />problema, posiciones del array: " &(RecordProcedure.RecordCount))

redim arrayCodigosMaterial(posicionArrayCodigosMaterial)
posicionArrayCodigosMaterial = 0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'precio proyectado
dim i,tipo
i=0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Variables acumuladoras que se declaran e inicializan para totalizar
Dim PBtotal, unidadesTotal
PBtotal = 0
unidadesTotal = 0

do while not RecordProcedure.eof

%>
<tr>
<td align="center">
<% Response.Write("<br/>" &id)%>
</td>

<td align="center">
<%
arrayCodigosMaterial(posicionArrayCodigosMaterial)= (RecordProcedure("codigomaterial"))
Response.Write(arrayCodigosMaterial(posicionArrayCodigosMaterial)&"<br/>")
%>
</td>

<td align="center"> <% Response.Write(RecordProcedure("numerosolp")&"<br/>")%> </td>

<td align="center"> <% Response.Write(RecordProcedure("posicion")&"<br/>")%> </td>

<td align="center"> <% Response.Write(RecordProcedure("descripcionmaterial")&"<br/>")%> </td>

<td align="center"> <% Response.Write(RecordProcedure("clasificacion")&"<br/>") %> </td>

<td align="center"> <% Response.Write(RecordProcedure("um")&"<br/>") %> </td>

<td align="center">
<%
Response.Write(RecordProcedure("cantidadsolicitada")&"<br/>")
unidadesTotal = unidadesTotal + (RecordProcedure("cantidadsolicitada"))
%>
</td>
________________________________________________________
<td align="center"> <!-- el precio proyectado es de tipo 1-->
<% tipo=1 %>
<input type="radio" name=radio<%=i%> id=radio<%=i%> value=<%=RecordProcedure("PRECIOPROYECTADO")%> onclick="handleClick(this,'<%=arrayCodigosMaterial(i)%>','<%=concursoPorProcesar%>','<%=tipo%>')">
<% Response.Write(formatnumber((RecordProcedure("PRECIOPROYECTADO")),3)&"<br/>") %>
</td>


<td align="center"> <!-- el precio mercado es de tipo 2-->
<%
tipo=2
Response.Write(RecordProcedure("PRECIOMERCADO")&"<br/>")
%>
__________________________________________________________
<input type="radio" name=radio<%=i%> id=radio<%=i%> value=<%=RecordProcedure("PRECIOMERCADO")%> onclick="handleClick(this,'<%=arrayCodigosMaterial(i)%>','<%=concursoPorProcesar%>','<%=tipo%>')">

<input type="button" value="procesar" onclick='location.href="PbEnProceso_CotizacionMaterialPorConcurso.asp?concurso=<%=concursoPorProcesar%>&material=<%=arrayCodigosMaterial(posicionArrayCodigosMaterial)%>"'/ id=<%=i%> name=button<%=i%>>

</td>

<td align="center"> <% Response.Write(RecordProcedure("TIPOPRECIO")&"<br/>")%> </td>

<td align="center"> <% Response.Write(RecordProcedure("preciosolp")&"<br/>")%> </td>

<td align="center"> <% Response.Write(formatnumber(RecordProcedure("PRECIOPBSINIVA"))&"<br/>") %> </td>

<td align="center"> <% Response.Write(formatnumber((RecordProcedure("PRECIOPBCONIVA")),3)&"<br/>")%> </td>

<td align="center">
<%
Response.Write(formatnumber(RecordProcedure("MONTOBS"))&"<br/>")
PBtotal = PBtotal + (RecordProcedure("MONTOBS"))
%>
</td>

<td align="center">
<%
Response.Write("<br/>")
%>
<a href="javascript:window.location.reload()">Actualizar</a>
</td>

</tr>

<%
RecordProcedure.movenext 'Permite mover el archivo al siguiente registro, para revisar cada material
i=i+1
id=id+1
posicionArrayCodigosMaterial = posicionArrayCodigosMaterial +1
loop 'fin do while
RecordProcedure.MoveFirst
%>
</tr>

<tr>

</tr>
</tr>

</table>

<table style="font-size:10px; table align="left"; text-align:center;" BORDER="1" CELLSPACING="0" CELLPADDING="2" "">
<tr bgcolor="#DCDCDC">

<td>
<!--Monto Global-->
<%
Dim sqlObtenerMontoGlobal, RecordObtenerMontoGlobal
sqlObtenerMontoGlobal = "select montoglobal from user_planeamiento.TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_DETALLE_SID where codigoproceso='"&concursoPorProcesar&"'"
Set RecordObtenerMontoGlobal = CreateObject("ADODB.RecordSet")
RecordObtenerMontoGlobal.Open sqlObtenerMontoGlobal, Conexion

Response.write("<br/><b>Monto Global =</b> " &RecordObtenerMontoGlobal("montoglobal"))
RecordObtenerMontoGlobal.Close
%>

</td>

<td>

<!--Total Item-->
<%
Dim sqlObtenerTotalItem, RecordObtenerTotalItem
sqlObtenerTotalItem = "select cantidaditem from user_planeamiento.TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_DETALLE_SID where codigoproceso='"&concursoPorProcesar&"'"
Set RecordObtenerTotalItem = CreateObject("ADODB.RecordSet")
RecordObtenerTotalItem.Open sqlObtenerTotalItem, Conexion

Response.write("<br/><b>Total Item =</b> " &RecordObtenerTotalItem("cantidaditem"))
RecordObtenerTotalItem.Close
%>

</td>

<td>

<!--Total Unidades-->
<%
Response.write("<br/><b>Total Unidades =</b> " &unidadesTotal)
Conexion.Execute("update TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_DETALLE_SID set totalunidades= '"&unidadesTotal&"' where codigoproceso='"&concursoPorProcesar&"'")
%>
</td>
<td>

<!--Total PB-->
<%
Response.write("<br/><b>Total Presupuesto Base= </b> "& formatnumber(PBtotal,3))
Conexion.Execute("update TBL_PLAN_ESCO_PB_PRESUPUESTOSUMI_DETALLE_SID set totalpb = '"&PBtotal&"' where codigoproceso='"&concursoPorProcesar&"'")
%>
</td>

<table style="font-size:10px;margin: 0 auto; table align="center"; text-align:center;" BORDER="1" CELLSPACING="0" CELLPADDING="0" aling="center"">
<td>

<form METHOD="POST" ACTION="PbEnProceso_Analista.asp" id=Observaciones name=Observaciones>
<p><b>Observaciones Jefe ESCO:</b>
<textarea id="ObsJefe" name="ObsJefe" onBlur="recibirObsJefe(this.value,'<%=concursoPorProcesar%>')"></textarea>
</p>
<p><b>Observaciones Analista: </b>
<textarea id="ObsAnalista" name="ObsAnalista" onBlur="recibirObsAnalista(this.value,'<%=concursoPorProcesar%>')"></textarea>
</p>
<p></p>
</form>
</td>
</table>


</table>


<center>

<!-- Para actualizar la pagina -->
<table border="1" width="44%">
<tr>
<td width="100%"><p align="center"><a href="javascript:window.location.reload()">Actualizar Cambios Realizados</a></td>
</tr>
</table>

<!-- Botón que pemite enviar el PB para revisión -->
<p></p>
<table>
<tr>
<input id=buttonAB name=buttonAB type="button" value="Enviar PB para Revisión" onclick="actualizarEstado('<%=request("concurso")%>')"/>
</tr>

<!-- Botón que pemite exportar excel con el PB -->
<tr>
<input id=buttonAB name=buttonAB type="button" value="Exportar Excel con el PB" onclick='location.href="generarExcel.asp?concurso=<%=concursoPorProcesar%>"'/>
</tr>

<!-- Botón que pemite exportar excel con los cálculos del precio proyectado de todos los materiales de un concurso -->
<tr>
<input id=buttonAB name=buttonAB type="button" value="Exportar calculos para el precio proyectado" onclick='location.href="generarExcelPrecioProyectado.asp?concurso=<%=concursoPorProcesar%>"'/>
</tr>

</table>

</center>


</BODY>
<%
RecordProcedure.Close 'cerrar archivo
Conexion.close 'Se cierra conexion con la base de datos