Sub faxSave(sender As Object, e As EventArgs)
Dim objConn As New SqlConnection(ConnectionString)
Dim strSQL As String = "INSERT INTO tblFax Values (@fclient, @ft, @ftn, @fd, @fr, @fp, @fcc, @ftype, @fdetail, @ffn);SELECT @@Identity as 'inserted_Key'"
Dim insertedKey as Int32
Dim objComm As New SqlCommand(strSQL)
objComm.Connection = objConn
objComm.Parameters.Add("@fdetail", SqlDbType.Ntext).Value = txtFaxDetail.Text
objComm.Parameters.Add("@ft", SqlDbType.Varchar, 100).Value = checkNull(txtFaxTo.Text)
objComm.Parameters.Add("@ftn", SqlDbType.Varchar, 200).Value = checkNull(txtFaxNum.Text)
objComm.Parameters.Add("@ffn", SqlDbType.Varchar, 50).Value = checkNull(txtFromNum.Text)
objComm.Parameters.Add("@fd", SqlDbType.smalldatetime, 4).Value = checkNull(txtFaxDate.Text)
objComm.Parameters.Add("@fr", SqlDbType.VarChar, 500).Value = checkNull(txtFaxRE.Text)
objComm.Parameters.Add("@fp", SqlDbType.Int, 4).Value = checkNull(txtFaxPages.Text)
objComm.Parameters.Add("@fcc", SqlDbType.Varchar, 500).Value = checkNull(txtFaxCC.Text)
objComm.Parameters.Add("@ftype", SqlDbType.Int, 4).Value = rbFaxType.SelectedValue
objComm.Parameters.Add("@fclient", SqlDbType.Int, 4).Value = ddlFaxFrom.SelectedItem.Value
Try
objConn.Open()
insertedKey = Ctype(objComm.ExecuteScalar(), int32)
Catch ex As Exception
Dim subStr As String = ex.ToString()
Dim count As Integer = (subStr.LastIndexOf("#")) - (subStr.IndexOf("#") + 1)
Dim int1 as String = subStr.SubString(subStr.IndexOf("#") + 1, count)
message.Text = count & " : " & int1
Response.Write("<script language='javascript'>alert('" & int1 & "')</script>")
Exit Sub
Finally
objComm.Connection.Close()
End Try
BindFaxHist(ddlFaxFrom.SelectedItem.Value)
print(insertedKey)
End Sub