<% ' Last Edit: CRM_01dec05 %>
<%
'''''''''''''''''''''''''''''''''''''''''''''
' file: contractIframe.asp
'''''''''''''''''''''''''''''''''''''''''''''
' load the pdf file from the net_contract_pdf directory
' and insert the content into the IFRAME
'''''''''''''''''''''''''''''''''''''''''''''
airline = Trim(Request.QueryString("airline"))
filename = Trim(Request.QueryString("filename"))
if len(airline) > 2 then
airline = left(airline,2)
end if
Response.ContentType = "application/pdf"
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'... if the specified file exists the load the file from its specified directory
'... and insert it into the IFRAME
If objFSO.FileExists ("../../../../net_contract_pdf/"&airline&"/"&filename&".pdf") Then
Dim stream
Set stream = Server.CreateObject("ADODB.Stream")
Call stream.Open()
stream.Type = 1
Call stream.LoadFromFile(Server.MapPath("../../../../net_contract_pdf/"&airline&"/"&filename&".pdf"))
Call Response.BinaryWrite(stream.Read())
Set stream = Nothing
Else
response.Write "
"
response.Write ""
response.Write "Sorry, the requested Contract could not be found "
response.Write ""
response.Write "
PENAFIAN
Jabatan Laut Semenanjung Malaysia adalah tidak bertanggungjawab
bagi apa-apa kehilangan atau kerugian yang disebabkan oleh penggunaan mana-mana
maklumat yang diperolehi dari laman web ini serta tidak boleh ditafsirkan
sebagai ejen kepada, ataupun syarikat yang disyorkan oleh Jabatan Laut Semenanjung
Malaysia.
