%
qType = Request("qType")
if request("send") = "ok" then
'Set Conn = Server.CreateObject("ADODB.Connection")
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../DB/psimc.mdb")
sqlstr = "insert into inquiry (product,spec,amount,companyname,contactperson,phone,email,notes,type) values ('" & request("product") & "','"&request("spec")&"','"&request("amount")&"','"&request("companyname")&"','"&request("contactperson")&"','"&request("phone")&"','"&request("email")&"','"&request("notes")&"','"&qType&"')"
'sqlstr = "select * from inquiry"
conn.execute(sqlstr)
Set MailObj=Server.Createobject("CDONTS.NewMail")
HTMLTEXT = ""
HTMLTEXT = HTMLTEXT & "
PSIMC Web Form"
HTMLTEXT = HTMLTEXT & ""
HTMLTEXT = HTMLTEXT & "PSIMC ??" & qType & "
"
HTMLTEXT = HTMLTEXT & ""
HTMLTEXT = HTMLTEXT & "~W | " & request("product") & " |
"
HTMLTEXT = HTMLTEXT & "~W | " & request("spec") & " |
"
HTMLTEXT = HTMLTEXT & "?q | " & request("amount") & " |
"
HTMLTEXT = HTMLTEXT & "qW | " & request("companyname") & " |
"
HTMLTEXT = HTMLTEXT & "pH | " & request("contactperson") & " |
"
HTMLTEXT = HTMLTEXT & "pq | " & request("phone") & " |
"
HTMLTEXT = HTMLTEXT & "E-mail | " & request("email") & " |
"
HTMLTEXT = HTMLTEXT & "?` | " & request("notes") & " |
"
HTMLTEXT = HTMLTEXT & "
"
HTMLTEXT = HTMLTEXT & ""
mailObj.To = email_inquiry_form
'Response.write(email_inquiry_form)
'mailObj.To = "bass_chen@hotmail.com"
mailObj.From = from_email_inquiry_form
mailObj.Bcc = bcc_inquiry_form
mailObj.Subject = "PSIMC ? (" & qType & ")"
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.Body = HTMLTEXT
'call mailObj.attachfile("c:\test\mail.txt")
mailObj.Send
Set mailObj = Nothing
end if
%>
< w{XP?q >
|
|
|
台北市大安區忠孝東路四段183號7F-1 TTEL: 0935-948-810 FAX:(02)2778-5207
建議您最佳瀏覽解析度:IE4.0以上版本; 800 x 600 的螢幕解析度
|
|