Alguien que me de una mano con asp

Bueno pues eso tengo un rollo con un código y no se porque rayos no funciona, no me da error, sino que no me muestra la información que necesito.
No soy programador ni aspiro a serlo es solo algo que tengo que hacer porque mi jefe me obliga
Si alguien me puede ayudar le mando el código por correo o bueno lo posteo acá (es muy largo y no quiero embasurar ).
Es lo único que me falta para terminar y para que me dejen en paz


Gracias adelantadas

Recuerda que esto va en los foros técnicos y si sería bueno que pusieras el código

(espera a que muevan el post, no abras otro tema nuevo)

Lo muevo a General

Bueno aquí esta el código.
Espero que alguien de veras me ayude
Ya no soporto el dolor de cabeza

Código :

<% 
On Error Resume Next   
Dim LoginOK
Dim errLoop
Dim strError
P_username = Session("Username")
container = Session("prefix")
contnumber = Session("number")
comp = Session("comp_num")
if Len(p_username) > 0 then     
Set adoConn = Server.CreateObject("ADODB.Connection")
   strConnectionString = strConnectionString & "DSN=gdz-isis"   
   Set adoCmd = Server.CreateObject("ADODB.Command")
    Set adoRS = Server.CreateObject("ADODB.Recordset")
    adoConn.Open strConnectionString
adoCmd.commandText="SELECT "
   adoCmd.commandText=adoCmd.commandText+"BLHDR.SHIPPER_NUMBER,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.CONS_NUMBER,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.FWDR_NUMBER,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.NOTIFY_NUMBER,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.SHIPPER_NAME,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.CONS_NAME,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.BL_NUMBER,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.BOOKING_NUMBER,"
   adoCmd.commandText=adoCmd.commandText+"CNTHDR.LAST_ACTIVITY,"
   adoCmd.commandText=adoCmd.commandText+"CNTHDR.CURRENT_STATUS, "
adoCmd.commandText=adoCmd.commandText+"CNTHDR.CONTAINER_NO_1,"
   adoCmd.commandText=adoCmd.commandText+"CNTHDR.CONTAINER_NO_2,"
   adoCmd.commandText=adoCmd.commandText+"CNTHDR.CONTAINER_NO_3,"
   adoCmd.commandText=adoCmd.commandText+"CNTHDR.EQUIPMENT_TYPE,"
   adoCmd.commandText=adoCmd.commandText+"CNTHDR.JOB_NUMBER,"
   adoCmd.commandText=adoCmd.commandText+"BLHDR.SHIPPER_REF1," 
   adoCmd.commandText=adoCmd.commandText+"BLHDR.SHIPPER_REF2 "
adoCmd.commandText=adoCmd.commandText+"FROM CNTHDR,BLDTL,BLHDR "
adoCmd.commandText=adoCmd.commandText+"WHERE "
adoCmd.commandText=adoCmd.commandText+"CNTHDR.CONTAINER_NO_1='"&container&"' AND "
adoCmd.commandText=adoCmd.commandText+"CNTHDR.CONTAINER_NO_2="&contnumber&" AND "
adoCmd.commandText=adoCmd.commandText+"BLDTL.JOB_NUMBER=CNTHDR.JOB_NUMBER AND " 
adoCmd.commandText=adoCmd.commandText+"BLDTL.CONTAINER_NO_2<>0 AND " 
adoCmd.commandText=adoCmd.commandText+"BLDTL.CONTAINER_NO_2=CNTHDR.CONTAINER_NO_2 AND " 
adoCmd.commandText=adoCmd.commandText+"BLDTL.BL_NUMBER = BLHDR.BL_NUMBER"
adoCmd.ActiveConnection = adoConn
set adoRS=adoCmd.execute

if(adoRS.eof) then
else
adoRS.moveFirst
billoflanding=adoRS("BL_NUMBER")
booking=adoRS("BOOKING_NUMBER")
dr2=month(adoRS("LAST_ACTIVITY")) &"/"&day(adoRS("LAST_ACTIVITY"))&"/"&year(adoRS("LAST_ACTIVITY"))
sta=adoRS("CURRENT_STATUS")
days=abs(DateDiff("d",Date,adoRS("LAST_ACTIVITY")))
equipment=adoRS("CONTAINER_NO_1") & "-" & adoRS("CONTAINER_NO_2") & "-" & adoRS("CONTAINER_NO_3")
equitype=adoRs("EQUIPMENT_TYPE")
shipper1=adoRS("SHIPPER_REF1")
shipper2=adoRS("SHIPPER_REF2")
jobnum=adoRS("JOB_NUMBER")
shipper_no=adoRS("SHIPPER_NUMBER")   
shipper_name=adoRS("SHIPPER_NAME")   
consigner_name=adoRs("CONS_NAME")   
consig_number=adoRs("CONS_NUMBER")
fw_number=adoRs("FWDR_NUMBER")
noti_number=adoRs("NOTIFY_NUMBER")

adoCmd.commandText="SELECT DISTINCT VESSEL_NAME, VOYAGE_NAME FROM JOBS WHERE JOB_NUMBER='"&jobnum&"'"
   adoCmd.ActiveConnection = adoConn
   set adoRS=adoCmd.execute
   Vessel=adoRS("VESSEL_NAME")
   Voyage=adoRS("VOYAGE_NAME")

%>
  Shipper Name: 
  <%
Response.Write "           "& shipper_name

%> 
 Consigner : 
  <%
Response.Write consigner_name
%> 
<%
adoCmd.commandText="SELECT "
adoCmd.commandText=adoCmd.commandText+"PORTS.PORT_NAME, "
adoCmd.commandText=adoCmd.commandText+"JOBS.EST_DEPARTURE "
adoCmd.commandText=adoCmd.commandText+"FROM BLHDR,JOBS,PORTS "
adoCmd.commandText=adoCmd.commandText+"WHERE "
adoCmd.commandText=adoCmd.commandText+"BLHDR.JOB_NUMBER=JOBS.JOB_NUMBER AND "
adoCmd.commandText=adoCmd.commandText+"JOBS.PORT = PORTS.PORT_NUMBER AND "
adoCmd.commandText=adoCmd.commandText+"BLHDR.BL_NUMBER='"&billoflanding&"' AND "
adoCmd.commandText=adoCmd.commandText+"(BLHDR.PORTL_NUMBER=JOBS.PORT OR "
adoCmd.commandText=adoCmd.commandText+"BLHDR.PORTD_NUMBER=JOBS.PORT) "
adoCmd.commandText=adoCmd.commandText+"ORDER BY EST_DEPARTURE"
   adoCmd.ActiveConnection = adoConn
   set adoRS=adoCmd.execute   
   portname=adoRs("PORT_NAME")
   estdep=adoRs("EST_DEPARTURE")
%>

Port of Loading (ETD): 
<%
Response.Write adoRs("PORT_NAME")
%>
<%Response.Write adoRs("EST_DEPARTURE")

adoRs.Movenext %>
<br>Port of Discharge(ETA): <%
Response.Write adoRs("PORT_NAME")
%>
<%Response.Write adoRs("EST_DEPARTURE")%>

<%
if ("comp_num"="consig_number" or "comp_num"="fw_number" or "comp_num"="noti_number") then
%>
Aca va una tabla que muestra la información(bueno la que se debería mostrar)
<%
else
%>
Aca va un texto de registro exitoso
<%
end if
end if   
adoConn.close
end if   
%>

alguien me puede ayudar por fa. estoy buscando una copia de este programa. gdz-isis

Deberías de ser azotado por reabrir este hilo de hace casi dos años y medio...