Private Sub sAlert(ByVal str As String)
Response.Write("<script>window.alert('" +str+ "');</script>")
End Sub

Private Sub age(ByVal s As String)
Page.RegisterStartupScript("", "<script>alert('" + s + "');</script>")
End Sub
Response.Write("<script>setTimeout(""window.location='index.php';"",1000);</script>")
Response.Write("<script>window.location='../index.php';</script>")