<%
Right_Advt_Patch ind1&""
set rsinquiry=server.createobject("adodb.recordset")
flag=true
blank_validation
if flag = true then
dispdetails
%>
<%
end if
response.write "
"%>
<%response.write "
"%>
<% response.write "
"%>
<%Bottom_Patch
%>
<%
Sub blank_validation
H = 0
rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"'",db,3
if not rsinquiry.eof then H=rsinquiry.recordcount
rsinquiry.close
if H = 0 then
flag=false
response.write ""
%>
Please select at least one product
<%
end if
End Sub
%>
<%
Sub dispdetails
Dim Item,T,Val
i = 1
rsinquiry.open "select * from inquiry_details where session_id='"&session.sessionid&"'",db,3
response.write ""
End Sub
%>