<%@ Language=VBScript %>
<%
con.Open strDSN
rs.open "contact", con
mail="nguyenthuco@gmail.com"
b1 = trim(Request.Form("T1"))
b2 = trim(Request.Form("T2"))
b3 = trim(Request.Form("T3"))
b4 = trim(Request.Form("T4"))
b5 = trim(Request.Form("T5"))
b6 = trim(Request.Form("T6"))
b7 = trim(Request.Form("T7"))
b8 = Replace(b8,CHR(13),"
")
str = "Insert into contact (ten1,ten2,diachi,phone,fax,email,noidung) values ('" & b1 & "','" & b2 & "','" & b3 & "','" & b4 & "','" & b5 & "','" & b6 & "','" & b7 & "')"
con.Execute(str)
rs.Close
set rs=nothing
response.Redirect("sendmail.php?mailto="&mail&"&noidung="&noidung)
Response.Write("Thank you. See you later !")
%>
Quay lại