<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/cardshop.asp" -->
<% 
id=Trim(Request.QueryString("id"))
if id ="" then
Response.Write("系統(tǒng)錯誤，請重試!")
response.End()
end if

 %>
<%

if(id <> "") then Command1__a1 = id

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_cardshop_STRING
Command1.CommandText = "DELETE FROM gamecardtype  WHERE id =" + Replace(Command1__a1, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<% 
response.Redirect("addgame6.asp")

 %>