Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection
Dim constr As String = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=support;Data Source=LAPTOP"
con.ConnectionString = constr
Dim sqlstr As String = ""
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand
Dim adap As SqlClient.SqlDataAdapter
Dim datasetse As DataSet
sqlstr = "select uid from TUsers where email like '" + txtemail.Text + "'"
cmd.CommandText = sqlstr
cmd.Connection = con
con.Open()
adap.SelectCommand = cmd
adap.Fill(datasetse)
con.Close()
If datasetse.Tables(0).Rows.Count <> 0 Then
lblerror.Text = "your email used"
Exit Sub
Else
sqlstr = "insert into TUsers (gid,email,pass,fullname,companyname,adress,city,country,websiteurl,telephone,fax,redate) values(2,'" + txtemail.Text + "','" + txtpass.Text + "','" + txtname.Text + "','" + txtcompany.Text + "','" + txtaddress.Text + "','" + txtcity.Text + "','" + lstcountry.SelectedItem.Text + "','" + txtsite.Text + "','" + txtphone.Text + "','" + txtfax.Text + "','" + Date.Now + "')"
cmd.CommandText = sqlstr
cmd.Connection() = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Response.Redirect("detailpage.aspx?sinfo=signupsuccess")
End If