%
if request("Order") <> "" then
'on error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
Set RS=Server.CreateObject("Adodb.Recordset")
Conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=test"
Rs.open "T1",Conn,1,3
rs.addnew
rs("ProductName").value=request("ProductName")
rs("OrderName").value=request("Order")
rs("ContactTel").value=request("ContactTel")
rs("ContactTime").value=request("ContactTime")
rs("email").value=request("email")
rs("PayType").value=request("PayType")
rs("Address").value=request("Address")
rs("OrderNum").value=request("OrderNum")
rs("NoteText").value=request("NoteText")
'response.write request("ProductName") & "
"
'response.write request("Order") & "
"
'response.write request("ContactTel") & "
"
'response.write request("ContactTime") & "
"
'response.write request("email") & "
"
rs("OrderTime").value=now
rs.update
if err then
'response.redirect "Fail.htm"
else
'response.redirect "Success.htm"
end if
end if
'response.write "test
"
%>
|
»ÉÀJ°¨(»É°¨) |
| Ailan·¤ô¬ã¨s«Ç¤â¾÷ª©º¶>©y§gªk¾¹µ²½tªÀ½æ³õº¶>»ÉÀJ°¨ ¡´LINE§Y®É½u¤W¦^´_ |

ªk¾¹©w»ù ¥Ø«e©w»ù¡G3280 ¤¸ ¹B°e¶O¥Î¡G¶l±H80¤¸ 7-11¨ú³f60¤¸ ¶l§½¨ì¥I130¤¸ ¦v°t130¤¸ |