ali reza omid ali
دوشنبه 18 مهر 1384, 07:38 صبح
Dim conlogin As SqlClient.SqlConnection
Application("conlogin") = New SqlClient.SqlConnection("workstation id=(local);packet size=4096;user id=" + TextBox1.Text + ";password=" + TextBox2.Text + ";data source=(local);persist security info=False;initial catalog=portalnews")
Try
Application("conlogin").Open()
topic.Visible = True
topic.Visible = True
advertise.Visible = True
news.Visible = True
import_news.Visible = True
other_report.Visible = True
Catch ex As Exception
Response.Write("<script>alert('you are not admin')</script>")
End Try
Application("conlogin") = New SqlClient.SqlConnection("workstation id=(local);packet size=4096;user id=" + TextBox1.Text + ";password=" + TextBox2.Text + ";data source=(local);persist security info=False;initial catalog=portalnews")
Try
Application("conlogin").Open()
topic.Visible = True
topic.Visible = True
advertise.Visible = True
news.Visible = True
import_news.Visible = True
other_report.Visible = True
Catch ex As Exception
Response.Write("<script>alert('you are not admin')</script>")
End Try