<% ' Global variables Dim cn dim sql dim pname dim pcname dim paddress dim pstate dim pzip dim pcountry dim pphone dim pfax dim php dim pemail dim pcategory dim pdescription dim psearch dim content psearch = Request.form("add") pname = Request.Form("pname") pcname = Request.Form("pcname") paddress = Request.Form("paddress") pstate = Request.Form("pstate") pzip = Request.Form("pzip") pcountry = Request.Form("m_country") pphone = Request.Form("pphone") pfax = Request.Form("pfax") php = Request.Form("php") pemail = Request.Form("pemail") pcategory = Request.Form("select2") pdescription = Request.Form("pdescription") if psearch = "search" Then if pname="" or pcname="" or pphone="" or pemail="" Then response.redirect "RFQ_error.htm" End if set cn = Server.CreateObject("ADODB.Connection") cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\websites\Flotech\databases\quotation.mdb;Jet OLEDB:Database Password=flo1234" sql="INSERT INTO tbl_quotation(name, comName, address, state, zipCode, country, phone, fax, hpNo, email, category, description)" sql = sql & " VALUES ('" & pname & "','" & pcname & "','" & paddress & "','" & pstate & "','" & pzip & "','" & pcountry & "','" sql = sql & pphone & "','" & pfax & "','" & php & "','" & pemail & "','" & pcategory & "','" & pdescription & "')" content = content & vbcrlf & "Quotation Request on " & now & vbcrlf & vbcrlf content = content & "Name: " & pname & vbcrlf content = content & "Company Name: " & pcname & vbcrlf content = content & "Address: " & paddress & vbcrlf content = content & "State: " & pstate & vbcrlf content = content & "Zip: " & pzip & vbcrlf content = content & "Country: " & pcountry & vbcrlf content = content & "Phone: " & pphone & vbcrlf content = content & "Fax: " & pfax & vbcrlf content = content & "Email: " & pemail & vbcrlf content = content & "Category: " & pcategory & vbcrlf content = content & "Description: " & pdescription & vbcrlf cn.Execute sql cn.Close set cn = Nothing SendMailCDONTS "eMarketing@flotech.com.sg", "Quotation For Flotech " & now, content, "mfng@flotech.com.sg" response.redirect "RFQ_thankyou.htm" End If Sub SendMailCDONTS(aTo, Subject, TextBody, aFrom) Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = Subject objMessage.Sender = """Quotation"" " objMessage.To = aTo objMessage.TextBody = content '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.flotech.com.sg" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous 'cdoBasic 'Your UserID on the SMTP server 'objMessage.Configuration.Fields.Item _ '("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mfng" 'Your password on the SMTP server 'objMessage.Configuration.Fields.Item _ '("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "0213" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send End Sub %>
 

 
 
Request For Quotation
 
Personal particular:
Name:* Company Name:* 
Address: State:
Zip Code: Country:*
Phone:* Fax:
HP: Email:*
Category:*     
Description:

 
Copyright © 2003 Flotech Controls Pte Ltd. All rights reserved.