<% 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 %> <% Dim strContactName Dim strCompanyName Dim strAdd Dim strContactNo Dim strFax Dim strMail Dim strProduct Dim strComment GetSetValue() SubmitEnquiry() %> <% Sub GetSetValue strContactName = Request("txtContactName") strCompanyName = Request("txtCompanyName") strAdd = Request("txtAddress") strContactNo = Request("txtContactNo") strFax = Request("txtFax") strMail = Request("txtEmail") strProduct = Request("chkIP") strComment = Request("Comment") End Sub %> <% Sub SubmitEnquiry strEmailFrom = strMail strEmailTo = "asuma@webse.com.my" strEmailTitle = "Customer's Enquiry!" strEmailMessage = "Dear Vekit Administrator," & vblf & vblf strEmailMessage = strEmailMessage & "An enquiry has just been submitted. Enquiry details as below:" & vblf & vblf strEmailMessage = strEmailMessage & "Contact Person: " & strContactName & vblf strEmailMessage = strEmailMessage & "Company Name: " & strCompanyName & vblf strEmailMessage = strEmailMessage & "Address: " & strAdd & vblf strEmailMessage = strEmailMessage & "Contact No: " & strContactNo & vblf strEmailMessage = strEmailMessage & "Fax: " & strFax & vblf strEmailMessage = strEmailMessage & "Email: " & strMail & vblf strEmailMessage = strEmailMessage & "Interested Product: " & strProduct & vblf strEmailMessage = strEmailMessage & "==================================" & vblf & vblf strEmailMessage = strEmailMessage & "Queries/Comment: " & vblf & strComment & vblf & vblf strEmailMessage = strEmailMessage & "==================================" & vblf & vblf strEmailMessage = strEmailMessage & "Date: " & Now() & vblf & vblf Call sendmail(strEmailFrom,strEmailTo,strEmailTitle,strEmailMessage) End Sub %> Malaysia Hobby Kit,Educational Electronics Kits,Science Kits, Robot,Educational Toys - Vekit.com