倾所有积分，拜求一简单但小弟没有解决的问题！

一个数据更新的简单页面，本地IIS测试更新按钮没有问题，但是传到服务器上就不行了，点了任何反应都没有，一般什么原因导致这种结果。Sub PostUpdate(sender As Object, e As EventArgs)
//连接 更新数据库
    Dim objConn As New OleDbConnection()
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath("../database.asax")
    objConn.Open()    Dim objCmd As New OleDbDataAdapter()

objCmd.SelectCommand = New OleDbCommand("Select * From CUSTOMER_INFO Where AUTO_NO=" & TempArgs,objConn)

objCmd.UpdateCommand = New OleDbCommand()
    objCmd.UpdateCommand.CommandText = "Update CUSTOMER_INFO Set SHOP_NAME=?, SHOP_ADDRESS=?, SHOP_POSTCODE=?, SHOP_PROVINCE=?, SHOP_CITY=?, SHOP_AREA=?, SHOP_KIND=?, CUS_NAME=?, CUS_SEX=?, CUS_NATION=?, CUS_TEL=?, CUS_MOBILE=? Where AUTO_NO=" & TempArgs

    objCmd.UpdateCommand.Connection = objConn

    objCmd.UpdateCommand.Parameters.Add("@SHOP_NAME", OleDbType.VarChar,30,"SHOP_NAME")    objCmd.DeleteCommand = New OleDbCommand()
    objCmd.DeleteCommand.CommandText = ""    objCmd.InsertCommand = New OleDbCommand()
    objCmd.InsertCommand.CommandText = ""
    Dim DS As New DataSet()
    objCmd.Fill(DS, "CUSTOMER_INFO")
    objConn.Close()    Dim myTable As DataTable = DS.Tables("CUSTOMER_INFO")
Dim S, Args As Integer
Args = 0
for S = 0 to myTable.Rows.Count-1
If myTable.Rows(S)("AUTO_NO")=TempArgs
   Args = S
End If
Next   myTable.Rows(Args)("SHOP_NAME") = shop_name.Text    objCmd.Update(DS, "CUSTOMER_INFO")

Input.visible = false
ShowInfo.visible = true
button_back.visible = false
Information.text="用户信息已经成功修改,此页面将在3秒后自动关闭!" 
ClosePage()
End Sub页面中插入按钮
<asp:Button CssClass="chitext" ID="post_data" Text="<更新数据>" runat="server" Width="100" Height="25" OnClick="PostUpdate" />