<%
if request("submit") = "" then
call foreend
else
call addmessage
end if
%>
<% sub foreend %>
<% end sub %>
<% sub addmessage %>
<%
bady="公司名稱:" & request("column1") & "
"
bady=bady & "負責人:" & request("column2") & "
"
bady=bady & "聯絡人:" & request("column3") & "
"
bady=bady & "電話:" & request("column4") & "
"
bady=bady & "傳真:" & request("column5") & "
"
bady=bady & "手機:" & request("column6") & "
"
bady=bady & "地址:" & request("column7") & "
"
bady=bady & "E-mail:" & request("column8") & "
"
bady=bady & "留言內容:" & request("meno") & "
"
'寄出E-Mail
Set Jmail = Server.CreateObject("JMail.SMTPMail")
'設定為html格式
JMail.ContentType = "text/html"
'本文
JMail.Body = bady
'標題
JMail.Subject = "大合基礎線上洽詢"
'寄件信箱
JMail.Sender = "daho2@ms13.hinet.net"
'寄件人
JMail.Sendername = "大合基礎線上洽詢"
'收件人信箱
JMail.ServerAddress = "daho2@ms13.hinet.net"
'外部伺服器
JMail.ServerAddress = "seed.net.tw"
'設定為Big碼
JMail.Charset = "Big5"
'郵件傳送
JMail.Priority = 3
on error resume next
JMail.Execute
set JMail = Nothing
strSQL = "insert into message(column1,column2,column3,column4,column5,"
strSQL = strSQL & "column6,column7,column8,column9,column10,"
strSQL = strSQL & "column11,column12,column13,column14,column15,"
strSQL = strSQL & "column16,column17,column18,column19,column20,memo)"
strSQL = strSQL & " values( "
strSQL = strSQL & "'" & request("column1") & "',"
strSQL = strSQL & "'" & request("column2") & "',"
strSQL = strSQL & "'" & request("column3") & "',"
strSQL = strSQL & "'" & request("column4") & "',"
strSQL = strSQL & "'" & request("column5") & "',"
strSQL = strSQL & "'" & request("column6") & "',"
strSQL = strSQL & "'" & request("column7") & "',"
strSQL = strSQL & "'" & request("column8") & "',"
strSQL = strSQL & "'" & request("column9") & "',"
strSQL = strSQL & "'" & request("column10") & "',"
strSQL = strSQL & "'" & request("column11") & "',"
strSQL = strSQL & "'" & request("column12") & "',"
strSQL = strSQL & "'" & request("column13") & "',"
strSQL = strSQL & "'" & request("column14") & "',"
strSQL = strSQL & "'" & request("column15") & "',"
strSQL = strSQL & "'" & request("column16") & "',"
strSQL = strSQL & "'" & request("column17") & "',"
strSQL = strSQL & "'" & request("column18") & "',"
strSQL = strSQL & "'" & request("column19") & "',"
strSQL = strSQL & "'" & request("column20") & "',"
strSQL = strSQL & "'" & request("meno") & "')"
set rs = ActionQuery("/1wayguestbook/database/data.mdb" , strSQL)
%>
<% end sub %>
