gua mau tanya lagi nih, sori kalo ngeganggu.
masalah ASP.
kenapa ya waktu gua rs.recordcount hasilnya selalu -1 padahal ada hasilnya,
pokoknya pasti lebih dari 1 deh.
gua udah baca referensi, katanya waktu open recordset harus pake
Adopenstatic, soalnya defaultnya Adopenforwardonly
tapi setelah gua coba, hasilnya sama aja tuh.
Set rs = Server.CreateObject("ADODB.RecordSet")
q = Q & "SELECT DISTINCT VS.VESSEL VS"
q = q & " FROM TW.VOYAGE_PLAN VP, TW.VOYAGE_PORTS VS "
q = q & " WHERE VP.VESSEL=VS.VESSEL AND VP.VOYAGE=VS.VOYAGE "
If strVessel <> "" then
q = q & " AND VP.VESSEL='" & strVessel & "'"
end if
if strService <> "" then
q = q & " AND VP.TRADE='" & strService & "'"
end if
if strFromDate <> "" then
q = q & " AND ARRIVAL_DATE >= TO_DATE('" & strFromDate &
"','DD-MM-YYYY')"
end if
if strToDate <> "" then
q = q & " AND ARRIVAL_DATE < TO_DATE('" & strToDate &
"','DD-MM-YYYY')+1"
end if
rs.Open q, "DSN=LIVE;uid=TW;pwd=THRU", adopenstatic
RESPONSE.WRITE( rs.recordcount )
salam
denny
