<%
Dim conn, rs
Dim arrCatName, totalCategory, sql, i, intCatID, defaultCatID, defaultPage
Dim arrCurrency, totalConversion, defaultCurrency, strCurrencySymbol, intConvertionRate, converID
defaultCurrency = session("currency")
strCurrencySymbol = session("currencySymbol")
intConvertionRate = session("convertionRate")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open dbConnection
Set rs = Server.CreateObject("ADODB.RecordSet")
getCatListing()
getCurrency()
Sub getCatListing
sql = "SELECT catID, catName FROM category WHERE catStatus = 1 ORDER BY catName"
rs.open sql,conn,1,3
totalCategory = rs.recordcount
if totalCategory <> 0 then
arrCatName = rs.GetRows
defaultCatID = arrCatName(0,0)
end if
rs.close
End Sub
Sub getCurrency()
sql = "SELECT * from conversion Where converStatus = 0"
rs.open sql,conn,3,1
totalConversion = rs.recordcount
if totalConversion <> 0 then
arrCurrency = rs.GetRows
End if
rs.close
End Sub
sub getCategoryName()
sql = "Select catName From category where CatID = " & intCatID
rs.open sql, conn, 3, 1
if not rs.eof then
strCatName = rs("catName")
else
strCatName = "No Category Found"
end if
rs.close
End Sub
%>
Malaysia Hobby Kit,Educational Electronics Kits,Science Kits, Robot,Educational Toys - Vekit.com