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
%>