|
How to use this form.
1. Choose your specification.
2. Please note your requirement in 'other technical requirement' if
you have any.
3. Please save after filling up blanks
4. Please repeat No.1, 2 & 3 if you need to add items
5. Please send your inquiry after clicking department which you want
to send to. |
<%
Set rs = server.createobject("adodb.recordset")
sessionid = session.sessionid
strSql = "select count(sid) from tbBasket where sessionid = '" & sessionid &"' and category = 'civil'"
rs.open strSql,Application("dbSangjin"), 1
nCount = rs(0)
rs.Close
if nCount > 0 then
strSql = "SELECT sid,material,bearing,bsize,bpitch,grating,gsize,surface,quantity,quantity2 FROM "
strSql = strSql & "tbBasket where sessionid = '" & sessionid & "' and category = 'civil'"
rs.open strSql,Application("dbSangjin"), 1
num = "1"
For i = 1 to nCount
if rs.EOF then
exit for
end if
sid = Trim(rs("sid"))
material = Trim(rs("material"))
bearing = Trim(rs("bearing"))
bsize = Trim(rs("bsize"))
bpitch = Trim(rs("bpitch"))
grating = Trim(rs("grating"))
gsize = Trim(rs("gsize"))
surface = Trim(rs("surface"))
quantity = Trim(rs("quantity"))
if quantity = "" then
quantity = Trim(rs("quantity2"))& " (Square meter)"
else
quantity = quantity& " (PCS)"
end if
material = material& "/" &bearing& "/" &bsize& "/" &bpitch& "/" &grating& "/" &gsize& "/" &surface& "/" &quantity
%>
| <%=num%> |
<%=material%> |
[delete] |
<%
num = num + 1
rs.movenext
next
rs.Close
end if
%>
<%if nCount > 0 then%>
<%end if%>
|
|