newmember.asp

管理server的檔案....及訂購產品的檔案

<% 'no security checking %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>

<%
response.buffer = true

'get action
a=request.form("a")

'get fields from form

x_59D3540D = Request("x_59D3540D")
x_90E89580 = Request("x_90E89580")
x_80777A31 = Request("x_80777A31")
x_52305EE065E5 = Request("x_52305EE065E5")
x_67009AD85B786B77 = Request("x_67009AD85B786B77")
x_79D17CFB = Request("x_79D17CFB")
x_5C08696D8A3C66F8 = Request("x_5C08696D8A3C66F8")
x_E2DMail = Request("x_E2DMail")
x_5BC678BC = Request("x_5BC678BC")

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("ArtDatabase.mdb") & ";User ID=;Password=;"

Select Case a
	Case "A": ' Add

		' Open record
		strsql = "SELECT * FROM [